VB基础：掌握listbox和combobox控件的应用【VB学习笔记2020课堂版04】

简介 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

目标实现案例：

学生管理模块

软件设计界面：

源代码分享：

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/