前言

天下初中生苦VB久矣

VB确实可以在某种程度上帮助我们使用Windows

但是?

目前来说像Python Search 易语言这些语言也可以迅速帮助我们使用Windows

而且他们还在快速迭代,VB就不是了,不过不可否认的是VB入门门槛在某种意义上来说更低

这里说明应付而不是掌握的原因(为什么不真正去学VB)

如果真的想进阶VB可以去微软visual-basic文档进行具体学习

主要就是: 13年没有更新,msdn不支持,网上教程/样例难找

其次是: 支持的优秀的库很少很难,有兴趣的可以去搜一下VB文件处理

开始

本文所有教程全部基于VB 6.0

安装

完整教程

简略教程:

  1. 下载VB编译器
  2. 解压后运行SETUP.EXE
  3. 全部下一步即可,序列号是”111-1111111”

图形概念

  1. 窗体(可以看作是一个很大的控件): 一个存放控件的容器
    PS: 放苹果的篮子

  2. 控件: 实现功能的工具

    PS: 各种苹果

属性

个性化调整控件的样式

PS: 调整苹果、篮子的大小、颜色等

  1. 可视化

    1. 选中控件(单机选中)
    2. 右下角属性窗口中调整
      PS: 单机属性名时,最下方会有其属性的详细注释(告诉你这个属性是用来调整大小还是颜色的)
  2. 代码

    1
    2
    3
    控件名.属性名=属性值
    e.g.1: 苹果A.颜色=红色
    e.g.2: 苹果B.毒性=剧毒

代码

变量

变量就是一个个存储信息的容器

VB中一般使用Integer``String类型

一般定义方法:

1
2
3
4
5
Dim A,B As Integer
Dim C As Float
Dim D As Double
Dim str As String
Dim lst As New List(Of Integer) From {10, 20, 30, 40}

特殊运算符

=: 赋值符号和等于号

1
2
3
4
5
Dim a As Integer
a=1
If a=1 Then
Print a
End If

&: 连接符号(连接时要隔一个空格)

1
2
3
4
Dim a,b As String
a="hello"
b="world"
Print a & b '书写时必须用空格隔开

判断语句(分支语句)

用于选择性执行代码

这是基本格式:

e.g.1
1
2
3
4
e.g.1 (最普通的If)
If 条件表达式 Then
...
End If
e.g.2 (带Else的If)
1
2
3
4
5
If 条件表达式 Then
...
Else
...
End If
e.g.3 (If嵌套)
1
2
3
4
5
6
7
8
If 条件表达式 Then
...
Else If 条件表达式 Then
...
Else
...
End If
End If
example
1
2
3
4
5
6
7
8
9
10
11
If 1+1=2 Then
Print "1+1=2"
Else If 1+1=3 Then
Print "1+1=3"
Else If 1+1=4 Then
Print "1+1=4"
Else
Print "1+1=5"
End If
End If
End If

当然,你可以无限If下去

进阶(Select)

1
2
3
4
5
6
Select Case 表达式
Case
...
Case
...
End Select
example
1
2
3
4
5
6
7
8
9
10
Select Case 1+1
Case 1 To 5
Print "1<=1+1<=5"
Case 6,9,12
Print "1+1=6或9或12"
Case 8
Print "1+1=8"
Case Else
Print "1+1=?"
End Select

当然你可以无限Case下去

循环语句

适用于重复动作,其中Timer控件其实就是一个延时循环体结构

1
2
3
For 计数变量名=值 [As 变量类型] To 值 [Step 值]
...
Next [计数变量名]

这个不是很好理解

还是看example

e.g.1(从1加到100)
1
2
3
4
5
6
Dim i,a As Integer
a=0
For i=1 To 100 Step 1
a=a+i
Next i
Print a

你也可以这样(Step默认1,Next在单循环情况下可省略,循环计数变量会自动定义)

1
2
3
4
5
6
Dim a As Integer
a=0
For i=1 To 100
a=a+i
Next
Print a
e.g.2(输出10-100中的奇数)

注意:

  1. 多层循环不能省略Next
  2. 步长非1不能省略Step
1
2
3
4
5
For i=1 To 10 	
For j=1 To 9 Step 2
Print String(i) & String(j)
Next j
Next i

进阶

循环还有很多种,这两种比较重要,最好掌握

不过考试中一般只考For,所以只为了考试的话就不用进阶了

1
2
3
Do while 条件
...
Loop
1
2
3
4
5
6
7
8
9
10
11
Dim bool Boolean
Dim i Integer
i=1
bool=1
Do while bool
Print i
i=i+1
If i=100
bool=0
End If
Loop

其他

这里以考试的标准来

标’*’的是真实标准与考试标准矛盾的,有兴趣的可以去试试

  1. *Textbox最多输入2048个字符

  2. Image控件载入图片的方法:

    1
    对象名.Picture=LoadPicture("Path")
    1
    Img.Picture=LoadPicture(App.Path & "a.jpg")