VB学习笔记2007

VB学习笔记

《Visual Basic 面向对象与可视化程序设计》清华大学出版社廖彬山等2000年版

0 目录

1. 基础知识-------------------------------------------------------------------------1 1.1 对象的命名规则----------------------------------------------------------------1 1.2 书写规则-------------------------------------------------------------------------1 1.3 变量-------------------------------------------------------------------------------1 1.4 运算-------------------------------------------------------------------------------2 1.5 数组-------------------------------------------------------------------------------2 1.6 控制结构-------------------------------------------------------------------------2 1.7 过程-------------------------------------------------------------------------------4 1.8 消息框和输入框----------------------------------------------------------------4 1.9 注册表函数----------------------------------------------------------------------6 1.10 Format函数--------------------------------------------------------------------6

1.11 对象基础------------------------------------------------------------------------8

2. 窗体和控件----------------------------------------------------------------------9 2.1 窗体-------------------------------------------------------------------------------9

2.2 控件-------------------------------------------------------------------------------9

3. 图形处理-------------------------------------------------------------------------12 3.1 坐标系----------------------------------------------------------------------------12 3.2 图形方法-------------------------------------------------------------------------12 3.3 填充方式和填充颜色----------------------------------------------------------13 3.4 线宽和线型----------------------------------------------------------------------13 3.5 绘图模式DrawMode-----------------------------------------------------------14 3.6 颜色设置-------------------------------------------------------------------------14 3.7 图形控件-------------------------------------------------------------------------15 3.8 图形设备接口（GDI）画笔画刷绘图函数-----------------------------15

3.9 DirectDraw 编程初步DirectX的2D图形部件--------------------------15

4. 菜单和工具栏--------------------------------------------------------------------16 4.1 设计菜单--------------------------------------------------------------------------16 4.2 工具栏---------------------------------------------------------------------------16 4.3 状态栏---------------------------------------------------------------------------16

4.4 MDI应用程序-------------------------------------------------------------------16

5. 文件管理--------------------------------------------------------------------------17 5.1 与目录和文件操作有关的语句和函数--------------------------------------17 5.2 文件系统控件--------------------------------------------------------------------17 5.3 文件的打开、关闭和读写-----------------------------------------------------17

5.4 文件系统对象--------------------------------------------------------------------18

6. ActiveX部件编程---------------------------------------------------------------19 6.1 ActiveX部件的使用------------------------------------------------------------19

6.2 OLE容器控件-------------------------------------------------------------------19 6.3 ActiveX控件的创建------------------------------------------------------------19

6.4 ActiveX文档的创建------------------------------------------------------------19

7. 数据库编程-----------------------------------------------------------------------20 7.1 数据库基础-----------------------------------------------------------------------20 7.2 DAO与本地数据库访问-------------------------------------------------------20 7.3 RDO与远程数据库访问--------------------------------------------------------20 7.4 ADO 和ADO Data控件-----------------------------------------------------20 7.5 数据环境设计器----------------------------------------------------------------20

7.6 数据报表设计器----------------------------------------------------------------20

8. VBScript 和ASP--------------------------------------------------------------21 8.1 Web开发历史-------------------------------------------------------------------21 8.2 HTML简介------------------------------------------------------------------ --21 8.3 VBScript脚本语言-------------------------------------------------------------21

8.4 ASP脚本编程环境-------------------------------------------------------------22

9. DHTML应用程序--------------------------------------------------------------26

9.1 VB中新建“DHTML应用程序”------------------------------------------26

10 IIS应用程序----------------------------------------------------------------------27 10.1 概述-------------------------------------------------------------------------------27

10.2 开发过程-------------------------------------------------------------------------27

11. 调试和错误处理----------------------------------------------------------------28 11.1 错误类型------------------------------------------------------------------------28 11.2 设计、运行和中断模式-------------------------------------------------------28 11.3 程序的调试----------------------------------------------------------------------28 11.4 处理运行时错误----------------------------------------------------------------28

1 基础知识

1.1对象的命名规则

1.2 书写规则：

1.2.1 单行语句分成多行续行符号_ ，后面不能有注释。

1.2.2 将多个语句合并到同一行上 : 冒号分隔

1.2.3 在代码中加注释‘单引号

1.2.4 使用不同进制的数字 &H(16进制) &O(8进制)

1.3 变量

1.3.1 命名约定

1.3.2 声明变量

隐式声明显式声明强制显式声明类型声明符Option Explicit 强制 intAge%=32隐式

1.3.3 作用域

过程级 (Dim、 Static) 模块级（Private、 Dim）全局变量（Public）

1.3.4 数据类型

数值整形、长整形、单精度浮点、双精度浮点、货币左15右4位精确定点

Byte无符号，二进制数值

String

Boolean 转换时0-False 1-True

Date 格式1： #月/日/年#

格式2： #时：分：秒 AM或PM#

格式3：#月/日/年时：分：秒 AM或PM#

加减计算：1代表1天，1/24代表1小时

Variant 包含Empty Null Error

类型转换函数Cb00l、Ccur CDbl CLng CStr CVErr Cbyte Cdate Cint CSng Cvar

1.4 运算

1.4.1 算术运算+、-、*、/、\(整除)、MOD（取余）、^、

1.4.2 连接运算 + &

1.4.3 关系运算 >、 >= 、<、 <= 、= 、<>不等于

1.4.4 逻辑运算 Not、And 、Or、Xor、Eqv逻辑等于、

Imp 逻辑蕴含 A Imp B : A真，B假，结果假；其它结果真

1.5 数组

1.5.1 固定数组

Dim intSums(9) Dim intSums(3 to 15) Dim intSums(3, 15)两维

UBound(数组名，维 ) LBound(数组名，维 )返回数组某维的上界和下界

1.5.2 动态数组

Dim intSums( )

ReDim intSums(9)

1.5.3 数组赋值左边数组必须是动态数组

1.6 控制结构判定结构和循环结构

1.6.1 条件结构

单行结构 if condition then statement[else statement]

块结构 if condition1 then

[Statement1]

[Else condition2 then

[statement2]]…..

[else

[statementn]]

End if

1.6.2 选择结构

Select case testexpression

[Case expressionlist1

[statement1]]…

[Case else

[[statementn]]

End select

Case 语句可以设置多个比较值 case 1,3,5 case 90 to 100 case 1, 3 to5, 7 1.6.3 DO 循环

无限循环，可加判断终止

Do

…

[If condition Exit do ]

…

Loop

前测循环(condition为true或非零，则循环执行)

Do while condition

Statements

Loop

后测循环(condition为true或非零，则循环执行)

Do

Statements

Loop while condition

前测循环(condition为false，则循环执行)

Do until condition

Statements

Loop

后测循环(condition为false，则循环执行)

Do

Statements

Loop until condition

1.6.4 For循环

For counter start to end [step increment]

Statements[exit for]

Next [counter]

数组或对象集合中：for each循环

For each element in group

Statements[exit for]

Next element

1.7 过程

1.7.1 子过程

语法：[Private | Public ] [Static] sub procedurename(arguments)

Statements

End sub

调用：Call procname([arguments])

或：procname arguments

1.7.2 函数

语法：[Private | Public ] [Static] function funname([arguments]) [as type] [Statements]

Funname=expression

[Statements]

End function

调用： = funname([arguments])

或：Call procname (arguments)放弃返回值

使用Exit Function前一定先给函数赋值

1.7.3 按地址传递和按值传递

默认按地址byref 按值byval

1.7.4 可选参数

Optional 参数 as type [= xxx默认值]

1.7.5 不定数量的参数 ParamArray 动态数组

1.7.6 数组参数动态数组

1.8 消息框和输入框

1.8.1 消息框

按函数调用：value=MsgBox(prompt,[,buttons][,title][,helpfile,context]) 按语句调用： MsgBox prompt,[,buttons][,title][,helpfile,context] Prompt 最大1024字符，超过一行用chr(13) & chr(10) 回车换行

Buttons 4组，按钮类型+图标样式+默认按钮+强制返回性

按钮类型和数目

图标样式

1.8.2 输入框

Value=inputbox(prompt,[,title][,default][,xpos][,ypos][,helpfile,context]) 返回值为字符串，可通过Val( )函数转换为数值

1.9 注册表函数

位置：HKEY_CURRENT_USER\Software\VB And VBA Programe Settings\appname(工程名)\section（注册区域）\key（注册表项）

1.9.1 保存或创建注册表设置值

Savesetting appname,section,key,setting setting具体值

1.9.2 删除注册表设置值

Deletesetting appname,section,key删表项及其值

Deletesetting appname,section 删区域

Deletesetting appname 删整个注册位置

1.9.3 检索注册表设置值

GetSetting (appname,section,key[,default]) 一项

GetAllSetting(appname,section) 所有

例如：

Dim vntsetting as variant,I as integer

Vntsetting= GetAllSetting(“MYMDI”,”settings”)

For i= LBound(vntsetting,1) to UBound(vntsetting,1)

Debug.Print vntsetting(I,0), vntsetting(I,1)

Next i

1.10 Format函数

Format（expression[,format[,firstdayofweek[,firstweekofyear]]]）

例如：

Print Format(6618.9,”00000.00”) 结果为06618.90 Print Format(6618.9,”##，##0.00”) 结果为6，618.90 Print Format(0.5,” 0.00%”) 结果为50.00%

例如：

Print Format(now,”dddd,mmm dd,yyyy”) 结果为Friday,jan 08,1999

Print Format(now,”mmmm-yy”) 结果为january-99

Print Format(now,” hh:mm:ss AMPM”) 结果为08:51:06 AM

1.10.3 格式化文本

strTmp=Format(“SYSTEM”,”<”) 小写system

strTmp=Format(“system”,”>”) 大写SYSTEM

strTmp=Format(now,”long time”) 7:29:04

strTmp=Format(1,”true/false”) True

1.11 对象基础

1.11.1 Me关键字指向代码当前正运行的实例。Unload Me

1.11.2 with语句 With 控件

.属性=xx

End With

1.11.3 常用内建对象

App运行程序本身、ClipBoard剪贴板、Debug立即窗口、 Printer系统打印机、

Screen桌面、 Font字体

2 窗体和控件

2.1 窗体

2.1.1 鼠标事件

Private sub object_event(button as integer,shift as integer,x as single,y as single)

2.1.2 键盘事件

Private sub object_keypress(keyascii as integer[,shift as integer ])

2.1.3 窗体的生命周期

创建但不加载（initialize）加载但不显示（load）显示状态(show hide)

卸载(queryunload unload) 卸载但未被引用状态

2.2 控件

2.2.1 控件数组资源消耗小可运行时创建

Load Object(index%)

Unload object(index%)

2.2.2 标签（label）caption属性作标记用，对齐alignment、自动换行属性wordwrap。

2.2.3 文本框

换行插入回车换行chr（13）chr（10）或 vbCrLf RichTextBox控件Microsoft Rich Textbox Control 6.0 LoadFile SaveFile方法可读写rtf和txt文件

2.2.4 列表框

添加项目 box.additem “xxx”[,index]

删除项目 box.removeitem index

2.2.5 slider滑块控件和progressbar进度条控件Microsoft Windows Common Controls 6.0

2.2.6 公共对话框

与打开对话框有关的属性：

FileName返回选中文件包括路径

Filter过滤器类型说明字符串| 类型通配表达式

Flags属性多选时用or 连接

与字体对话框有关的属性：

Color返回颜色

FontName返回字体名

FontSize返回字体大小

FontBold返回是否粗体

FontItalic斜体选择

FontUnderline删除线选择

FontStrikethru 下划线选择

Min Max字体选择范围

颜色对话框

Color属性

打印对话框

Copies：份数

FromPage：起始页

ToPage：终止页

Hdc：选定打印机的设备句柄

PrinterDefault：是否可改变打印机的默认设置Min max 页码范围

3 图形处理

3.1 坐标系

原点（0，0）默认在左上角，刻度是缇（Twip）

3.1.2 ScaleWidth 和 ScaleHeight属性自定义相对单位

3.1.3改变坐标系 [object].scale(x1,y1)-(x2,y2) 左上角、右下角确定坐标系

3.1.4 当前坐标 CurrentX CurrentY

3.2 图形方法

3.2.1 清除绘图区[object.]cls

3.2.2 画点 [object.]pset[step](x,y)[,color] step 相对位置

3.2.3 取颜色 [object.]point(x,y) 范围外的点返回-1

3.2.4 画直线及矩形 [object.]line[[step](x1,y1)]- [step](x2,y2),[color],[B][F] B矩形，F矩形填充同时一定用B

3.2.5 画圆[object.]circle[step](x,y)，radius[,color]

画圆弧[object.]circle[step](x,y)，radius,[color],start,end[,aspect]

start,end起点和终点，单位π，范围-2π~2π

画椭圆[object.]circle[step](x,y)，radius,[color],[start],[end][,aspect] Aspect圆的纵横比

3.2.6 PaintPicture方法

[object.]paintpicture

pic,destx,desty[,destwidth[,destheight[,srcx[,srcy[,srcwidth[,srcheight[,op] ]]]]]]

Op位操作常数

3.3 填充方式和填充颜色

方式[object.]fillstyle[=number]

颜色[object.]fillcolor[=value] fillstyle属性为1 透明时忽略fillcolor

3.4 线宽和线型

线宽[object.]drawwidth[=size] 以像素为单位，范围1~32767

Drawwidth>1时，drawstyle的1~4画的都是实线3.5 绘图模式DrawMode

3.6 颜色设置

3.6.1 RGB（red，green,blue）0~255

3.6.2 QBColor(color)

3.6.3 内部颜色值

3.6.4 十六进制值 &HBBGGRR&

3.7 图形控件

3.7.1 图片框可以作为其他控件的容器

支持.bmp .dib .ico .cur .wmf .emf .jpg .gif

加载LoadPicture 清除时不指定文件名即可

3.7.2 图象框 Stretch属性图像大小调整

3.7.3 形状控件 Shape

Style属性

3.7.4 直线控件 Line 不能用Move方法移动线段

3.7.5 ImageList控件 Microsoft Windows Common Controls 6.0 图像仓库，为TreeView和Toolbar等提供图形资源

复合图像imlImages.MaskColor=vbGreen 绿色变透明

Set picOverlay.Picture=imlImages.Overlay(2,1)

3.7.6 ImageCombo控件

3.7.7 Animation控件Microsoft Windows Common Controls-2 6.0 播放无声的AVI动画

3.7.8 Multimadia控件Microsoft Windows Common Controls 6.0 MCI设备上的多媒体文件的录制和回放

3.8 图形设备接口（GDI）画笔画刷绘图函数

3.9 DirectDraw 编程初步DirectX的2D图形部件