Właściwość ItemDataWłaściwość ItemData ustawia lub zwraca wartość dla każdego elementu kontrolek ComboBox i ListBox.Składnia właściwości ItemData: obiekt.ItemData(Indeks) [= Wartość] Składnia właściwości ItemData składa się z części:
Właściwość ItemData jest tablicą typu Long o takich samych numerach elementów jak właściwość List. Można używać numery skojarzone z każdym elementem do identyfikowania ich. Np. można użyć numerów identyfikacyjnych pracowników umieszczonych na liście kontrolki ListBox. Przy wypełnianiu kontrolki ListBox należy wypełnić również odpowiedni element tablicy ItemData z numerami pracowników. Właściwość ItemData jest często wykorzystywana jako indeks tablicy struktury danych skojarzonej z elementami kontrolki ListBox. Podczas wstawiania elementów do kontrolki przy użyciu metody AddItem, element jest automatycznie dodawany do tablicy ItemData. Jednak jego wartość jest ustawiana na 0. Przy używaniu właściwości ItemData należy się upewnić, że wartość ta jest ustawiana dla każdego dodawanego elementu. Przykład użycia właściwości ItemData: Jeżeli w programie zadeklarowana zostanie tablica varTablica to można dodać jej elementy do listy List1 a indeksy tablicy do ItemData: Dim varI For varI = LBound(varTablica) To UBound(varTablica) 'pęlta dodająca wszystkie elementy tablicy do listy List1.AddItem varTablica(varI) 'dodaje element do listy List1.ItemData(List1.NewIndex) = varI 'dodaj indeks elementu z tablicy varTablica do ItemData Next varI Jeżeli lista List1 ma właściwość Sorted ustawioną na True, to indeks elementu listy będzie inny niż indeks tego elementu w tablicy varTablica. Można wtedy uzyskać indeks wybranego elementu w tablicy przez użycie właściwości ItemData. Np: varTekst = MsgBox (List1.List(List1.ListIndex)) 'wyświetla wybrany element listy List1 varTekst = MsgBox (List1.ItemData(List1.ListIndex)) 'wyświetla indeks tego elementu w tablicy varTablica Zmienne, deklaracje zmiennych, rozkaz For, funkcje LBound, UBound i MsgBox, metoda AddItem, właściwości NewIndex, List i ListIndex zostałe opisane w innych częściach kursu. Lista obiektów wykorzystujących właściwość ItemData: ComboBox ListBox |