Question

VB代码怎样把listbox通过单击command按钮跳出窗体添加项目啊？有的话求源码，刚学不懂做，拜托了

Answer 1

'再添加一个窗体(比如Form2),在Form2上画一个文本框和一个按钮
'主窗体代码:
Private Sub Command1_Click() '主窗体的按钮单击事件
Form2.Show 1 '跳出Form2,参数1指的是窗体显示的方式为不能操作其它窗体,不加任何参数是正常显示
End Sub

'Form2窗体代码:
Private Sub Command1_Click() 'Form2的按钮单击事件
If Text1.Text = "" Then MsgBox "请输入!": Text1.SetFocus: Exit Sub '如果Form2的文本框为空则退出过程,即不执行下面的代码
Form1.List1.AddItem Text1.Text '主窗体的listbox添加Form2的文本框的数据
Unload Me '添加后退出Form2
End Sub