前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >VB语言基础重要知识点12

VB语言基础重要知识点12

作者头像
刘金玉编程
发布2019-11-05 17:07:37
1.4K0
发布2019-11-05 17:07:37
举报
文章被收录于专栏:编程创造城市

一、有关考试的几个问题

首先,提问:考试最重要的是什么?

答案其实很简单:得分!!!!!

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

保存哪些文件呢?

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源代码:

代码语言:javascript
复制
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源代码:

代码语言:javascript
复制
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
本文参与 腾讯云自媒体同步曝光计划,分享自微信公众号。
原始发表:2019-10-30,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 编程创造城市 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档