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

如题所述

PrivateSubCommand1_Click()

ListBoxAdditemText1Text

EndSub

按钮

Combo1AddItemText1

Combo1Text=Text1

扩展资料:

事件及说明:

(1)标题栏显示“鼠标点击”,窗体显示“欢迎来到VB”。

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

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

(4)卸载事件。此事件在窗体卸载时触发。

(5)调整大小事件。当窗体大小发生变化时,将触发调整大小事件。

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

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

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

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

温馨提示:答案为网友推荐,仅供参考
第1个回答  推荐于2017-12-16
点击 添加 按钮。首先取到添加按钮上面那个文本框的text然后在左边列表矿中插入就行了本回答被网友采纳
第2个回答  2013-07-06
Private Sub Command1_Click()
List1.AddItem Text1.Text
End Sub
第3个回答  2013-07-06
list1.addItem textbox1.Text删除用remove selectitem