Le select case et les textbox

Version imprimable

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"

Code:

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

Merci d'avance!

30/05/2007, 19h04
olsimare
Bonjour.

Ca serait pas la conversion implicite de TxtBoxIs.Text (qui est un string) en integer qui pose probléme ? (Nota : mieux vaut toujours utiliser le "option strict on").
Ca donne quoi en utilisant :
Code:

1 2 3 4 dim t as integer = cint(TxtBoxIs.Text) select case t ...
Cdt.
30/05/2007, 19h33
Aspic

Exact, c'est pour cela qu'il faut activer l'option strict qui est desactivée par defaut :

Code:

Option Strict On 'ce code se place en premier sur une feuille
30/05/2007, 19h47
Jidewe

Merci! En effet, j'étais habitué au Explicit et non au strict, je m'en souviendrai :D

résolu :]