probléme avec une combobox et deux textbox
Bonjour tout le monde,
Voilà j'espere que vous aller pouvoir m'aider.
Je suis entrain de creer un petit annuaire téléphonique avec une combobox qui represente le nom de la personne et plusieurs textbox avec tel. fixe tel.portable
et aussi souhaiterais ajouter adresse, rue,code postal .....
quand je clique sur mon bouton quand je selectionne la personne mais ca marche pas.
Alors es ce que s'il vous plait quelqu'un aurais la jentillesse de m'aider pour les codes?
merci à vous
Voilà se que moi j'ai mis:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| If ComboBox1.Text = "premier nom" Then
Dim key As Integer
key = (Rnd() * 1)
Select Case key
Case 1
TextBox1.Text = "telephone fixe"
TextBox2.Text = "telephone mobile"
End Select
End If
If ComboBox1.Text = "deuxieme nom" Then
Dim key As Integer
key = (Rnd() * 1)
Select Case key
Case 1
textbox1.text = "y a pas de numéro"
TextBox2.Text = "telephone mobile"
End Select
End If
End Sub |
