SELECT et END SELECT

Version imprimable

Bonjour, comme d'habitude... Je pensais avoir tout compris au SELECT ET END SELECT mais... :( comme d'habitude ça ne marche pas ! :aie:

Donc...

Je voudrais qu'il analyse l'ecran1box_utilisateur et qu'en fonction de la réponse, il retourne une phrase provenant d'un tableau !

Sub action_pour_entrer()

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
 
        Select Case ecran1.box_utilisateur.Text.ToUpper
 
            Case ecran1.box_utilisateur.Text.ToUpper = "BONJOUR"
                ecran1.pierre_parle.Text = discours_pierre(2)
                validation(0) = True
 
            Case ecran1.box_utilisateur.Text.ToUpper = "SALUT"
                ecran1.pierre_parle.Text = discours_pierre(3)
                validation(0) = True
 
            Case ecran1.box_utilisateur.Text.ToUpper = "BONJOURNO"
                ecran1.chat_pierre.Text = discours_pierre(5)
                validation(0) = True
 
            Case ecran1.box_utilisateur.Text.ToUpper = "HELLO"
                ecran1.pierre_parle.Text = discours_pierre(6)
                validation(0) = True
 
            Case Else
                ecran1.pierre_parle.Text = discours_pierre(4)
 
        End Select
 
End sub

Dans tous les cas, que je tape "BONJOUR" ou "bonjour" ou "Bonjour", il me retourne la phrase 4, celle de CASE ELSE

Pourquoi ne les reconnait-il pas ?

Où ais-je fais une erreur ? :roll:

Il peut-être temps que j'arrive à comprendre le fonction de SELECT ! :lol: :mrgreen:

Merci d'avance

Salut toutoune95800,

Je ne suis pas un expert vb mais a ta place j'aurai fais ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
Select Case ecran1.box_utilisateur.Text.ToUpper
 
            Case  "BONJOUR"
                ecran1.pierre_parle.Text = discours_pierre(2)
                validation(0) = True
 
            Case "SALUT"
                ecran1.pierre_parle.Text = discours_pierre(3)
                validation(0) = True
 
...etc

EDIT : benny-blanco plus rapide :ccool: Faut que je pense à rafraîchir les discussions avant de répondre :aie:

Bonjour,

solution :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Select Case ecran1.box_utilisateur.Text.ToUpper
 
            Case "BONJOUR"
                ecran1.pierre_parle.Text = discours_pierre(2)
                validation(0) = True
 
            Case "SALUT"
                ecran1.pierre_parle.Text = discours_pierre(3)
                validation(0) = True
 
            Case "BONJOURNO"
                ecran1.chat_pierre.Text = discours_pierre(5)
                validation(0) = True
 
            Case "HELLO"
                ecran1.pierre_parle.Text = discours_pierre(6)
                validation(0) = True
 
            Case Else
                ecran1.pierre_parle.Text = discours_pierre(4)
 
        End Select

La réponse était directement sur MSDN en appuyant sur la touche :f1:

07/04/2012, 18h25
toutoune95800

C'est génial ! Ca marche ! C'était encore plus simple que je ne pouvais le croire ! Ce truc est vraiment génial ! Il va m'éviter tellement de lignes de codes !:)

Merci à tous les deux et bonne soirée !:ccool: