[VB5] Prb de test sur un Btn Option
Bonjour à tous,
Un truc simple en l'occurence, mais que j'arrive pas à résoudre ! Grrrr !!!!
J'ai 2 OptionButton et 1 Textbox.
Je voudrais pouvoir faire un test pour savoir si un OptionButton est coché et en même temps savoir si un caractère est saisi pour mettre la commande enable.
J'ai essayé plusieurs possibilités mais ça va pas !
Si qq peut m'aider ce serait sympa : voici un bout de code.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Private Sub Text1_Change()
If Text1 = "" Then
Cmd1.Enabled = False
If Option1 = Checked Then
Cmd1.Enabled = True
Else
Cmd1.Enabled = False
End If
If Option2 = Checked Then
Cmd1.Enabled = True
Else
Cmd1.Enabled = False
End If
End If
End Sub |
Je me doute qu'il y a plus simple, mais comme j'essaie ça ????
Merci d'avance.
Cordialement, JLB59
*VB5* Comment paramétrer des OptionButtons pour l'exec ?
Citation:
Envoyé par jmfmarques
Vois-tu , en développement informatique, le "oui et non" n'existe pas et ne peut exister !
On a 2 optionbuttons ou non (et dans ce cas combien en a-t-on)
Et,; si on en a 2, l'un des 2 est forcément coché !
Et, si l'un des 2 est coché, ta condition première est toujours vérifiée :lol:
Le "OUI" et "NON", c'est le libellé des OptionButtons simplement.
Concernant tes explications sur "And" et "Or", logiquement, ça veut dire ce que ça veut dire !
Mais comme j'ai un Textbox en plus, la condition "Or" me semble la plus adaptée puisque le bouton de cmd est opérationnel que si le Textbox est rempli et si un des OptionButtons est coché !
Tu vois, je m'y perds un peu ! Mais comme ça marche... je ne cherche pas la complication !
Sur la feuille, il y a 2 OptionButtons libellés "Oui" et "Non", un Textbox et 2 boutons de commande.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Private Sub Form_Load()
Text1 = ""
cmdOK.Enabled = False
End Sub
'--------------------------------------------------------------------
Private Sub Text1_Change()
'Il faut cocher l'Option avant pour que le bouton "cmdEnregistrer" soit enabled
If Text1.Text <> "" And Option1.Value = True Or Option2.Value = True Then
cmdOK.Enabled = True
ElseIf Text1.Text = "" Then
cmdOK.Enabled = False
End If
End Sub
'--------------------------------------------------------------------
Private Sub CmdQuitter_Click()
End ' -- juste pour l'essai --
End Sub
'--------------------------------------------------------------------
Private Sub cmdOK_Click()
End
End Sub |
J'ai essayé avec les OptionButtons indexés, mais là, ça se complique...
Mais bon, comme je n'en ai que 2 !
