vb6.0中如何将text,combo中内容写入listbox中

2025-04-03 18:49:41
推荐回答(2个)
回答1:

'Private Sub Command1_Click()
'List1.AddItem Text1
'For i = 0 To Combo1.ListCount - 1
'List1.AddItem Combo1.List(i)
'Next
'End Sub

Private Sub Command1_Click()
List1.AddItem Text1
List1.AddItem Combo1.Text
End Sub

回答2:

dim a() as string
a=split(text,vbCrLf)
for i = 0 to ubound(a) - 1
list.additem i
next