Discussion :

[Jidewe]

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 :

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

Merci d'avance!

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
dim t as integer = cint(TxtBoxIs.Text)
select case t
...

Cdt.

[Aspic]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Strict On 'ce code se place en premier sur une feuille

[Jidewe]

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

résolu :]