Animation dans un textboxRésolu

Question

Bonjour,

Ce que je n'arrive pas à faire c'est un animation dans un textbox...

Le voilà ( le texte du textbox est entre parenthèses. Les parenthèses représentent le textbox. Donc, ne pas tenir compte des parenthèses...)

Puisque le forum supprime les espaces superflus, je ne peux que vous montrer mon problème que sur ce fichier texte.... Dsl...

http://vbfrance-animtextbox.enacre.net/danielgrd/AnimationTextBox-VBFRANCE.txt

Merci BEACOUP d'avance...!

Gobillot · Accepted Answer

'----- niveau général -----
Dim x As Integer
Dim i As Integer
Dim s As String

' ----- niveau initialisation -----
Private Sub Form_Load()
    s = "          "    x 1: i 1
End Sub

'----- niveau Timer -----
Private Sub Timer1_Timer()
    Text1 = s    If i 1 Then Mid$(s, x) "."    If i 2 Then Mid$(s, x) " "    If i 3 Then Mid$(s, 11 - x) "."    If i 4 Then Mid$(s, 11 - x) " "
    x = x + 1    If x 11 Then x 1: i = i + 1    If i 5 Then i 1
End Sub

cs_Jack · Answer

Salut danielgrd
Pour faire ça, il te suffit d'un timer et dedans, tu mets un code qui affichera ce que tu veux en fonction d'un compteur :
Dim Compteur As Integer

Dans le timer :
Compteur = Compteur +1
If Compteur > ValMax Then Compteur = 1
Select Case Compteur
Case 01 : Text1.Text = "   ..."
Case 02 : Text1.Text = "  ..."
...
End Select

Vala
Jack
 NB : Je ne répondrais pas aux messages privés

danielgrd · Answer

Merci de ta réponse Jack...

Mais le problème c'est que je n'ai pas réussi à le faire marcher... Il n'affiche, après le temps spécifier dans le timer, que le CASE 01.

Une question : D'ou vient 'ValMax'?

Est-ce une variable que je dois déclarer????

Merci

Gobillot · Answer

je m'aperçois que ça a tronqué mes espaces:

Private Sub Form_Load()
s = space$(10)x 1: i 1
End Sub

danielgrd · Answer

Je n'avait pas vu ta réponse Gobillot... Merci....

Mais malheureusement je n'ai pas plus réussi à la faire fonctionner...

Dès le début il y a un seul point qui apparaît, et ensuite BANG! ... (Argument ou appel de procédure incorrect) Je fais déboguage, et il me surligne ce bout de ligne :
 ' Mid$(s, x) = "." ' 

Merci d'avance

danielgrd · Answer

MERCI Gobillot!

Ca MArche!!!!

J'ai lu ta correction apres d'avoir envoyé  mon autre post.... Désolé...

Merci Encore!!!!

Gobillot · Answer

ha bon j'ai eu peur, je croyais que t'étais en .NeT donc Mid$ ne marche pas.
j'avais bien mis au départ s= ".........." avec des espaces au lieu de points mais ça a mis un seul espace au lieu de 10.

Daniel

danielgrd · Answer

Allo Gobillot, (ou quiconque qui peut me répondre...)

Je ne sais pas si tu vas revenir ici, mais j'aurais un autre question.

Si je ne veux pas qu'il y est de 'text1.text' vide, (donc dans mon 'AnimationTextBox-VBFRANCE.txt' je supprimerais les lignes 1, 21 et 41)

Comment pourrais-je faire?

J'ai essayé de comprendre ton petit bout de code, mais, même s'il est court, il est tellement Mathématique que je n'ai pas réussi à comprendre comment il marchait....

Merci d'avance...

Gobillot · Answer

il y a 4 phases:
i 1 : x 1 à 10 : remplissage de points de gauche à droitei 2 : x 1 à 10: remise à espaces de gauche à droitei 3 : x 1 à 10: remplissage de points de droite à gauchei 4 : x 1 à 10: remise à espace de droite à gauche

donc 40 possibilités.

on a des espaces dans 2 cas:i 2 et x 10 i 4 et x 10

enlever les 2 premiers Rem pour supprimer ces 2 cas.

il reste des cas identiques et qui se suivent:
-un seul point à droitei 2 et x 9  avec i = 3 et x = 1
-un seul poit à gauche:i 4 et x 9 avec i = 1 et x = 1

enlever les 2 Rem suivants pour supprimer ces 2 autres cas.

Private Sub Timer1_Timer()    If i 1 Then Mid$(s, x) "."    If i 2 Then Mid$(s, x) " "    If i 3 Then Mid$(s, 11 - x) "."    If i 4 Then Mid$(s, 11 - x) " "
    Text1 = sRem  If i 2 And x 9 Then x = 10Rem  If i 4 And x 9 Then x = 10
    x = x + 1    If x 11 Then x 1: i = i + 1    If i 5 Then i 1Rem If i 1 And x 1 Then x = 2Rem If i 3 And x 1 Then x = 2
End Sub

Gobillot · Answer

en simplifiant en seulement 4 phases de 9


'----- niveau général -----
Dim x As Integer
Dim i As Integer
Dim s As String

' ----- niveau initialisation -----
Private Sub Form_Load()
s = Space$(10)x 0: i 1
End Sub

'----- niveau Timer -----
Private Sub Timer1_Timer()    If i 1 Then Mid$(s, x + 1) "."    If i 2 Then Mid$(s, x) " "    If i 3 Then Mid$(s, 10 - x) "."    If i 4 Then Mid$(s, 11 - x) " "
    Text1 = s
    x = x + 1    If x 10 Then x 1: i = i + 1    If i 5 Then i 1
End Sub

Animation dans un textbox

10 réponses

Discussions similaires