Public Const LB_SETTABSTOPS = &H192
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd _
As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As _
Long
Aşağıdaki kodu list box’a ekleyin:
Dim rc As Long
Dim tabStops As Long
tabStops = 20
rc = SendMessage(List1.hwnd, LB_SETTABSTOPS, 1, tabStops)
List1.AddItem "Bu" & vbTab & "tabbed"
12-listbox kutucuğuna ekleme ve çıkarma?
List1.Clear ‘ listbox’ı temizler.
List1.AddItem ("Foo") ‘ Listbox’a Foo’yu ekler ve index 0
List1.AddItem ("Foo2") ‘Listbox’a "Foo2" ‘yi ekler ve index 1
List1.AddItem ("Foo3", 0) ‘Listbox’a "Foo3" ‘ü ekler ve index 0
List1.RemoveItem 0 ‘Listbox’tan kaldırır ve index of 0
List1.Clear ‘ listbox’ı temizler
For x = 0 To 8
List1.AddItem ("Foo" & 0) ‘ Birkaç maddeyi listbox’a ekler.
Next x
For x = 0 To List1.ListCount – 1
If List1.List(x) = "Foo6" Then
List1.RemoveItem x
Exit Sub
End If
Next x
13-ComboBox kutucuğuna ekleme ve çıkarma?
Combobox’a ekleme:
Combo1.AddItem "Item"
Combobox’tan kaldırma:
Combo1.RemoveItem Index (0 based)