1、Visual Basic6.0程序设计与应用,2007-3,第1章,1、Visual Basic6.0的基本特点以对象为基础、可视化设计、事件驱动编程、结构化、Active技术 2、VB的集成开发环境 主窗口及其他窗口 工程文件的扩展名是.vbp 最常用的文件有窗体文件（.frm）标准模块文件（.bas）,第2章 对象及其操作,1、可视化编程的基本概念 对象（任何具体的事物） 类（具有相同属性和行为的对象的集合） 对象的三要素：属性、事件和方法 如文本框：Text1.Text=“1234”Private Sub Text1_Change()EndText1.SetFocus,2、窗体(Form
2、1),(1) 属性：AutoRedraw(自动重画) (2) 事件： ClickLoad：装载窗体时触发Activate：当一个窗体变成活动窗体时触发 (3) 方法： Show、 Cls Print - 用于显示文本,3. 文本框(Text1),(1) 属性: Text 、MultiLine 、ScrollBars等(2) 事件: Change 、KeyPress 、GotFocus等(3) 方法: SetFocus等,4. 命令按钮(Command1),(1) 属性: Caption 注意“&”符号的使用Default 与 CancelEnabled与Visible的区别(2) 事件: Cl
3、ick,5、常用控件的公共属性,Name、 Caption Left、Top、Height、Width属性 BackColor、ForeColor FontName、FontSize、FontBold、FontItalic、FontStrikethru、FontUnderline属性,BackStyle（背景样式）0- 透明显示1- 不透明 BorderStyle（边框样式）0 控件没有边框1- 控件有边框 Alignment0- 左对齐1- 右对齐2- 居中,Enabled属性True - 允许用户操作，并对操作作出反应 False- 禁止用户操作，呈灰色 Visible属性True - 程
4、序运行时控件可见。False- 程序运行时控件不可见。,第3章 数据类型及其运算,1. 常用数据类型 整型: Integer %长整型: Long &单精度: Single !双精度: Double #可变长度字符串: String $固定长度字符串: String * length日期型: Date可变类型: Variant,2. 常量：在程序运行期间其值始终保持不变的量符号常量的定义: Public|Private Const 变量名 as 数据类型=表达式 例：Public Const pi As Double=3.14说明：1.声明的同时要赋值；2.常量定义后，其值不能改变；3.数据类
5、型缺省，则默认为Variant类型,3. 变量：在程序执行过程中其值可以改变命名规则：P49声明: 一般用Dim语句 如：Dim a As Integer Static B As SinglePrivate C As String*8Public D As Long,4.算术运算符（注意：无 、无 ）优先级: ( ) * / Mod + -布尔运算的优先级: NotAndOr表达式的运算顺序：函数运算 算术运算 关系运算 布尔运算,5. 内部函数（见书P55） 随机函数Rnd Randomize 数学函数、字符串函数、日期时间函数 转换函数、条件函数 格式函数Format,第4章 数据的输入输
6、出,1、赋值语句 P68 格式一：变量名=表达式 格式二：对象名.属性值=表达式 功能：将右边表达式的值赋给变量或对象属性。 与关系运算符“=”不同,请注意区分!,如下面两个语句:a=1Print A+1=1,2、InputBox函数 P71 格式一：变量名=InputBox(提示信息, 标题, 默认值) 格式二：InputBox 提示信息, 标题, 默认值 功能:弹出一个对话框,当用户输入文本或按下按钮，返回文本框内容的字符串。注：InputBox函数的返回值是字符串类型,3、 MsgBox函数 P75 格式一：变量名=MsgBox(提示信息, 对话框类型, 标题) 格式二：MsgBox 提
7、示信息,对话框类型 , 标题,文本框可用作数据的输入和输出 Text1=Text1 & i &” ” Text2=Text2 & i &vbcrlf Text2=Text2 & i & Chr(13) &Chr(10),第5章 常用控件,1、可以作为容器的控件:窗体、框架、图片框 2、 图片框(Picture1) 显示图像、文字 Autosize属性 Picture属性; LoadPicture函数Cls、Print方法 3、 图像框(Image1) 显示图像 Stretch属性 Picture属性; LoadPicture函数,4. 单选按钮(Option1)Value属性、Click事件
8、5. 复选框(Check1)Value属性、Click事件 6. 列表框(List1)属性: List、Text 、ListIndex、MultiSelectListCount、 Sorted、 Selected 事件: Click 方法: AddItem、RemoveItem、Clear,8. 组合框(Combo1)属性: List、Text、ListIndex、ListCount、 Style(下拉式组合框简单组合框下拉式列表框)事件: Click、Change方法: AddItem、RemoveItem、Clear 9. 时钟(Timer1)属性: Enabled、Interval事件:
9、 Timer 10. 滚动条(HScroll1、VScroll1)属性: LargeChange、SmallChange、Max、Min、 Value事件: Change、Scroll,第6章 控制结构,单行结构条件语句: IfThenElse 块结构条件语句 IfThenElseEnd If 多分支选择语句 Select Case CaseCaseEnd Select,应掌握几种结构的流程图,P112,循环结构,For 循环变量=初值 To 终值 Step 步长循环体Next 循环变量 当型循环（先判断条件，后执行循环体）Do While 循环体Loop,P117 说明,Do Until 循
10、环体 Loop,直到型循环（先执行循环体，后判断条件）Do循环体 Loop While ,Do循环体 Loop Until ,循环的嵌套：一个循环体内包含另一个完整的循环结构。 选择与循环结构的嵌套,P122 说明,第7章 数组,1.静态数组 Dim 数组名(下标下界To)As类型 Dim a(5 To 15) As Integer 与上面声明等价的形式： Dim a%(5 to 15)注:若及To不写，使用默认下界0，可以通过Option Base语句更改默认下界为1，格式为：Option Base0/1,例: Dim A(-4 TO 10) As Integer一维整型数值数组下界 -4，
11、上界 10元素 A(-4) A(-3) . A(0) A(1) . A(10)计算一维数组元素个数:上界-下界+1,例:判断下列数组声明是否正确，如果正确试说出其有几个元素。,(1)Dim mark(1 to 100) As Integer(2)Dim m(-10 to -20) As Integer(3)Dim k(-1) As String(4)Dim n As IntegerDim c(2 to n) As Interger,正确，共100个元素,错误，下界大于上界,错误，下界大于上界,错误，上界n是一个变量,Dim a(5) As Integer , i As Integer For
12、i=0 to 5a(i)=i Next i,方法二：利用循环语句赋值,数组的使用-1.赋值,利用For循环，通过InputBox 函数输入,Dim a(5) As Integer , i As Integer For i=0 to 5a(i)= InputBox(“输入a（“& i &”）的值”) Next i,数组的使用-2.数据输入,【例7-1 】生成20个10到100之间的随机整数，存于一维整型数组A中，同时显示于第一个文本框中，单击窗体将这20个数以相反的次序显示于另一个文本框中。,Option Base 1 Private Sub Form_Click()Dim A(20) As I
13、ntegerText1.Text = “For i = 1 To 20A(i) = Int(Rnd * 91 + 10)Text1.Text = Text1.Text & A(i) & “ “Next iText2.Text = “For i = 20 To 1 Step -1Text2.Text = Text2.Text & A(i) & “ “Next i End Sub,2.二维数组,求下面的数组B包含的元素个数 Dim B(8,3) As String Dim B(0 to 8,0 to 3) As String 计算二维数组元素个数:(上界1-下界1+1)*(上界2-下界2+1) 答
14、案9*4=36,3.动态数组,声明时未给出大小，而到要使用时才指出大小，且随时可以改变大小的数组。 格式：DimAs 例如：Dim SA() As Single 声明SA为单精度型动态数组。,4.控件数组,控件数组的建立1. 将多个控件取相同的名称2. 复制、粘贴现有的控件3. 给控件设置一个Index属性值,【例】设计如图所示的调色板界面，创建一选项按钮控件数组(Option1)。运行时，当按下某一选项按钮后，窗体的背景色就变成按钮指定的颜色。,Private Sub Option1_Click(Index As Integer)Select Case IndexCase 0Shape1.F
15、illColor = vbWhiteCase 1Shape1.FillColor = vbBlueCase 6Shape1.FillColor = vbYellowEnd Select End Sub,第8章 过程,1. Function过程Function (形参表) As = Exit Function = End Function 直接在表达式中调用。格式: 变量名=(): 常量、变量或表达式，各参数之间用逗号分隔。,2. Sub过程的格式Private|Public Sub ()Exit SubEnd Sub Sub过程的调用格式一: Call (实参1,实参2,)格式二: 实参1,实
16、参2,3. 参数的传递,形参: 出现在Sub或Function语句中。实参: 出现在调用程序中。例如，定义如下一个过程: Sub Fact(n As Integer,F As Single)End Sub 调用语句: Call Test( X , A ),形参,实参,说明: 在传递参数时，形参表与实参表中对应参数个数、数据类型、位置顺序必须一一对应。 形参表中的参数一般是: 变量名、数组名() 实参表中的参数可以是: 常量、变量、表达式、 数组名() 形参与实参的结合有两种方式: 按值传递和按地址传递。,格式: ByVal|ByRef As ByVal: 表示该参数按值传递。ByRef: 缺省
17、值。表示该参数按地址传递。,按值传递、按地址传递CALL S (实际参数)SUB S(形式参数),按值传送: 实际参数为常数、表达式、ByVal 变量 按地址传送: 实际参数变量、 ByRef 变量、数组名(),按值传送,按地址传送,第9章 菜单与对话框,1.下拉式菜单的设计(重点) 菜单项: 看成控件，具有其属性、事件、方法。 菜单项也称为菜单控件。设计: 通过“菜单编辑器”完成。打开菜单编辑器: 首先使窗体成为当前窗体 执行“工具”菜单下的“菜单编辑器”命令,注: 标题框中键入“-”和“&”符号的作用。不能给顶级菜单项添加快捷键。,例.在窗体上画图形,画直线、矩形方法(Line) 格式:
18、.Line (x1, y1)(x2, y2), ,B 功能: 在指定两点之间用指定的颜色画线或矩形说明: 窗体、图片框，缺省为当前窗体。 (x1, y1)起点坐标。 (x2, y2)终点坐标。 画线时用的 RGB 颜色。B利用对角坐标画出矩形。,画圆、椭圆方法(Circle) 格式: .Circle (x, y), , , , , 功能: 在对象上画圆、椭圆或弧。(x, y)圆、椭圆或弧的中心坐标。圆、椭圆或弧的半径。为最长轴的尺寸。圆的轮廓颜色。省略则使用 ForeColor 值。 , 以弧度为单位，范围 -2, 2。指定弧或扇形的起点和终点位置。起点的缺省值是0; 终点的缺省值是2 。 圆
19、的纵横尺寸比。缺省值为 1.0(标准圆),缺省坐标系统:,2.弹出式菜单,(1)在菜单编辑器中设计弹出式菜单，然后将顶级菜单设置为不可见。 (2) 在对象的MouseDown事件过程中编写代码，用以下的PopupMenu方法显示弹出式菜单:.PopupMenu ,flags,x,y,boldcommand,P212,参数Button:1 按下鼠标的左按钮2 按下鼠标的右按钮4 按下鼠标的中间按钮,在窗体的MouseDown事件过程中编写代码Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y
20、 As Single)If Button = 2 ThenPopupMenu AAEnd IfEnd Sub,3.多文档界面设计,1.MDI主要特点： (1) 子窗体随父窗体最小化或关闭而最小化或关闭。 (2) 子窗体不能移出父窗体。 (3) 当子窗体最大化时，标题与父窗体的标题重叠。 (4) 父窗体和子窗体可以有各自的菜单，加载子窗体后，父窗体的菜单将被子窗体的菜单取代。,P245,第11章 文件,1.文件的分类 按存取方式分类:顺序文件和随机文件 按数据的编码方式:ASCII文件和二进制文件,P255,1.顺序文件的打开 格式:Open FOR AS #功能:按指定的方式打开文件，并指定一
21、文件号。:Input以只读方式打开。当文件不存在时出错。Output 以写方式打开。Append以添加方式打开文件。 2.顺序文件的关闭 格式: Close ,2. 顺序文件,顺序文件的写操作,(1) Write #语句格式: Write #,功能: 将的内容写入指定的文件中。 (2) Print #语句 格式: Print #, 功能:将的内容写入指定的文件中。,顺序文件的读操作,(1) Input #语句 格式: Input #, 功能: 从文件中读取数据，并按顺序给变量列表中的变量赋值。 EOF函数: 在读顺序文件时，常用EOF函数判断是否已读到了文件尾。 格式为: EOF()当到达文件
22、的结尾时， EOF函数返回True，否则返回False。 (2) Line Input #语句 格式: Line Input #,补充:用户自定义类型Private|Public Type (下标) As (下标) As End Type,P265,随机文件的打开和关闭 1. 随机文件的打开使用之前必须先打开文件格式: Open For Random As Len = 2. 随机文件的关闭Close语句,随机文件的读写 1. 写文件格式: Put #文件号,记录号,变量名功能: 将一个变量的数据写入随机文件中指定的记录处。2. 读文件格式: Get #文件号,记录号,变量名功能: 将随机文件中
23、某条记录读入一个变量之中。,第12章 图形设计,一、图像框(Image) 1. 作用:显示图像 2. 如何显示图像: 设置Picture属性 在属性窗口中设置 对象名.Picture=LoadPicture(“图形文件名“) 3. 如何清除图片 在属性窗口中删除Picture属性内容 对象名.Picture=LoadPicture( ) 4. Stretch属性: True -可以延伸图形以适应控件的大小False -可以自动调整控件大小以适应图像,P286,12.2 图形控件,二、图片框(PictureBox),1. 作用 ：显示图像、文字 2. 如何显示图像 在属性窗口中: 设置Pictu
24、re属性 对象名.Picture=LoadPicture(“图形文件名“) 3. 如何清除图像 在属性窗口中删除Picture属性内容 对象名.Picture=LoadPicture() 4. 与图像框的区别: 打印与清除文字 Picture1.Print “ ”Picture1.ClsAutoSize=True自动调整控件大小以适应图像:注意：不能延伸图形以适应控件的大小。,绘图方法,画线、矩形方法(Line) 格式: . Line (x1, y1)(x2, y2), 颜色,BF 画圆方法(Circle) 格式: 对象名. Circle (x, y), 半径, 颜色, 起始角, 终止角, 长短轴比率 画点方法(Pset) 格式: 对象名. PSet (x, y), 颜色,结束,
