Test sur combo box vb6

adelani -  
Bonjour,
je suis entrain de faire un petit programme sur vb6, dans une partie du programme j'ai un combobox avec les valeur "oui" et "non", essaye de faire une condition dans le cas ou je selectionne "oui" d'activer un text box,
et si je selectionne "non" le text box doit rester désactiver (enable)

j'ai ecrit ce code mais ca marche pas :

Private Sub Combo7_Validate(Cancel As Boolean)

If Val(Combo7.Text) = "Oui" Then Hw.Enabled = True
End If
End Sub

le probleme ce que ca marche pas et j'ai le msg d'erreur suivant: "compile error End If without block If".

merci de m'aider, et de me répondre a cette question

slts
Configuration: Windows XP
Internet Explorer 6.0

6 réponses

  1.  nicdev
    If Val(Combo7.Text) = "Oui" Then
    Hw.Enabled = True
    End If

    ou

    If Val(Combo7.Text) = "Oui" Then Hw.Enabled = True
    1. adelani
      merci pour votre réactivité

      mais ca marche pas, j'ai toujours le meme message d'erreur "compile error : End If without block If
  2. adelani
    voici excatement le code que j'ai ecrit

    Private Sub Combo7_Validate(Cancel As Boolean)
    If Val(Combo7.Text) = "Oui" Then Hw.Enabled = True
    End If
    End Sub

    et ca me donne le msg d'erreur, je comprend pas pourquoi
    1. nicdev
      Justement si tu mets du code apres le Then (sur la meme ligne) il ne faut pas de End If (ma 2 eme ecriture)

      Si tu veux mettre un end if IL NE FAUT PAS METTRE DE CODE APRES LE THEN (ma premiere ecriture) mais le mettre à la ligne
      1. dev_rabat
        bonjour
        voila le code
        j'espaire que vous indique ce code

        If Val(ComboBox1.Text = "oui") Then
        TextBox1.Enabled = True
        Else
        TextBox1.Enabled = False
        End If

        testt ce code
        3. adelani
          là j'ai une autre de question
          apres avoir changer des valeur sur mon fichier excel à l aide des zone de saisie sur mon interface vb, je souhaite imprimer le résultat qui se trouve sur mon fichier excel.
          je veux imprimer en ".pdf" , et enregistere automatiquement le fichier puis l'ouvrir.

          MonXl.Sheets(1).PrintOut , ActivePrinter:="PdfCreator", Collate:=True

          qu est ce que je dois rajouter a ce code pour pouvoir réaliser cette impression.

          merci