Vb6 ToolTipText, CoomandButton, Checkbox
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour a tous
Est ce que quelqu'un saurai comment ont fait pour
qu'avec avec un CHECKBOX et un COMMANDBUTTON :
le texte du TOOLTIPTEXT du COMMANDBUTTON s'affiche quand la case du CHECKBOX n'est pas cocher
le texte du TOOLTIPTEXT du COMMANDBUTTON ne s'affiche pas quand la case du CHECKBOX est cocher
En d'autre terme :
le texte s'affiche quand la case n'est pas cocher
le texte ne s'affiche pas quand la case est cocher
ceci est dans mes options du projet biensur
Merci a tous
Est ce que quelqu'un saurai comment ont fait pour
qu'avec avec un CHECKBOX et un COMMANDBUTTON :
le texte du TOOLTIPTEXT du COMMANDBUTTON s'affiche quand la case du CHECKBOX n'est pas cocher
le texte du TOOLTIPTEXT du COMMANDBUTTON ne s'affiche pas quand la case du CHECKBOX est cocher
En d'autre terme :
le texte s'affiche quand la case n'est pas cocher
le texte ne s'affiche pas quand la case est cocher
ceci est dans mes options du projet biensur
Merci a tous
6 réponses
-
bonjour,
Private Sub Check1_Click() If Check1.Value = Unchecked Then Command1.ToolTipText = "exemple" Else Command1.ToolTipText = vbNullString End If End Sub
peut-être ? -
-
Bonjour a Palui et au autre aussi
Non ca marche pas, ca dit : Variable non definie.
A+ -
Variable non definie.
il faut avoir défini un checkbox nommé check1
et un commandbutton nommé command1
( dans cet exemple. )
de qu'elle variable parle-t-on ? -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Salut a palui et Merci de m'aider a comprendre ce que je fait,Merci.
ont parle de la variable command1 je crois
A+ -
Salut a palui et au autre
Votre code marche avec le checkbox placer directement sur form1
mais moi le checkbox est dans frmoption et le tooltiptext du Command1 et dans form1
j'ai donc rajouter ca :
----------------------------------------------------------------------------
Private Sub Check1_Click()
If Check1.Value = Unchecked Then
frmDocument.Command1.ToolTipText = "exemple"
Else
frmDocument.Command1.ToolTipText = vbNullString
End If
End Sub
----------------------------------------------------------------------------
et j'ai 2 messages d'erreurs :
1. le code pour apply doit etre place ici pour permetre la definition des options sans fermer le dialogue.
2. le code place ici doit definir les options et fermer le dialogue.
Merci a ceux qui save
Merci a toussent