Discussion :

[toutoune95800]

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

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 :

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
 
        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 ?

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

Merci d'avance

[benny-blanco]

Salut toutoune95800,

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

Code :

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

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

[Sankasssss]

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

Bonjour,

solution :

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

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