VB语言基础重要知识点12

一、有关考试的几个问题

首先，提问：考试最重要的是什么？

答案其实很简单：得分！！！！！

想要得分，就要做到基本的保存。

保存哪些文件呢？

1.窗体代码的文件frm扩展名的文件

2.工程文件vbp扩展名

3.应用程序文件exe扩展名

如何查看文件扩展名？

组织----文件夹和搜索选项-----查看-----去掉“隐藏已知类型的扩展名”这个勾

对于报错的心态？

把握正确的处理心态，把报错看成是一种引导提示，帮助我们解决问题。

timer时钟要启动必须要有两个要点：

1.配置时间间隔internal单位为毫秒，1秒=1000毫秒

2.配置是否可用熟悉enabled为true才能运行。如果为false那么是不能运行的。

二、基本复习知识点

form窗体初始化加载的事件：Form_Load

如何通过代码设置label标签的字体？

有关字体的配置：

FontName 设置字体类型

FontSize 设置字体大小

FontBold 设置字体加粗

FontItalic 设置字体倾斜

FontUnderline 设置字体加上下划线

FontStrikethru 设置字体的删除线

使用方法：

Label1.FontName = "华文行楷"

Label1.FontSize = 60

Label1.FontBold = True

Label1.FontItalic = True

Label1.FontUnderline = True

Label1.FontStrikethru = True

三、新学一个控件

listbox列表框

listbox所在控件列表位置

在listbox中，加入的内容是一项一项的，我们可以将列表框中的内容单独取出或者加入。

提问：如何在录入属性的时候连续录入呢？

每一个项目的内容录入在list属性中

需要按住快捷键ctrl+enter进行下一项录入。

但是，实际上，往往在项目中，更多的是在代码中往listbox中添加项目。

代码添加一项，通过AddItem方法进行添加。

使用方法：

list控件对象.AddItem 字符串类型

获取listbox控件中的项目

通过list属性进行获取，注意这个list属性是一个数组。

数组的索引默认情况下是从0开始的。

所以第一项的索引是0

第二项的索引就是1

使用方法：

List1.List(这里填写索引项目)

从listbox中删除一个项目，使用函数RemoveItem

使用方法：

List1.RemoveItem 这里填写要删除的索引。

ListIndex代表当前listbox中被选中的这一行的索引。

当listindex的值为-1时代表listbox中的项目没有被选中。

所以，我们可以通过这个值的判断进行友情提示，防止报错！

判断代码：

If List1.ListIndex = -1 Then

MsgBox "请选择项目"

Else

List1.RemoveItem List1.ListIndex

End If

提问：如果一个专业有五个班，我们如果在添加的时候一次添加5个班级？

例如：专业为“18软件”，点击“添加”按钮后，在listbox中要立即出现18软件1、18软件2、18软件3、18软件4、18软件5

通过for循环来实现。

For i = 1 To 5 Step 1

List1.AddItem Text1.Text & i

Next i

本节教程相关源代码：

工程文件列表：

form1窗体设计：

form1

form1源代码：

Private Sub Form_Load()
Label1.FontName = "华文行楷"
Label1.FontSize = 60
Label1.FontBold = True
Label1.FontItalic = True
Label1.FontUnderline = True
Label1.FontStrikethru = True
End Sub

Private Sub Timer1_Timer()

If Label1.Caption = "0" Then
    Timer1.Enabled = False
    Form2.Show
    Form1.Hide
Else
    Label1.Caption = Val(Label1.Caption) - 1
End If

End Sub

form2界面设计：

form2

form2源代码：

Private Sub Command1_Click()
For i = 1 To 5 Step 1
    List1.AddItem Text1.Text & i
Next i

End Sub

Private Sub Command2_Click()
If List1.ListIndex = -1 Then
    MsgBox "请选择项目"
Else
    List1.RemoveItem List1.ListIndex

End If
End Sub

Private Sub Command3_Click()
MsgBox List1.List(1)
End Sub