Visual basic

Fermé
Utilisateur anonyme - 23 janv. 2009 à 07:12
974_Vin's_974 Messages postés 547 Date d'inscription vendredi 23 janvier 2009 Statut Membre Dernière intervention 19 février 2009 - 23 janv. 2009 à 10:02
Bonjour,

Quelqu'un peut il me donner la strucutre de la commande qui me permettrait d'activer un bouton (du nom bouton)
si les champs des textbox 1 et 2 ne sont pas vide ???

J'étais parti sur un truc du genre :

dim boite as string
textbox1.value = boite
If boite <> "0" Then bouton.Enabled = true

...sauf que ca n'a pas l'air d'etre ca du tout :p

Merci de votre aide
A voir également:

5 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
23 janv. 2009 à 07:41
bonjour,

Essaie avec ça :

If boite <> "" Then bouton.Enabled = True

;o)
0
Utilisateur anonyme
23 janv. 2009 à 07:54
cela fonctionne en effet, mais quand je met quelque chose dans boite, cela reste desactivé :(
0
974_Vin's_974 Messages postés 547 Date d'inscription vendredi 23 janvier 2009 Statut Membre Dernière intervention 19 février 2009 102
23 janv. 2009 à 08:36
Clik sur ((ton bouton)) une fois (dans ton design) et va dans les propriétés a droite, tu décends et tu cherche "enable" Tu le mets sur true..

après clik deux fois dans ta textbox1 et tu mets :

If textbox1.text <> "" and textbox2.text <> ""
then


((ton_bouton)).Enabled = false

end if


après clik deux fois dans ta textbox2 et tu mets :


If textbox1.text <> "" and textbox2.text <> ""
then


((ton_bouton)).Enabled = false

end if
0
william7007 Messages postés 335 Date d'inscription dimanche 28 décembre 2008 Statut Membre Dernière intervention 23 mars 2010 46
23 janv. 2009 à 09:52
bonjour essaie ça voir et tien moi au courat

et assure toi de mettre la propriété de command1 à Enabled=fase dans la pallete des propriété.


Private Sub Text1_Change()
    If Text1.Text <> "" And Text2.Text <> "" Then
        Command1.Enabled = True
    Else
        Command1.Enabled = False
    End If
End Sub


Private Sub Text2_Change()
    If Text1.Text <> "" And Text2.Text <> "" Then
        Command1.Enabled = True
    Else
        Command1.Enabled = False
    End If
End Sub



cdlt
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
974_Vin's_974 Messages postés 547 Date d'inscription vendredi 23 janvier 2009 Statut Membre Dernière intervention 19 février 2009 102
23 janv. 2009 à 10:02
Oué voila c ca normalement william lool , j'me disais que j'oublié un sinon !!! loool.. ++
0