在文本框中输入文字，单击“添加”按钮，则将文本框中文字添加到列表框中

PrivateSubCommand1＿Click（）

ListBoxAdditemText1Text

EndSub

按钮

Combo1AddItemText1

Combo1Text＝Text1

扩展资料：

事件及说明：

（1）标题栏显示“鼠标点击”，窗体显示“欢迎来到VB”。

（2）双击鼠标事件。当程序运行时，双击表单中的一个位置将触发两个事件。第一次按下鼠标时，触发单击事件，第二次生成DblClick事件。

（3）初始化事件和加载事件。当程序运行时，当表单被加载到工作空间中时，它的加载事件会在表单启动后触发。因此，该事件通常用于在应用程序启动时初始化控制属性和变量。

（4）卸载事件。此事件在窗体卸载时触发。

（5）调整大小事件。当窗体大小发生变化时，将触发调整大小事件。

（6）激活和停用事件。激活，当一个对象成为活动窗口时发生。当窗体在程序运行过程中变为不活动时，对象成为一个不活动事件时，就发生了停用。

（7）MouseDown事件。当按下鼠标的任何键时发生

（8）MouseMove事件。当按下任何鼠标键并移动鼠标时发生。

（9）MouseUp事件。当释放任何鼠标键时发生。

点击 添加 按钮。首先取到添加按钮上面那个文本框的text然后在左边列表矿中插入就行了

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

list1.addItem textbox1.Text删除用remove selectitem