szteam
Messages postés59Date d'inscriptionmercredi 25 octobre 2000StatutMembreDernière intervention19 janvier 2004
-
27 juil. 2002 à 11:57
szteam
Messages postés59Date d'inscriptionmercredi 25 octobre 2000StatutMembreDernière intervention19 janvier 2004
-
28 juil. 2002 à 20:47
Bonjour,
Voila je voudrai faire un truc avec function ou sub car le procédé se répette 24 fois (pour chaque lettre de l'alphabet)
Mais sa ne marche pas voici le code :
Function QLettre(Lalettre As String)
For test = 0 To 9
If lettre(test) = Lalettre Then
Label1(test).Caption = Lalettre
bonnelettre = 1
End If
Next
Coup = Coup + 1
If Coup = 1 Then
Line1.Visible = True
Line2.Visible = True
Line3.Visible = True
End If
If Coup = 2 Then
Line4.Visible = True
Line5.Visible = True
End If
If Coup = 3 Then
Line6.Visible = True
End If
If Coup = 4 Then
Shape1.Visible = True
End If
If Coup = 5 Then
Line7.Visible = True
Line8.Visible = True
Line9.Visible = True
End If
If Coup = 6 Then
Line10.Visible = True
End If
If Coup = 7 Then
Line11.Visible = True
Line12.Visible = True
End If
Lalettre.Enabled = False
Historique.AddItem (Lalettre)
End Function
En fait je voudrait l'appeller par QLettre(A) et que sa façe tout sa mais sa mais a la place de A Vrai ou Faux et je comprend po
Ciao
SZ %-6
PtitJeoJeo
Messages postés85Date d'inscriptionmardi 29 janvier 2002StatutMembreDernière intervention18 avril 2005 28 juil. 2002 à 13:49
bon fo ke jte demande un truc : pourkoi tu met ca : If lettre(test) = Lalettre Then
c koi lettre c koi test
logiquement lettre devrai etre une fonction vu k'il y a l'argument test entre parenthèse
si lettre est une fonction dit moi a koi elle sert
et que recois test ???
fin voila avec plus de détail pourré ptet T D des fois c seulement un ptit truc ki prend la tete et on s'en appercois pa !
szteam
Messages postés59Date d'inscriptionmercredi 25 octobre 2000StatutMembreDernière intervention19 janvier 2004 28 juil. 2002 à 20:47
dans le général g fait Dim Lettre(8)
donc c po une fonction
et oui c un pendu
et c bon g trouvé la solution au lieu de faire Qlettre(a)
je fait
Lalettre = "A"
Call QLettre
Et sa marche Ciao