尚未讲解的事件:
键盘按下事件:KeyDown 只要按住键盘的键,那么会一直执行这个事件
键盘按键事件:KeyPress 只有按下的那一刻产生一次事件
键盘按键弹起事件:KeyUp 一次按下,只产生一次。
鼠标按下事件:MouseDown
鼠标移动事件:mouseMove
鼠标按键弹起事件:MouseUp
窗体大小改变事件:resize
回顾知识,符合以下要求任务练习:
1.在代码界面实现标题修改为:“考生姓名:”+实际姓名
2.设计界面形如案例
3.点击“登记”按钮,弹出消息对话框(inputbox)
对话框标题: 考生登记
对话框内容: 请输入考生姓名...
4.将输入的考生姓名,加入到list1列表中
5.点击“统计人数”按钮,弹出消息框提示列表list1中的实际行数。(消息框类型vbInformation,标题为“提醒”)
6.点击“清空”按钮,可以清空list1列表
7.保存frm文件名称为“mytest1”,保存vbp文件名称为“myproject1”
课程目标:掌握listbox应用
1.增加 additem方法
2.移除 removeItem方法
3.清空 clear方法
4.修改 = 移除+插入
5.插入 additem使用第二个参数定位
6.统计项数 listcount
目标实现案例:
1.增加 additem方法
使用案例: List1.AddItem "刘金玉"
2.移除 removeItem方法
案例:list1.removeItem 2 '移除第3项
3.清空 clear方法
案例:list1.clear '清空Listbox中所有项目
4.修改 = 移除+插入
5.插入 additem使用第二个参数定位
案例:list1.additem "刘金玉",3 '将“刘金玉”添加到第4项
6.统计项数 listcount
案例:list1.listcount '返回一个数量
字符串空格处理:
trim函数可以去除字符串两边的空格
ltrim函数可以去除字符串左边的空格
rtrim函数可以去除字符串右边的空格
数组知识补充:
数组:一组变量(类似特征的),索引从0开始。
假设
变量a=1
变量b=3
变量c=8
如果有一个数组变量d
赋值方法
d(0)=1
d(1)=3
d(2)=8
listbox控件中的每一项都有一个索引,默认第一个项的索引为0,类似数组。
软件设计界面:
源代码分享:
Option Explicit Private Sub Command1_Click() List1.AddItem InputBox("请输入考生姓名...", "考生登记") End Sub Private Sub Command2_Click() MsgBox List1.ListCount, vbInformation, "提醒" End Sub Private Sub Command3_Click() List1.Clear End Sub Private Sub Form_Load() Form1.Caption = "考生姓名:刘金玉" End Sub