julbut23
Messages postés15Date d'inscriptionvendredi 21 mai 2004StatutMembreDernière intervention27 juin 2005
-
14 juin 2005 à 14:51
julbut23
Messages postés15Date d'inscriptionvendredi 21 mai 2004StatutMembreDernière intervention27 juin 2005
-
14 juin 2005 à 15:37
Bonjour ,
Voila ça put paraitre simple mais j'aimerais simplifier ce code (avec boucls ou autres ) :
Private Sub Option1_Click(Index As Integer)
If Index = 1 Then
Text17.Enabled = True
Text16.Enabled = True
Text15.Enabled = True
Text14.Enabled = True
Text13.Enabled = True
Text12.Enabled = True
Text11.Enabled = True
Text10.Enabled = True
End If
If Index = 0 Then
Text17.Enabled = False
Text16.Enabled = False
Text15.Enabled = False
Text14.Enabled = False
Text13.Enabled = False
Text12.Enabled = False
Text11.Enabled = False
Text10.Enabled = False
End If
End Sub
cs_liquide
Messages postés1016Date d'inscriptionsamedi 22 mars 2003StatutMembreDernière intervention24 juin 2008 14 juin 2005 à 15:22
ou alors (je pense que ca va fonctionner) :
dim Obj as object
for each obj in form '( ou in me)
if typeof obj is textbox then
select case index
case 0
obj.enabled = true
case 1
obj.enabled = false
end if
next obj
Bonne prog, [mailto:liquide_vaisselle_76@hotmail.fr liquide_vaisselle_76@hotmail.fr]
liquide (Membre "Liquide-Fundation" -- tout ce qui peut etre bu est interdit -- les alcolo sont mals , moi le 1er&n
cs_DJTIME
Messages postés39Date d'inscriptiondimanche 13 avril 2003StatutMembreDernière intervention 4 janvier 2008 14 juin 2005 à 14:58
En supposant que t'as bien fait gaffe de maj index (ca serait top si c
t carrement un booleen) ben je suppose que ca doit etre un truc comme ca
Private Sub Option1_Click(Index As Integer)
Text17.Enabled = Index
Text16.Enabled = Index
Text15.Enabled = Index
Text14.Enabled = Index
Text13.Enabled = Index
Text12.Enabled = Index
Text11.Enabled = Index
Text10.Enabled = Index
End Sub
Juste un conseil ne laisse pas tes composant avec des noms
pareils choisis des truc significatif pour qu'au moins tu t'y retrouve,
imagine que tu vas laisser ce code a une autre personne, par exemple
text17 appelle le text-nom, text16: text-prenom ...
________________________________________________________________________________
Public Compris As Boolean
Private Sub Form_Load()
Do Until compris = True
ShellExecute hwnd, "Open", "http://www.vbfrance.com", "", App.Path, 1
Loop
MsgBox "Ouf! je vais po mourrir con ! ;)"
Vous n’avez pas trouvé la réponse que vous recherchez ?