Discussion :

[gastoncs]

Bonsoir,

j'ai dans une textbox des données qui apparaissent régulièrement, reçu par le port série,

et je souhaiterais lorsque une valeur spécifique apparaissent, déclenché une événement (lire un fichier son)

donc pour ce faire, j'ai placé dans un timer mon code :

Code :

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

1
2
3
4
5
 If TextBox1.Text = "FPT" Then
            Player.URL = ".../FPT.mp3"
            Player.settings.volume = 90
            Player.controls.play()
        End If

pas de soucis, ca fonctionne si le FPT est seul dans la textbox, mais il arrive que du texte ce trouve avant et après 'FPT' ! et là ca ne fonctionne pas, dans ce cas comment comparer les deux chaines de string?

[tomlev]

Code :

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

If TextBox1.Text.Contains("FPT") Then

[gastoncs]

merci mais j'ai opté pour cette solution :

Code :

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

1
2
3
4
5
6
 
If InStr(1, TextBox1.Text, "FPT") > 0 Then
            Player.URL = "...\fpt.mp3"
            Player.settings.volume = 90
            Player.controls.play()
        End If

[tomlev]

Bah ça marche aussi, mais niveau lisibilité c'est vraiment pas top...

En lisant cette instruction :

Code :

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

TextBox1.Text.Contains("FPT")

on comprend tout de suite ce qu'elle fait, alors que celle là :

Code :

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

InStr(1, TextBox1.Text, "FPT") > 0

c'est nettement moins évident...

En plus, InStr est une fonction hérité de VB6, qui n'existe que pour maintenir la compatibilité du code existant. Normalement on n'est plus supposé l'utiliser dans du "nouveau" code...