ca doit être ca oui
par contre on ne laisse pas les noms par défauts pour les controles (button1 s'il sert à fermer, tu l'appel ButtonQuit par exemple, textbox1 TextboxSearch ...)
et sur la compacité du code on peut faire mieux :
1 2 3 4 5 6 7 8 9 10
| If (e.KeyCode <> Keys.Enter) Then Exit Sub ' ca évite une indentation en plus
Dim lines() As String = Split(My.Resources.TextFile1, vbCrLf) ' déclaration et assignation sur la même ligne
For Each line As String In lines
If line.Contains(TextBox1.Text) Then ' inutile de faire une variable pour contenir textbox1.text, c'en est déjà une
TextBox2.Text = Split(line, "=")(1)
Exit For
End If
Next |
et après il y a linq pour encore gagner des lignes, ca permet de remplacer toute la boucle for par :
TextBox2.Text = (from l in lines where line.contains(TextBox1.Text) select Split(line, "=")(1)).FirstOrDefault
mais bon pour ca tu peux attendre de te renseigner sur linq to object et de comprendre la syntaxe
Partager