您的位置:首页 > 编程语言 > VB

vb学习笔记

2015-03-17 16:38 211 查看
参考书籍:Visual Basic程序设计项目教程/郭晓平,朱鸣华著.—北京:机械工业出版社,2014.2

测试环境:Visual Studio 2010 专业版

Visual Basic 集成开发环境

IDE 各部分介绍

窗口名主要功能
主窗口其他各类窗口的容器
设计窗口提供代码编辑、可视化编程的主要工作空间
工具箱窗口添加各类控件
属性窗口修改各类控件属性
解决方案资源管理器管理解决方案文件(.sln)、项目文件(.vbproj)和模块文件(.vb)

项目的创建与运行

Windows 窗体应用程序的创建

执行“文件/新建/项目/Windows窗体应用程序”,输入“项目名”,执行“确定”

在“解决方案资源管理器中”右击项目名,执行“添加/添加Windows窗体”,输入“名称”,执行“添加”

编辑完成按“Ctrl+F5”运行

控制台应用程序的创建

执行“文件/新建/项目/控制台应用程序”,输入“项目名”,执行“确定”

编辑完成按“Ctrl+F5”运行

窗体和基本控件

窗体

设置启动窗体

在“解决方案资源管理器”中右击项目名,执行“属性”,在弹出的对话框中,确定启动窗体

窗体常用成员

属性:Name、text、BackColor、ForeColor、Font、Location(x,y)、Icon、MinButton、MaxButton、ControlBox、FormBorderStyle、WindowsState、BackGroundImage、StartPosition

方法:Show()、Close()

时间:Load、Click

窗体的设计技巧

以组为单位对控件设置属性值

用“格式”菜单编辑控件组

编辑控件的Tab顺序

基本控件

控件的属性

控件的基本属性:

Name、Text、Location(x,y)、Size(Width,Height)、Enable、Visible、Fone、BackColor、Cursor

控件的方法

控件名称.方法名称


控件的事件

事件的语法格式

Private Sub 控件名_事件名(事件参数)
事件响应的代码
End Sub


用Handles 语句共享事件处理程序

声明时关联 Handles

Private Sub 过程名(事件参数) Handles 控件名1.事件名1,控件名2.事件名2


其中,“过程名”默认为“控件名1_事件名1”格式

动态关联 AddHandler

AddHandler 事件,AddressOf 处理程序


解除关联 RemoveHandler

RemoveHandler 事件,AddressOf 处理程序


常用控件的主要成员

控件名称主要成员
LabelAutoSize、BackColor、BordersSyle、Image、TextAlign
ButtonAutoSize、FlatStyle、Image、ImageAlign、TextAlign、TextImageRelation
PoctureBoxImage、BorderStyle、SizeMode、Hide
TextBoxCharaterCasing、MultiLine、PasswordChar、ScrollBars、AppendText()、KeyPress()、TextChanged()
GroupBoxText
PanelAutoScroll
ToolTipEnabled
TimerEnabled、InterVal、Tick()

Visual Basic 语法基础

编码规则

VB中代码不区分大小写

单个语句用“_”拆分为多行,多个语句用“:”合并在一行

注释以单引号“’”打头

标准数据类型

标准数据类型

数据类型关键字类型符存储长度/Byte
整型Integer%4
单精度型Single4
字符串型String$
布尔型Boolean2
日期型Date8
对象Object4

标准类型间的转换

扩展型转换

向存储长度大于等于原始数据长度的数据类型转换,一般不导致数据失真

紧缩型转换

向存储长度小于原始数据长度的数据类型转换,通常导致数据失真

显式转换

通过类型转换函数执行的转换

常用类型转换函数:

CBool、CDate、CInt、CObj、CSng、CStr、CType

隐式转换

系统自动执行的转换,在VB中将隐式转换限制在扩展转换,通过“工具/选项/项目和解决方案/VB默认值/Option Strict”更改

常量与变量

常量

常量的声明

[Public|Private] Const 常量名 [As 数据类型] = 表达式


系统预定义常量

预定义常量名说明
vbCrlf回车/换行组合符
vbCr回车符
vbLf换行符
vbNewLine换行符
vbTabTab字符
vbBack退格字符

变量

变量的声明

Dim 变量名 [As 类型]


4000

Dim 变量名类型符


Visual Basic 2010 支持变量不声明就使用,将“工具/选项/项目和解决方案/VB默认值/Option Explicit”设置为 Off 启用

运算符

算术运算符

^、-、*、/、\、mod、+、-

关系运算符

=、<>、>、<、>=、<=

逻辑运算符

Not、And、Or

赋值运算符

=、+=、-=、*=、/=、\=、^=、&=

字符串运算符

&、+

常用内部函数

数学函数

Abs、Cos、Sin、Tan、Exp、Log、Pow、Sqrt

字符串函数

Format、FormatDateTime、InStr、LCase、Left、Len、LTrim、Mid、Right、RTrim、Space、StrComp、Trim、UCase

日期时间函数(属性)

Now、Hour、Minute、Second、Year、Month、Day、DateAdd、DateDiff、WeekDay、Today、TimeOfDat

随机函数

Randomize、Rnd

转换函数

Asc、Chr、Str、Val

格式化输出函数

Format(表达式,格式化字符串)

控制结构

顺序结构

赋值语句

目标操作符 = 表达式


控制台输入/输出

Consloe.Read()


Consloe.ReadLine()


Consloe.Write(格式,参数列表)


Consloe.WriteLine(格式,参数列表)


其中格式化字符如下:

字符功能
C或c以货币形式显示数据,以$开头
Dn或dn以指定n位数显示十进制数据,空白处补0
E或e以指数形式显示数据
Fn或fn以n位小数显示数据
G或g以一般格式显示
N或n使用千位符号,若为N1,表示保留一位小数,若为N或N2,表示保留两位小数

选择结构

If 块结构

If-Then 语句

If 条件表达式 Then
语句块
End If


语句在一行内时可省略
End If
语句

If 条件表达式 Then 语句块


If-Then-Else 语句

If 表达式 Then
语句块1
Else
语句块2
End If


If-Then-ElseIf 语句

If 表达式1 Then
语句块1
ElseIf 表达式2 Then
语句块2
ElseIf 表达式3 Then
语句块3
…
[Else
语句块 n+1]
End If


If 语句的嵌套

If <表达式1> Then
If <表达式2> Then
…
End If
…
End If


Select Case 语句

Select Case 测试条件
Case 表达式列表1
[语句块1]
Case 表达式列表2
[语句块2]
…
Case 表达式列表n
[语句块n]
End Select


其他选择结构

IIf 条件函数

IIf(表达式,当表达式为True时的返回值,当表达式为False时的返回值)


Choose 函数

Choose(整数表达式,值为1的返回值,值为2的返回值… )


循环结构

For-Next 语句

For 循环变量 [As 数据类型] = 初值 to 终值[Step 步长]
语句块1
[Exit For
语句块2]
Next [循环变量]


While 循环

While 条件
语句块1
[Exit While
语句块2]
End While


Do-Loop 循环

前测型循环结构

Do {While|Until} 条件
语句块1
[Exit Do
语句块2]
Loop


后测型循环结构

Do
语句块1
[Exit Do
语句块2]
Loop {While|Until} 条件


循环辅助控制语句

GoTo 语句

GoTo 语句用于无条件地转向指定位置处执行,一般不使用

GoTo mark


Exit 语句

Exit 语句可以退出任何过程或块

Exit [Do|For|Select|While|…]


End 和Stop 语句

End 语句强制应用程序停止运行

Stop 语句中止执行,不关闭任何文件或清除任何变量,相当于在程序中设置断点

With 语句

With 语句用来执行重复引用一个个体的一系列语句

With 个体名
语句块
End With


数组、枚举和集合

数组

数组的声明

一维数组

Dim 数组名 ([下标上界]) [As 数据类型]


一维数组中元素的引用

数组名(索引)


多维数组

Dim 数组名([下标上界1],[下标上界2],[下标上界3]…) [As 数据类型]


多维数组中元素的引用

数组名(索引1,索引2,索引3…)


动态数组

在VB中,规定不能改变已声明数组的维数,但可以通过
ReDim
语句改变已声明数组的大小

ReDim [Preserve] 数组名 (下标上界)


'例程:
Dim array_sample(,) As Integer
ReDim array_sample(3,3)


'例程:
Dim array_sample(10,10) As Integer
ReDim Preserve array_sample(10,15)


Array 类

名称说明
Length获得数组的所有维数中元素的总数
Rank获得数组的维数
Clear()将数组中的一系列元素设置为0、False或Nothing
Copy()将一个数组的一部分元素复制到另一个数组中
CopyTo()将当前一维数组的所有元素复制到指定的一维数组中
GetLength()获取数组的指定维中的元素数
GetLowerBound()获取数组中指定维度的下界
GetUpperBound()获取数组中指定维度的上界
GetValue()获取当前数组中指定元素的值
Revserse()反转一维数组或部分数组中元素的顺序
SetValue()将当前Array中的指定元素设置为指定值
Sort()对一维数组中的元素进行排序

枚举

声明枚举类型

[访问权限] Enum 枚举名
成员名 [=常量表达式]
成员名 [=常量表达式]
…
End Enum


引用枚举类型

枚举类型变量名.成员名


集合

集合的创建

Dim 集合名 As New Microsoft.VisualBasic.Collection


集合的常用成员

成员说明
Count集合中元素总数
Item索引,从1开始
Clear()清空集合并移除所有元素
Add(Value,[Key])向集合中添加集合元素
Remove(Index|Key)从集合中移除指定元素
Contains(Key)判断元素是否存在

For Each-Next 遍历集合

For Each-Next 语句也适用于数组,但不能用于枚举

For Each 变量名 [As 数据类型] In 集合名
[语句块1]
[Exit For
语句块2]
Next 语句


函数与过程

Function 函数

定义Function 函数

[访问权限] Function 函数名([形参列表]) As 数据类型
语句块1
函数名 = 表达式
[Return 语句]
[Exit Function
语句块2]
End Function


形参说明

[ByVal|ByRef] 变量名 [()] [As 类型]


其中,
ByVal
表示值传递
ByRef
表示地址传递

Sub 子过程

定义Sub 子过程

[访问权限] Sub 子过程名 [形参列表]
[语句块1]
[Exit Sub
语句块2]
End Sub


调用Sub 子过程

使用
Call
语句

Call 子过程名(实参列表)


直接用子过程名

子过程名 实参列表


形参与实参

形参与实参的概念

形参是定义过程时在过程中出现的形式参数,实参是调用过程时传递的实际参数

对应方式

实参和形参的对应方式有以下两种:

按位置对应

按名称对应

参数的传递方式

实参数的传递方式有以下两种:

传值:通过
ByVal
实现

传地址:通过
ByRef
实现

嵌套与递归调用

嵌套

在一个过程中调用另一个过程,称为过程的嵌套调用

递归

过程直接或间接地调用自身,称为过程的递归调用

作用域

块作用域

块作用域也称为结构作用域,结构是由两条对应语句组成的编码区,例如
If-Then
结构,
Do-Loop
结构。结构内创建的变量,在结构结束后被自动销毁

过程级作用域

在过程内部声明的变量,其作用域是过程级的,通常称为局部变量,其他过程不可访问。如果在过程中没有声明而直接使用某个变量,该变量也是局部变量。过程体结束后,局部变量自动消失

模块级作用域

凡是用
Private
Dim
关键字,在窗体模块的通用声明段或在标准模块声明的变量都是模块级变量。模块级变量可以被所声明的模块中的任何过程访问,其作用域是其所在的模块。使用模块级变量主要解决多个事件过程、过程间数据的共享

全局作用域

标准模块的声明区中,用
Public
声明的变量都是全局变量。全局变量的作用域是整个应用程序,即可被应用程序的任何过程访问,无论过程所处在哪个模块

静态变量

Static 变量名 As 数据类型


只能对局部变量使用
Static
,即只能在过程或过程中的块内声明静态变量

类和对象

对象是类的实例,类是对象的抽象

类和类的变量

创建类

[访问权限] Class 类名
Public 若干成员
Private 若干成员
Protected 若干成员
End Class


省略“访问权限”时默认为
Public


创建类的变量

Dim 类变量名 As New 类名([初始化列表])


对象变量的释放

类变量名 = Nothing


命名空间

声明命名空间

Namespace 命名空间名
若干成员
…
End Namespace


“命名空间”内可以定义“子命名空间”

命名空间内成员的引用

命名空间名.成员名


设置字段和属性

字段

类的字段仅用于类内的数据成员,不与类外程序交互

[Private|Protected] 字段名 As 数据类型


属性

类的属性既用于类内,也可以与类外程序交互

自动实现的属性

Public Property 属性名 As 数据类型


“自动实现的属性”的基本属性自动在后台创建,并为属性过程提供基本逻辑

完整定义属性

'例程:
Class SampleClass
Private m_Sample As String
'定义字段变量
Public Property Sample() As String
'定义属性过程
Get
'定义读取字段变量的值
Return m_Sample
End Get
Set(ByVal Value As String)
'定义写入字段变量的值
m_Sample = Value
End Set
End Property
End Class


建立只读属性

使用
ReadOnly Property
语句

[访问权限] ReadOnly Property 属性名 As 数据类型


使用
Property
语句,不提供
Set-End Set
方法

建立只写属性

使用
WriteOnly Property
语句

[访问权限] WriteOnly Property 属性名 As 数据类型


使用
Property
语句,不提供
Get-End Get
方法

成员函数

[访问权限] Sub 子过程名[(参数列表)]
过程语句块
End Sub


[访问权限] Function 函数名[(参数列表)]
函数语句块
End Function


构造函数和析构函数

构造函数

Public Sub New(参数列表)
语句块
End Sub


析构函数

Protected Overrides Sub Finalize()
语句块
End Sub


重载

使用重载必须有相同的名称,但必须有不同的形参列表。在一个类中重载属性或过程,可选用
Overloads
修饰符,但是若在某个声明中使用了
Overloads
修饰符,则在所有声明都得使用。重载构造函数不能用
Overloads
修饰符

Class ClassSapmle
Public Overloads Function Sum(ByVal x As Integer,ByVal y As Integer)
Sum = x + y
End Function
Public Overloads Function Sum(ByVal x As Single,ByVal y As Single)
Sum = x + y
End Function
End Class


共享成员

共享成员仅有一个副本,通过类来使用

[访问权限] Shared 共享成员名 As 数据类型 = 初始值


继承和多态

继承

Public Class 类名
Interits 父类名
语句块
End Class


Public Class 类名 : Interits 父类名
语句块
End Class


多态性

子类中重新定义父类的成员,必须将父类的成员声明为
Overridable
,子类的成员定义为
Overrides


多媒体编程

GDI+ 绘图

创建Graphics 类变量

在窗体或控件的
Paint
事件中,通过
PaintEventArgs
参数中的
Graphics
来获得

Dim graphic1 As System.Drawing.Graphics = e.Graphics


调用控件或窗体的
CreateGraphics
方法

Dim objGraphics As Graphics = TextBox1.CreateGraphics


Graphics 类常用方法

方法说明
Clear()清除整个绘图面并以指定背景色填充
Dispose()释放由Graphics使用的所有资源
DrawArc()绘制一段弧线,它表示由一对坐标、宽度和高度指定的椭圆部分。可重载
DrawEllipse()绘制一个由边框(该边框由一对坐标、高度和宽度指定)定义的椭圆。可重载
DrawIcon()在指定坐标处绘制由指定的Icon表示的图像。可重载
DrawIconUnstretched()绘制指定的Icon表示的图像,而不缩放该图像
DrawImage()在指定位置并且按原始大小绘制指定的Image。可重载
DrawImageUnscaled()在由坐标对指定的位置,使用图像的原始物理大小绘制指定的图像。可重载
DrawImageUnscaledAndClipped()在不进行缩放的情况下绘制指定的图像,并在需要时剪辑该图像以适合指定的矩形
DrawLine()可重载。绘制一条连接由坐标对指定的两个点的线条
DrawLines()可重载。绘制一系列连接一组Point结构的线段
DrawPath()绘制GraphicsPath
DrawPie()可重载。绘制一个扇形,该形状由一个坐标对、宽度、高度以及两条射线所指定的椭圆定义
DrawPolygon()可重载。绘制由一组Point结构定义的多边形
DrawRectangle()可重载。绘制由坐标对、宽度和高度指定的矩形
DrawRectangles()绘制一系列由Rectangle结构指定的矩形。可重载
DrawString()在指定位置并且用指定的Brush和Font对象绘制指定的文本字符串。可重载
FillEllipse()填充边框所定义的椭圆的内部,该边框由一对坐标、一个宽度和一个高度指定。可重载
FillPath()填充GraphicsPath的内部
FillPie()填充由一对坐标、一个宽度、一个高度以及两条射线指定的椭圆所定义的扇形区的内部。可重载
FillPolygon()可重载。填充Point结构指定的点数组所定义的多边形的内部
FillRectangle()填充由一对坐标、一个宽度和一个高度指定的矩形的内部。可重载
FillRectangles()填充由Rectangle结构指定的一系列矩形的内部。可重载
FillRegion()填充Region的内部
Flush()强制执行所有挂起的图形操作并立即返回而不等待操作完成。可重载

多媒体播放

添加Windows Media Player 控件

点击“工具”菜单,选择“选择工具箱项”

在弹出的“选择工具箱项”窗口中,选“COM组件”选项卡,勾选“Windows Media Player”,单击“确定”

Windows Media Player 控件常用成员

Windows Media Player
控件常用成员

成员名称说明
FullScreen是否启用全屏播放
EnableContextMenu是否支持右键快捷菜单
StretToFit是否拉伸画面到合适大小
UiMOde播放器界面模式,枚举值:Full,Mini, None, Invisible
URL文件的位置,支持本地和网络地址
PlayState播放状态,枚举值:1(停止),2(暂停),3(播放),6(正在缓冲),9(正在连接),10(准备就绪)
Visible可见性,播放视频时需要设置为False
Settings.Volume音量大小,枚举值0到100
Settings.AutoStart是否自动播放
Settings.Mute是否静音
Settings.PlayCount播放次数
Ctlcontrols.Play()播放
Ctlcontrols.Pause()暂停
Ctlcontrols.Stop()停止
Ctlcontrols.Fastforward()快进
Ctlcontrols.Fastreverse()快退

常用控件

菜单控件

MenuStrip 控件

MenuStrip
控件是运行时控件,用于生成菜单栏。输入“-”可插入分割栏,输入“& 字母符号”可以插入快键键,单击菜单项或按下“Alt+快捷键”时,会触发
Click事件


ContextMenuStrip 控件

ContextMenuStrip
控件又称快捷菜单、浮动菜单,或弹出式菜单。当创建
ContextMenuStrip
控件后,VB会将此控件连接到窗体中有
ContextMenuStrip
属性的控件中。VB允许同一窗体中建立多个不同的
ContextMenuStrip
控件

单选按钮和复选框

单选按钮 RadioButton

单选按钮的常用成员

成员名称说明
Appearance设定界面样式
其中:Normal为“小圆圈+文字”样式,Button为“文字样式”
代码示例:RadioButton1.Appearance = Appearance.Button
Text用于显示该按钮的提示信息
Image单选按钮以指定的图像显示
代码示例:RadioButton1.Image = Image.FromFile(“C:\sample.jpg”)
Checked判断是否选中
Click()单击按钮时触发该事件
CheckedChanged()Checked属性值改变时触发该事件
窗体中若有不同性质的单选按钮,就必须用
GroupBox
控件或
Panel
控件来来分隔成不同分组,否则VB将其视为同一分组选项

复选框 CheckBox

复选框除了有单选按钮的常用成员外,还有以下常用成员

属性说明
ThreeState是否支持三态
CheckState选项状态,有Unchecked、Checked、Indeterminate

列表框工具

列表框 ListBox

列表框可设定单选或多选,有以下常用成员

成员名称说明
Text设计模式下无此属性,程序中某个项目被选中时,会将该项目的内容放入Text属性中
MultiColumn是否启用多栏显示
ColumnWidth列表框多栏显示时每个字段的宽度
Items项目集合
Item设计模式下无此属性,是Items的子属性,用于选取Items中的某项,例:ListBox1.Items.Item(i)
Count运行时属性,是Items的子属性,返回被选中项目的个数,例:ListBox1.Items.Count
Clear()是Items属性的方法,清空列表框
Add()是Items属性的方法,增加一个项目
HorizontalScrollBars是否启用水平滚动条
ItemHeight列表框内项目的高度
SelectionMode列表框选择项目的模式
Sore是否让列表框内的选项以字母顺序排序
SeclectItems运行时属性,取得当前列表框中被选中项目的集合
SeclectItems运行时属性,取得当前列表框中被选中的项目
SeclectItems运行时属性,取得当前列表框中被选中项目的索引号
Contains()检查是否包含某选项
Remove()删除项目
FindString()返回列表框中第一个以指定字符串开头的项目的索引号
SelectedIndexChanged()改变被选中的选项时触发此事件

复选列表框 CheckedListBox

复选列表框比列表框每个选项前面多一个复选标记,除了有列表框的成员外,还有以下常用成员

成员名称说明
CheckState运行时属性,选中的选项打钩
CheckOnClick是否启用单击选中
SetItemChecked()设定第i个项目打钩
SetItemCheckState()设定第i个项目的状态
GetItemChecked()返回第i个项目是否已打钩
GetItemCheckState()返回第i个项目的状态

组合框 ComboBox

组合框由顶部的文本框和下部的列表框组成。用户可以从文本框输入选项,也可以从列表框中选择项目。有以下常用成员

成员名称说明
MaxLength下拉列表中每个选项所允许的最大宽度
MaxDropDownItems下拉列表中显示项目的最大数量
IntegralHeight是否启用自动调整大小
DropDownStyle组合框样式,具体说明如下
DropDown:运行时列表隐藏,可输入,可拉选)
DropDownList:运行时列表隐藏,不可输入,可拉选
Simple:列表框始终显示,可输入,可拉选

用户交互

InputBox 函数

执行
InputBox
函数将产生一个对话框,并可以得到用户输入的字符串。

调用

变量[$] = InputBox(消息[,标题][,默认值][,X坐标值][,Y坐标值])


形参说明

消息:输出交互信息

标题:显示在对话框的标题栏,省略时显示应用程序名

默认值:输入栏显示的默认值,省略时为空字符串

X坐标值:对话框左上角的水平坐标,省略时对话框水平居中

Y坐标值:对话框左上角的竖直坐标,省略时对话框离上边界约1/3屏幕高

返回值

InputBox
函数返回用户输入的字符串,没有输入时返回默认值,默认值为空时返回空字符串

MessageBox 对话框

调用

MessageBox
对话框用于显示消息给用户,用户不能输入数据,用户点击按钮后,对话框将消失。语法格式如下:

MessageBox.Show(消息[,标题][,按钮数][,图标][,默认按钮])


形参说明

消息:输出交互信息

标题:显示在对话框的标题栏,省略时标题栏为空

按钮数:参数是
MessageBoxButtons
类型,枚举值
AbortRetryIgnore、OK、OKCancel、YesNoCancel、YesNo、RetryCancel


图标:参数是
MessageBoxIcon
类型,枚举值
Exlcamation、Information、None、Question、Stop、Warning


默认按钮:参数是
MessageBoxDefaultButton
类型,枚举值
Button1、Button2、Button3


返回值

DialogResult
返回值枚举

成员按钮名称返回值
OK确定1
Cancel取消2
Abort终止3
Retry重试4
Ignore忽略5
Yes6
No7

MsgBox 函数

MsgBox
函数是从老版本VB保留下来的一个内部信息传递函数

调用

[变量名 = ]MsgBox(信息内容[,按钮类型][,对话框标题])


形参说明

信息内容:用户交互信息

对话框标题:显示在对话框的标题栏,省略时显示应用程序名

按钮类型:数值表达式,包括“按钮数目”、“图标类型”和“默认按钮”三项内容的和,为阅读方便,通常写成“a + b + c”的形式

“按钮类型”设置值及含义

分组内部常数显示的按钮
按钮数目MsgBoxStyle.OKOnly0确定
按钮数目MsgBoxStyle.OKCancel1确定、取消
按钮数目MsgBoxStyle.AbortRetryIgnore2终止、重试、忽略
按钮数目MsgBoxStyle.YesNoCancel3是、否、取消
按钮数目MsgBoxStyle.YesNo4是、否
按钮数目MsgBoxStyle.RetryCancel5重试、取消
图标类型MsgBoxStyle.Critical16错误
图标类型MsgBoxStyle.Question32疑问
图标类型MsgBoxStyle.Exclamation48警告
图标类型MsgBoxStyle.Information64提示
默认按钮MsgBoxStyle.DefaultButton1128消息框的第一个按钮
默认按钮MsgBoxStyle.DefaultButton2256消息框的第二个按钮
默认按钮MsgBoxStyle.DefaultButton3512消息框的第三个按钮

返回值

DialogResult
返回值枚举

成员按钮名称返回值
OK确定1
Cancel取消2
Abort终止3
Retry重试4
Ignore忽略5
Yes6
No7

ColorDialog 控件

ColorDialog
控件常用属性

属性说明
AllowFullOpen表明用户是否能用对话框自定义颜色
AnyColor表明对话框是否显示基本颜色组中的所有可用颜色
Color表明用户所选的颜色
CustomColors表明显示在对话框中的自定义颜色组
FullOpen表明当对话框打开时,用来创建自定义颜色的控件是否可见
ShowHelp表明是否在对话框中显示Help按钮
SolidColorOnly表明对话框是否限制用户只能选择纯色

FontDialog 控件

FontDialog
控件常用属性

属性说明
AllowScriptChange是否允许用户更改“脚本”组合框中指定的字符集,以显示除了当前所显示字符集以外的字符集改为字体的脚本
AllowVectorFonts是否可以选择字体列表中的矢量字体
AllowVerticalFonts是否可选择字体列表中垂直字体
FixedPitchOnly在字体列表中显示固定大小的字体,默认为False
MaxSize定义用户选择的最大字号
MinSize定义用户选择的最小字号
ShowApply显示“应用”按钮,用户可以查看更新的字体,无需退出字体对话框
ShowColor是否在字体对话框中选择字体颜色
ShowEffects是否启用Strikeout和Underline复选框来处理字体

Shell 函数

Shell
函数的功能是调用应用程序,同时分别操作,互补影响

调用

[变量名 =]Shell("文件名"[窗口类型,等待,等待时间])


形参说明

文件名:要调用的应用程序的完整路径名

窗口类型:整型,表示执行应用程序的窗口大小,默认为1

等待:布尔值,是否等待应用程序完成默认为False

等待时间:整型,单位为毫秒,默认为10,当等待为True时有效

返回值

返回被调用程序的进程ID

其他控件

滚动条 Scroll

ScrollBar
控件的常用属性

属性说明
Value与滚动条位置相对应的一个Integer值
Maximum滚动条Value属性的最大值,默认为100
Minimum滚动条Value属性的最小值,默认为0
LargeChange当用户按下PageUP、PageDown,或单击滚动条轨迹时Value属性改变的值
SmallChange当用户按下某个箭头键,或单击滚动条按钮时Value属性改变的值

进度条 ProgressBar

ProgressBar
控件的常用成员

成员说明
Value与进度条显示的进度相对应的一个Integer值,运行时通过程序设定
Maximum进度条Value属性的最大值,默认为100
Minimum进度条Value属性的最小值,默认为0
Increment()增加进度条Value属性值
PerformStep()减少进度条Value属性

日历 DateTimePicker

DateTimePicker
控件常用属性

属性说明
Value当前所选择的日期/时间
Text当前显示的字符串

计时器 Timer

Timer
控件常用成员

成员说明
Enabled是否启用计时器
Interval每两个Tick事件触发的时间间隔,单位毫秒
Start()计时器打开
Stop()计时器关闭,关闭后计时器重置
Tick()Interval时间间隔触发的事件

文件的基本操作

顺序文件操作

打开文件

FileOpen(文件号,文件名,模式)


文件号是一个整数,可以用
FreeFile
函数获得一个可用的文件号

模式枚举:
Output
Append
Input


关闭文件

FileClose([文件号[,文件号,…]])


可以一次关闭多个文件号,当缺省文件号时,关闭所有文件

写操作

Print|PrintLine|Write|WriteLine(文件号,输出列表)


Write
函数会在各项和字符串两边的引号之间插入逗号,其中可用
Spc(n)
Tab(n)
函数分隔,
Write
将数据写入问价,仅支持数字、Boolean、日期、Null和Error数据格式

读操作

Input(文件号,变量名)


InputString(文件号,表达式)


常用文件函数

函数名称说明
EOF()文件是否到达末尾
LOF()返回文件的长度

随机文件操作

打开文件

FileOpen(文件号,文件名[,OpenMode.Random,OpenAccess.Default,OpenShare.Default,记录长度])


读写操作

FileGet(文件号,变量名,记录号)


FilePut(文件号,变量名,记录号)


用Stream 读写文本文件

写入文本文件

Dim 变量名 As New System.IO.StreamWriter("文件名",[False|True])


创建
StreamWrite
变量后,可用
Write
WriteLine
方法写入

读取文本文件

Dim 变量名 AsNew System.IO.StreamReader("文件名")


创建
StreamReader
变量后,可用
ReadToEnd
ReadLine
方法读出

文件操作控件

OpenFileDialog 控件

OpenFileDialog
提供一个标准的打开文件对话框,在其中可以指定驱动器、文件夹、文件类型和文件名。
OpenFileDialog
常用成员如下:

成员说明
AddExtension用户省略扩展名时是否自动添加默认扩展名
CheckFileExitsts是否检查文件名合法性
CheckPathExists是否检查路径名合法性
DefaultExt默认文件扩展名
DereferenceLinks在从对话框返回前是否取消引用快捷方式
FileName对话框中选定的文件名字符串
FileNames对话框中所有选定的文件的文件名
Filter要在对话框中显示的文件名筛选器字符串,例:”文本文件(*.txt)|*.txt|所有文件(*.*)|*.*”
FilterIndex在对话框中选择的文件筛选器的索引,如果选第一项就设为1
InitialDirectory对话框的初始目录
MultiSelect是否允许选择多个文件
ReadOnlyChecked是否选定“只读复选框”
RestoreDirectory控制对话框在关闭之前是否恢复当前目录
ShowHelp是否显示”帮助”按钮
ShowReadOnly是否显示“只读复选框串”
Title将显示在对话框标题栏中的字符
ValiDateNames控制对话框检查文件名中是否含有无效的字符或序列
CreateObjectRef()创建一个对象,包含生成与远程对象进行通信的代理所需的全部相关信息
Dispose()释放Component占用的资源
Equals()确定两个Object实例是否相等
OpenFile()打开用户选定的只读文件
Reset()重置所有属性为默认值
ShowDialog()显示通用对话框
FileOk()当用户点击”打开”或”保存”按钮时要处理的事件
HelpRequest()当用户点击”帮助”按钮时要处理的事件

SaveFileDialog 控件

SaveFileDialog
控件常用成员

成员说明
AddExtension获取或设置一个值,该值指示如果用户省略扩展名,对话框是否自动在文件名中添加扩展名
CheckFileExists获取或设置一个值,该值指示如果用户指定不存在的文件名,对话框是否显示警告
CheckPathExists获取或设置一个值,该值指示如果用户指定不存在的路径,对话框是否显示警告
CreatePrompt获取或设置一个值,该值指示如果用户指定不存在的文件,对话框是否提示用户允许创建该文件
DefaultExt获取或设置默认文件扩展名
DereferenceLinks获取或设置一个值,该值指示对话框是否返回快捷方式引用的文件的位置,或者是否返回快捷方式 (.lnk) 的位置
FileName获取或设置一个包含在文件对话框中选定的文件名的字符串
FileNames获取对话框中所有选定的文件的文件名
Filter获取或设置当前文件名筛选器字符串,该字符串决定对话框的“另存为文件类型”或“文件类型”框中出现的选择内容
FilterIndex获取或设置文件对话框中当前选定筛选器的索引
InitialDirectory获取或设置文件对话框显示的初始目录
OverwritePrompt如果用户指定的文件名已存在,对话框是否显示警告
RestoreDirectory对话框在关闭前是否还原当前目录
ShowHelp是否显示“帮助”按钮 Title
ValidateNames是否只接受有效的 Win32 文件名
Click()在命令按钮上按下然后释放一个鼠标按钮时发生
CreateObjectRef()创建一个对象,包含生成与远程对象进行通信的代理所需的全部相关信息
Dispose()释放Component占用的资源
Equals()确定两个Object实例是否相等
KeyPress()当用户按下和松开一个ANSI键时发生
OpenFile()打开用户选定的只读文件
Reset()重置所有属性为默认值
ShowDialog()显示通用对话框
FileOk()当用户点击”打开”或”保存”按钮时要处理的事件
HelpRequest()当用户点击”帮助”按钮时要处理的事件
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息