richtextbox获取某行_richtextbox 光标_richtextbox和textbox(36)

习题：利用列表框创建一个输入省市名称的界面， 并能 将选择的省市名称加入到另一个列表框内

代码实现：

private sub command1_click() list1.additem text1.text end sub private sub command2_click() list2.additem list1.text end sub private sub list2_dblclick() list2.additem list1.text end sub

例7.2 设计一个选课程序

(1)创建应用程序的用户界面和设置对象属性

用户先在左列表框(list1)选择一个或多个选修课，当单击“显 示”按钮时，在右列表框(list2)中将显示出用户选中的所有课程。 单击“清除”按钮时，将清除右列表框中的内容

(2)编写程序代码

代码实现：

private sub form_load() list1.additem "电子商务" list1.additem "网页制作" list1.additem "internet简明教程" list1.additem "计算机网络基础" list1.additem "多媒体技术“ end sub private sub command1_click() list2.clear for i = 0 to list1.listcount - 1 if list1.selected(i) then

list2.additem list1.list(i)

"显示"按钮单击事件 清除列表框的内容 逐项判断 真时为选定

end if next i end sub private sub command2_click() list2.clear end sub

"清除"按钮单击事件

7.2 组合框

允许从已有的选项中进行选择，还允许输入列表中不包括的内容 列表框和文本框的组合 具有列表框和文本框的大部分属性和方法。独有的一些属性： (1)style属性：该属性取值为0，1或2，分别决定了组合框的 三种不同类型 下拉组合框(dropdown combo) 简单组合框( combo) 下拉列表框(dropdown list)

(2)text属性：该属性是用户所选定项目的文本或直接从 文本框输入的文本 组合框在使用上和列表框有许多类似之处，所以也有 list、listindex、listcount等属性会经常用到。 同样使用addttem、removettem、clear方法添加、删 除、清空项目。

例7.3 编制程序，把一批课程名放入组合框中，再对组合 框进行项目显示、添加、删除、全部删除等操作

(1)创建应用程序的用户界面 (2)设置对象属性 组合框的style属性为0 两个标签；四个命令按钮； 一个文本框text1，用来显示当前的选修课总课程 数

(3)编写程序代码 private sub form_load() combo1.additem "电子商务" combo1.additem "网页制作" combo1.additem "internet简明教程" combo1.additem "计算机网络基础" combo1.additem "多媒体技术" combo1.text = "" text1.text = combo1.listcount end sub

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-29087-36.html