Question

vb6中,如何向 Listbox 中添加项目或数组中的各个值?

a(0)="a"
a(1)="b"
将以上添加到List1中

Answer 1

' --- 完整程序如下, VB6 ---
'添加1个Form，Name=Form1
'添加1个ListBox, Name=List1
'添加1个TextBox, Name=Text1

Option Explicit

Private Sub Form_Load()
List1.AddItem "item1"
List1.AddItem "item2"
List1.AddItem "item3"
End Sub

Private Sub Command1_Click()
Dim N As Integer
For N = 0 To List1.ListCount - 1
If Text1.Text = List1.List(N) Then
'--- 显示对话框 ---
MsgBox "Item found! Index = " + CStr(N)
Exit For
End If
Next N
End Sub
' --- 完整程序如上, VB6 ---