Vb6 ToolTipText, CoomandButton, Checkbox

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

6 réponses

  • Votes
  • Date
  • Date décroissante
  1. 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
    1. Salut a palui et Merci de m'aider a comprendre ce que je fait,Merci.

      ont parle de la variable command1 je crois
      A+
      1. 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 ?
        1. Bonjour a Palui et au autre aussi

          Non ca marche pas, ca dit : Variable non definie.
          A+
          1. bonjour,
            Private Sub Check1_Click()
            If Check1.Value = Unchecked Then
                Command1.ToolTipText = "exemple"
                    Else
                Command1.ToolTipText = vbNullString
            End If
            End Sub

            peut-être ?