listbox列表框综合应用【VB学习笔记2020课堂版03】

简介 INTRODUCTION练习案例，课程目标：掌握listbox应用

尚未讲解的事件：

键盘按下事件：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

联系作者：刘金玉

长按关注公众号

编程创造城市官网：https://bcczcs.com/