équivalent itemdata en vb.net


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

Du même auteur (t3t3)