Problème ListBox en VB.NET
Résolu/Fermé
majdou345
Messages postés
62
Date d'inscription
vendredi 10 août 2007
Statut
Membre
Dernière intervention
10 juillet 2009
-
26 févr. 2009 à 13:32
majdou345 Messages postés 62 Date d'inscription vendredi 10 août 2007 Statut Membre Dernière intervention 10 juillet 2009 - 26 févr. 2009 à 13:57
majdou345 Messages postés 62 Date d'inscription vendredi 10 août 2007 Statut Membre Dernière intervention 10 juillet 2009 - 26 févr. 2009 à 13:57
A voir également:
- Problème ListBox en VB.NET
- Listbox vba ✓ - Forum VB / VBA
- Telecharger vb.net - Télécharger - Langages
- Tp vb.net + correction pdf - Forum VB / VBA
- Vba listbox additem ✓ - Forum VB / VBA
- Vba listbox additem plusieurs colonnes ✓ - Forum VB / VBA
1 réponse
majdou345
Messages postés
62
Date d'inscription
vendredi 10 août 2007
Statut
Membre
Dernière intervention
10 juillet 2009
1
26 févr. 2009 à 13:57
26 févr. 2009 à 13:57
Ah sava je l'ai trouvé par moi mème la solution
voici la solution pour ceux qui sont interessés:
Grapheme = InputBox("Ajouter un graphème:", "Ajout Graphème")
If Grapheme <> "" Then
For i = 0 To ListBox1.Items.Count - 1
If ListBox1.Items(i) = Grapheme Then
MsgBox("cet élèment existe déja dans la liste", MsgBoxStyle.Critical, "Doublement Graphème")
i = -1
Exit Sub
End If
Next
ListBox1.Items.Add(Grapheme)
MsgBox("Il faut que vous ajoutez le contexte gauche,le contexte droit et la chaine résultat de ce graphème", MsgBoxStyle.Information, "Notification")
End If
If Grapheme = "" Then
MsgBox("Vous n'avez pas ajouté de graphèmes", MsgBoxStyle.Exclamation, "Ajout graphème")
End If
voici la solution pour ceux qui sont interessés:
Grapheme = InputBox("Ajouter un graphème:", "Ajout Graphème")
If Grapheme <> "" Then
For i = 0 To ListBox1.Items.Count - 1
If ListBox1.Items(i) = Grapheme Then
MsgBox("cet élèment existe déja dans la liste", MsgBoxStyle.Critical, "Doublement Graphème")
i = -1
Exit Sub
End If
Next
ListBox1.Items.Add(Grapheme)
MsgBox("Il faut que vous ajoutez le contexte gauche,le contexte droit et la chaine résultat de ce graphème", MsgBoxStyle.Information, "Notification")
End If
If Grapheme = "" Then
MsgBox("Vous n'avez pas ajouté de graphèmes", MsgBoxStyle.Exclamation, "Ajout graphème")
End If