简介 INTRODUCTIONlistbox列表框控件和combobox组合框控件的用法类似，只是界面风格不同。
课题04 列表框和自动输入框的综合使用
授课：刘金玉
回顾知识，符合以下要求任务练习学生管理功能模块：
1.界面制作
2.功能开发
课程目标：VB基础：掌握listbox和combobox控件的应用
理解：listbox列表框控件和combobox组合框控件的用法类似，只是界面风格不同。
1.增加 additem方法
要求能够将添加的项目，添加到指定的位置。
additem 参数1，参数2
参数1：需要加入的项目内容
参数2：加入的位置（索引位置，默认索引从0开始）
val函数：可以将字符串类型转为数值类型。
使用方法：val(字符串) 将返回一个数值类型的数据
val详解：从字符串的左侧开始检测是否是数字，直到检测到非数字位置，将检测到的数字转为数值。
字符串的值：
1）空 结果是 0 字符串""就是空
2)"123" 结果是123
3）"aaa" 结果是0
4) "aa22"结果是0
5）"，12"结果是0
6）"66abc"结果是66
7）"66abc77"结果是66
8)"刘金玉123"结果是0
9）"567编程"结果是567
10）" "结果是0
在pictruebox中打印文字，需要加上控件的名称。
对比在form窗体打印：print "内容"
在pictruebox中打印：picture1.print "内容"
写代码基本要求：
不同层次的代码要求缩进一个tab
一个tab相当于4个空格
符号表示：
integer % 整型 dim i% 相当于 dim i as integer
string $ 字符串型（文本型）
long & 长整型
single ! 单精度浮点型
double # 双精度浮点型
如何测试变量的数据类型？
通过使用方法TypeName(变量)，返回数据类型。
获取listbox列表框控件的项数：listcount方法
通过索引获取列表框中指定项的文本：list(索引) 方法
案例：遍历列表框中的所有项目
Dim i%
For i = 0 To List1.ListCount - 1 Step 1
Picture1.Print List1.List(i)
Next i
提高：将姓名列表输出到pictruebox中的一行上？
只需要结合符号分号;
以下方法的使用，这两个控件都一样：
2.移除 removeItem方法
3.清空 clear方法
4.修改 = 移除+插入
5.插入 additem使用第二个参数定位
6.统计项数 listcount
目标实现案例：
学生管理模块
软件设计界面：
源代码分享：
代码语言：javascript复制Option Explicit
Private Sub Command1_Click()
If Text5.Text = "" Then
Combo1.AddItem Text1.Text
Else
Combo1.AddItem Text1.Text, Val(Text5.Text)
End If
End Sub
Private Sub Command2_Click()
Combo2.AddItem Text2.Text
End Sub
Private Sub Command3_Click()
If Text4.Text = "" Then
List1.AddItem Text3.Text
Else
List1.AddItem Text3.Text, Val(Text4.Text)
End If
End Sub
Private Sub Command5_Click()
MsgBox Val(" ")
End Sub
Private Sub Command6_Click()
'Picture1.Print "刘金玉"
Dim i%
For i = 0 To List1.ListCount - 1 Step 1
Picture1.Print List1.List(i)
Next i
End Sub
Private Sub Command7_Click()
Dim a#
MsgBox TypeName(a)
End Sub
联系作者：刘金玉
长按关注公众号
编程创造城市官网：https://bcczcs.com/