Bonjour,
Je n'ai que peu d'expérience en VB et je n'arrive pas a comprendre une de mes erreur, pourriez vous m'aider s'il vous plait?
J'utilise Visual Studio 2005.
Voici un code qui récupere normalement la valeur d'une txtbox et en remplit une autre avec un select, sauf que ça ne fonctionne pas, ma textbox affiche tout le temps un "2"
Merci d'avance!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31 Private Sub TxtBoxIs_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtBoxIs.LostFocus Label10.Text = TxtBoxIs.Text Select Case TxtBoxIs.Text Case 0 To 20 qis = 1 TxtBoxQIS.Text = 1 Case 21 To 50 qis = 2 TxtBoxQIS.Text = 2 Case 51 To 80 qis = 3 TxtBoxQIS.Text = 3 Case 81 To 120 qis = 4 TxtBoxQIS.Text = 4 Case 121 To 160 qis = 5 TxtBoxQIS.Text = 5 Case 161 To 200 qis = 6 TxtBoxQIS.Text = 6 Case 201 To 240 qis = 7 TxtBoxQIS.Text = 7 Case 241 To 255 qis = 8 TxtBoxQIS.Text = 8 Case Else qis = 0 TxtBoxQIS.Text = "#" End Select
Partager