équivalent itemdata en vb.net

Soyez le premier à donner votre avis sur cette source.

Snippet vu 1 774 fois - Téléchargée 5 fois


Commenter

Contenu du snippet

en vb.net il n'existe pas de valeur itemdata
ce petit bout de code y remedie.
allez dans la procédure listbox_additem(ByVal sender As Object, ByVal index As Integer, ByVal value As String)
lorsque l'on ajoute un élément
allez dans la procédure listbox_removeitem(ByVal sender As Object, ByVal index As Integer)
lorsque l'on supprime un élément
utiliser itemdata =nothing pour remettre a zéro le tableau itemdata
Code: 
Dim itemdata() As String ''tableau itemdata pour listbox/combobox
''on ajoute une entrée a une listbox/combobox
Private Sub listbox_additem(ByVal sender As Object, ByVal index As Integer, ByVal value As String)
 Dim n As Integer
 If itemdata Is Nothing Then
  n = 0
 Else
  n = itemdata.GetUpperBound(0) + 1
 End If
 ReDim Preserve itemdata(n) ''on redimmensione le tableau ItemData
 itemdata(index) = value ''on affecte la valeur
End Sub
''on supprime une entrée a une listbox/combobox
Private Sub listbox_removeitem(ByVal sender As Object, ByVal index As Integer)
 Dim n As Integer, i As Integer
 Dim tp() As String
 ReDim tp(itemdata.GetUpperBound(0)) 'on crée un tableau temporaire d'itemdata
 n = sender.items.count - 1
 n = -1
 For i = 0 To itemdata.GetUpperBound(0)
  tp(i) = itemdata(i)
  If i <> index Then
   n = n + 1
   itemdata(n) = tp(i)
  End If
 Next
 ReDim Preserve itemdata(n) 'on supprime le tableau temporaire
 Erase tp
End Sub

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de t3t3
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (t3t3)