方法和详细的 *** 作步骤如下:
1、第一步,打开VB软件并在表单上添加一个列表框,见下图,转到下面的步骤。
2、第二步,执行完上面的 *** 作之后,单击列表框,然后在属性窗口中,设置列表框的已知属性和内容,见下图,转到下面的步骤。
3、第三步,执行完上面的 *** 作之后,在表单上,添加两个命令按钮,见下图,转到下面的步骤。
4、第四步,执行完上面的 *** 作之后,分别设置两个命令按钮的属性,见下图,转到下面的步骤。
5、第五步,执行完上面的 *** 作之后,双击“清除”命令按钮以编辑其代码,见下图,转到下面的步骤。
6、第六步,执行完上面的 *** 作之后,运行程序并验证结果。
在列表框中选择“语言”,然后单击“复制”命令按钮,然后将“语言”项复制到列表框中,见下图。这样,就解决了这个问题了。
PrivateSubCommand1_Click()
ListBoxAdditemText1Text
EndSub
按钮
Combo1AddItemText1
Combo1Text=Text1
扩展资料:
事件及说明:
(1)标题栏显示“鼠标点击”,窗体显示“欢迎来到VB”。
(2)双击鼠标事件。当程序运行时,双击表单中的一个位置将触发两个事件。第一次按下鼠标时,触发单击事件,第二次生成DblClick事件。
(3)初始化事件和加载事件。当程序运行时,当表单被加载到工作空间中时,它的加载事件会在表单启动后触发。因此,该事件通常用于在应用程序启动时初始化控制属性和变量。
(4)卸载事件。此事件在窗体卸载时触发。
(5)调整大小事件。当窗体大小发生变化时,将触发调整大小事件。
(6)激活和停用事件。激活,当一个对象成为活动窗口时发生。当窗体在程序运行过程中变为不活动时,对象成为一个不活动事件时,就发生了停用。
(7)MouseDown事件。当按下鼠标的任何键时发生
(8)MouseMove事件。当按下任何鼠标键并移动鼠标时发生。
(9)MouseUp事件。当释放任何鼠标键时发生。
.版本 2.程序集 窗口程序集1
.程序集变量 列表位置, 整数型
.子程序 _添加按钮_被单击
列表框1.插入项目 (列表位置, “想加入的文本内容”, )
列表位置 = 列表位置 + 1
.子程序 _保存按钮_被单击, , , 添加一个组件:通用对话框 把类型设为1(保存文件)
.局部变量 要保存的内容, 文本型
.局部变量 计次, 整数型
保存文件对话框.打开 ()
.如果真 (保存文件对话框.文件名 ≠ “”)
要保存的内容 = “”
.计次循环首 (列表框1.取项目数 (), 计次)
要保存的内容 = 要保存的内容 + 列表框1.取项目文本 (计次 - 1) + #换行符
.计次循环尾 ()
写到文件 (保存文件对话框.文件名, 到字节集 (要保存的内容))
.如果真结束
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)