VisualBASIC基础1.ppt

1,Visual BASIC简介,什么是Visual BASIC Visual 视觉的、可视化的 BASIC Beginners All-purpose Symbolic Instruction Code BASIC语言是最容易掌握的语言 最原始的BASIC语言只有17个基本语句，第二代有BASICA。第三代有True BASIC、Turbo BASIC、QBASIC、Quick BASIC等，语句均有所扩充。 Windows环境使Visual BASIC应运而生,2,例11：第一个VB的例子两数相乘 Visual BASIC 6.0的两个基本特点 可视化的编程工具 程序采用“事件驱动”方式 VB的编程环境,菜单栏 工具栏 窗体设计器窗口 工程管理器窗口 属性窗口,代码窗口 窗体布局窗口 立即窗口 工具箱窗口 对象浏览窗口,3,程序设计的一般步骤： 1）创建“工程” 2）设计用户操作界面 3）设置对象属性 4）编写程序代码 5）试运行 6）保存 7）编译成.exe文件（可在脱离VB环境中运行） 8）制成安装盘（打包和展开） 例3：一个最简单的VB程序的设计,4,对象 属性 属性值,例3：另一个简单的VB程序,5,例11是如何设计的？,主要对象 属性 设置属性值,6,例vb_dy、多窗口程序的设计 该工程共需3个窗体 主窗体form1有3个命令按钮 窗体form2与窗体form3一样，含2个标签、2个文本框、2个命令按钮 窗体设计时可采用控件复制的办法,7,(Object-Oriented Progamming: OOP) VB是一种面向对象程序设计语言，其程序设计原则是以对象为中心 对象 属性 事件 方法 类,面向对象程序设计,8,对象 对象是各种事物，是VB编程的核心，是系统提供用户直接使用的输入、输出工具，它包括窗体、控件、菜单项、数据库、Excel图表，甚至打印机等。 属性 属性是描述对象的数据。属性的不同决定对象的不同。 属性的语法为： 对象名.属性名 例：Command1.Left 按钮的一些属性,9,事件 每个对象都可以对外界的动作进行识别和响应，事件是一种预先定义好的动作，通过编写代码处理对象所发生的事件，由用户或系统激活。 例：与窗体相关的常用事件 事件 说明,10,窗体事件过程的语法如下： Private Sub Form_事件名（参数） 事件过程 End Sub,控件事件过程的语法如下： Private Sub 控件名_事件名（参数） 事件过程 End Sub,例如：若单击一个名为Command1的按钮后，就会调用Command1_Click过程,11,方法 对象本身所包含的由系统提供的函数或过程叫方法。方法对对象提供某些作用。 例：窗体的一些常用方法 方法名 功能,12,使用方法的语法如下： 对象名.方法 参数 *注：有些方法不需参数 例如： Form1.Move 5000,5000 Form1.Hide Form1.Print “欢迎学习Visual BASIC!” *注：若省略了对象，表示为当前对象，一般指窗体，如上例可写为： Print “欢迎学习Visual BASIC!”,13,类 类是创建对象实例的模板，是同种对象的集合和抽象。 类的四大特点是： 抽象性：指提取一个类或对象与众不同的特征，而不对该类或对象的所有信息进行处理。 封装性：指将对象的属性与方法代码包装在一起，从而包含和隐藏对象信息。 继承性：指子类延用父类特征的能力。 多态性：两个或多个类可以有名字相同、基本目的相同但实现方式不同的行为。,14,窗体（Form）的设计 窗体的一些重要属性： ControlBox 窗口控制盒，真假值 Icon 设置窗口左上角图标 MaxButton 有无最大化按钮，真假值 Enabled 设置窗体是否响应键盘或鼠标事件 FillColor 设置图形填充色 FillStyle 设置图形的填充方式，8个可选值 ForeColor 设置窗体文本显示的前景色,VB窗体,15,鼠标事件 当在窗体上移动鼠标、按下鼠标键、释放鼠标键、单击、双击等操作时，会触发相应的鼠标事件。 MouseMove:当用户移动鼠标时，窗体立即响应该事件，执行Form_MouseMove过程中的语句。 MouseDown: 当用户按下鼠标键时，触发MouseDown事件。 MouseUp: 当用户释放鼠标键时，触发MouseUp事件。,16,例一： Private Sub Form_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) Print “这是MouseDown事件” End Sub 例二： Private Sub Form_MouseMove(Button As Integer, _ Shift As Integer, X As Single, Y As Single) Image1.Picture = LoadPicture(“C:Program Files _ Microsoft OfficeClipartPopulardoor.wmf ”) End Sub,17,键盘事件 当接触键盘键时产生键盘事件。 KeyPress:当用户敲击键盘时，窗体立即响应该事件，执行Form_KeyPress过程中的语句。 KeyDown: 当用户按下键盘某个键时，触发KeyDown事件。 KeyUp: 当用户按下键盘上某个键后释放时，触发KeyUp事件。,18,例一： Private Sub Form_KeyPress(KeyAscii As Integer) Print KeyAscii End Sub 例二： Private Sub Form_KeyDown(KeyCode As Integer, _ Shift As Integer) Circle (400,500), 200 End Sub Private Sub Form_KeyUp(KeyCode As Integer, _ Shift As Integer) Circle (2000,1000), 500 End Sub,19,例6：一个可改变背景色的窗口 设计分析： 每单击一次窗体，改变一次颜色，三种颜色轮回。需用到静态变量a、求模运算a=(a+1)mod 3 颜色设置函数RGB(0,0,255) 、 RGB(255,0,0)、 RGB(255,255,255)，还使用了Select Case分支控制结构。,20,例8：Move 移动对象或改变对象尺寸 例：Private Sub Form_Click() Move Left-20,Top+40,Width-50,Height-30 End Sub Print 在窗体、图片框、打印机输出文字 例：Private Sub Form_Click() a=100 b=80 Print “a+b=”+chr$(13)+chr$(10);a+b Printer.Print “a+b=”;a+b End Sub,21,VB程序设计语言,编码基础 代码不分字母大小写 语句书写自由 一行多语句，用“:”分隔 一个长语句换行用空格和下划线“_” 一行可多达255个字符 两种注释语句 以Rem开头和以撇号 开头 行号与标号,22,数据类型,Integer 整型 Long 长整型 Single 单精度实型 Double 双精度实型 Currency 货币类型 Byte 字节型,String 字符串类型 Boolean 布尔型 Date 日期型 Object 对象型 Variant 变体型,23,例： 长整数 32768& 单精度 123.45 123.45! 0.12345E+3 双精度 123.45# 0.12345E+3# 0.12345D+3 货币型 123.45 1234 (最多保留15位整数和4位小数) 日期型 #May 1,2001# #2001-5-1 12:24:56# -2.5 (即是：1899-12-28 12:00:00) 逻辑型 True False (换成整型时对应-1和0) 字符串 “123” “abc” “” 对象型 用set语句指定Object变量去引用某对象 变体型 是所有未定义的变量的缺省数据类型,24,测数据类型函数VarType,A=12 B=“BASIC” ? VarType(A),VarType(B) (显示 2 8),函数值 类型 0 空 1 Null 2 整型 3 长整型 4 单精度,函数值 类型 5 双精度 6 货币型 7 日期型 8 字符串,25,自定义类型 例：定义一个考生类型 Type StudType 类型名 intNo As Integer 准考证号 strName As String * 4 考生姓名 strSex As String * 1 性别 sngMark(1 To 4) As Single 4门成绩 sngTotal As Single 总分 blnTag As Boolean 奖惩标志 intWish(1 To 2) As Integer 填报志愿 intAdimitSchool As Integer 录取学校 End Type,26,常量 用户声明常量 例：Const PI=3.141592 Const AA#=123.456 双精度常量 系统提供的常量 VB还提供了应用程序和控件的系统定义的常量，引用时以2个小写字母为前缀，如： vb：表示VB和VBA中的常量 xl：表示Excel中的常量 db：表示Data Access Object库中的常量 例：窗口状态属性WindowsState可接受下列常量： vbNormal0 vbMinimized1 vbMaximized2,27,变量 变量命名规则： 以字母或汉字开头，后面由若干字母、汉字、数字或下划线构成 变量的显式声明: Dim 变量名 As 类型 例：Dim strS As String*50 最多只能存放50个汉字或ASCII字符 此外，还可用Static、Public、Private声明变量 变量的隐式声明： 未作显式声明即为隐式声明，所有隐式声明的变量都是Variant类型的,28,变量的作用域 局部变量： 在一个过程内部定义的变量。它只能用于该过程。例如，在Form1_Load、Command1_Click中定义的变量是局部变量。 窗体和模块级变量：在窗体或模块（用Dim）的代码窗口的“通用”段中声明的变量。例如，在Form1中声明：Public a As Integer ，a仍然不是全局变量，虽在另一窗体和模块中可以引用它，但必须用Form1.a而不能用a。 全局变量：可被程序中任一个窗体访问。全局变量要在模块文件（.bas）中的通用段部分用Public或Global关键字声明。而在模块中以Dim 或Private声明的变量只是模块级变量。,29,静态变量 Static 变量名 As 类型 数组 一维数组 Dim 数组名(下界 To 上界) As 类型 例：Dim a(2) As String 含a(0)、a(1)、a(2) Dim b(-1 To 2) As Integer 含4个元素 多维数组 例：Dim aa(2, 2) As String 含9个元素 Dim bb(2, 3 To 5) As Integer 含9个元素 Dim ccc(2, 2, 2) As Byte 含27个元素,30,例9：在例5多窗口中使用全局变量 设计分析： 要建立一个新模块，可采用下面两种方法之一： 选择菜单命令“工程”/“添加模块” 右击“工程”窗口，选择“添加”/“添加模块” 然后在声明部分用Public或Global进行变量声明，如：Public a As Integer 被声明的变量将可在程序中的任何窗体、控件的过程中使用。,31,运算符与表达式 算术运算符 + - Mod * / 单目- 例： 6*7 96 -23 10 Mod 4 结果： 42 1 -8 2 关系运算符 = = Like Is 例： “abc”=“ab” “abcd” Like “bc” 结果： False True,32,逻辑运算符 And Or NOT Xor Eqv Imp 例：True And False Not False 结果： False True 字符运算符 + & 例： “abc”+“de” “abc”&“de” “abc” & 123 结果： “abcde” “abcde” “abc123”,33,内部函数 数学、转换、日期、字符串 Abs(N) Cos(N) Exp(N) Log(N) Rnd Sin(N) Sgn(N) Sqr(N) Tan(N) Iif(L,Z1,Z2) Asc(C) Chr (N) Fix(N) Hex(N) Int(N) Lcase(C) Oct(N) Str(N) Ucase(C) Val(C) Date () DateValue(C) Day(C|N) Month(C|N) Now Time WeekDay(C|N) Year(C|N) InStr(N1,C1,C2) Left$(C,N) Len (C) LenB (C) Ltrim (C) Mid(C,N1,N2) Right(C,N) Rtrim(C) Space(N) StrComp(C1,C2),34,程序的结构 顺序结构 按前后顺序执行 选择结构1 If 逻辑表达式 Then 语句块1 Else 语句块2 End If 注：If是可嵌套的,选择结构2 Select Case 表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 Case 表达式列表N 语句块N Case Else 语句块N+1 End select,35,例vb_case_tu：显示不同图形 循环结构1 For 循环变量=初值 To 终值 STEP 步长 语句块 Exit For 语句块 Next 循环变量 例vb_case_2：打印ASCII码表、打印九九乘法表、小学生四则运算练习题,36,循环结构2 For Each 变量 In 数组 语句块 Exit For 语句块 Next 循环结构3 Do While|Until 逻辑表达式 语句块 Exit Do 语句块 Loop,37,例10：数组求和 例14：求s=1+2+3100之和） 循环结构4 Do 语句块 Exit Do 语句块 Loop While|Until 逻辑表达式 例15：一个人的工资是7839元，计算100、50、20、10、5、2、1元各有几张。 用循环改进例15为vb_15_1,38,自定义过程的种类 以Sub保留字开始的子过程 以Function保留字开始的函数过程 以Property保留字开始的属性过程 以Event保留字开始的事件过程 自定义过程的方法 利用工具-添加过程命令定义 利用代码窗口通用段直接定义,过程（子程序）,39,自定义过程的一般形式 Static Public|Private Sub 过程名 (参数列表) 局部变量或常量定义 语句 Exit Sub 语句 Eed Sub,40,自定义函数的一般形式 Static Public|Private Function 函数过程名 _ (参数列表) As 类型 局部变量或常量定义 语句 函数名=返回值 End Function,41,子过程的调用 子过程名 参数列表 或 Call 子过程名 (参数列表) 函数过程的调用 变量名=函数过程名(参数列表) 参数的传递 传值 (参数前加ByVal保留字) 传地址 数组参数的传递,42,过程的作用域 窗体/模块级 在某窗体或标准模块内加Private定义 全局级 在某窗体或标准模块内加Public定义,43,VB的标准控件,标签（Label） 标签的一些常用属性： Alignment 设置标签内容的三种对齐方式 Autosize 设置是否自动调整大小，真假值 BorderStyle 设置标签有无边框 BackStyle 设置标签背景是否透明 FontName 设置标签字体 FontStrikeThrough 设置标签字体加删除线,44,例19：利用两个标签，显示有浮雕效果的文字 设计分析： 浮雕效果实际上是使显示的文字利用白色和黑色的错位叠加来实现。为实现错位，只要使两个标签的Left和Top属性值有一些差距。另外，还要注意上层标签的背景应透明，即BackStyle值为0。可利用复制的办法产生第二个标签。 例20：在一个标签中显示多行文字 Lalel1.Caption=“第1行”+chr$(13) +“第2行”,45,文本框（TextBox） 文本框的一些常用属性： Text 是默认属性，用于输入和显示内容 Alignment 设置内容的三种对齐方式 Locked 设置文本框是否可被编辑，真假值 Maxlength 设置能够输入的正文的最大长度 MultiLine 设置是否可多行输入和显示，真假值 PasswordChar 输入密码时显示某种字符 ScrollBars 设置滚动条，4个可选值 SelStar/SelLength/SelText 被选正文的,46,文本框的三个重要事件： Change 当文本框内容被改变时就会引发一次Change事件。例如：当键入“Hello”时，会引发5次Change事件。 KeyPress 当用户按下并释放键盘一个ANSI键时，会引发一个KeyPress事件，并返回一个KeyAscii参数到该事件过程中。例如：当按下“a”时，返回KeyAscii的值是97。 LostFocus 在一个对象失去焦点时发生，焦点的丢失或者是由于Tab键移动或者是单击另一个对象操作的结果。,47,例21：利用文本框输入密码 设计分析： 将输入密码与原来设定的密码校验，若一致，则继续执行其他功能；否则显示警告信息。 需用到PasswordChar属性，可将该属性值设置为*。 例22：多行文本框的设计 设计分析： 文本框显示单行长内容，可通过设置Multiline的属性值为True来实现。,48,例23：测试文本框中每一个输入的文字是否为大写英文字母 设计分析： 大写字母ASCII值在65与90之间，这里需要用到KeyPress事件进行测试，每次输入均显示提示。 例24：设计一个允许剪切、复制和粘贴的简单便笺板程序 设计分析： 文本框初态为空， Multiline属性值为True，运行时输入内容。由三个按钮实现剪切、复制、粘贴，另一个按钮控制结束。,49,命令按钮（CommandButton） 命令按钮的一些常用属性： Cancel 值为True时，按此纽与按键等价 FontSize 设置命令按钮字号 Default 设置默认按钮（一个窗体只能一个） Picture 设置图形按钮上要显示的图形文件 Style 设置按钮2种样式（0-标准/1-图形） ToolTipText 显示图形按钮注解提示 Value 在程序中设置或引用, True表示按下按钮 Visible 设置命令按钮是否可见，真假值,50,例25：将例24的命令按钮改为图形按钮并加上提示 设计分析： 将前三个命令按钮的Style属性值设置为1，分别将此三个按钮的ToolTipText属性值设置为“剪切”、“复制”、“粘贴”以产生提示效果。 可通过将前三个命令按钮的Picture属性值分别设置为指定目录中的“Cut.bmp”、“Copy.bmp”和“Paste.bmp”，也可在Form_Load()事件过程中写入：Command1.Picture=LoadPicture _ (“E:vb特例Cut.bmp”)等三个语句来装入图形,51,例26：vb_case_tu 例27：设计一个程序，窗体上有两个按钮和三个标签。单击“确定”钮则该钮及第一个标签不可见，另两个标签显示出当前日期和时间。 主要属性： Label1: Caption 显示今日日期和时间 Label2、Label3: Caption 空白 BorderStyle 1 Command1： Caption 确定(&OK) Default True Command2： Cancel True,52,复选框（CheckBox） 复选框的一些常用属性： Alignment 设置复选框在标题左边或右边 Caption 标题，设置复选框的文本注释内容 DataField 设置/返回一个值，绑定到当前记录 Enabled 设置复选框是否可使用，真假值 Index 设置/返回在控件数组中的标识（下标） Left 设置复选框的左边缘与容器左边缘的距离 Style 设置2种显示方式（0-标准/1-图形） Value 0未选 1被选 2灰色，禁选,53,单选按钮（OptionButton） 单选按钮的一些常用属性： Alignment 设置复选框在标题左边或右边 Caption 标题，设置单选按钮的文本注释内容 Enabled 设置是否对事件产生反应，真假值 Index 设置/返回在控件数组中的标识（下标） Style 设置2种显示方式（0-标准/1-图形） Top 设置对象顶端与容器顶端的距离 Value True被选 False未选 Visible 设置对象是否可见，真假值,54,例28：设计一个程序，界面由一个标签、一个文本框、四个复选框（用以改变标签框中文字的字体、字型、颜色及大小）组成。 例29：设计一个程序，界面由一个标签、一个命令按钮、四个单选按钮（用以选择当天对应的星期、日期、月份、年份显示到标签框中）组成。,55,框架（Frame） 框架主要用于区分一个控件组，往往与其他控件一起使用 框架的常用属性： Caption 设置框架的标题 Appearance 设置该控件是否以3D效果显示 FontBold 设置标签字体加粗 FontItalic 设置注释内容显示斜体 例30_1：将前面例28加入框架 例31：设置字体、大小、颜色框架,56,列表框（ListBox） 列表框的一些常用属性： List 字符数组，存放列表项目，下标从0开始 ListCount 只能在程序中设置或引用(选项总数) ListIndex 只能在程序中设置或引用(选中项号) MultiSelect 设置是否可多选，共3种值 Selected 只能在程序中设置或引用(选中哪一项) Sorted 只能在设置状态设置（是否按字母序） Style 设置控件外观（0标准，1复选样式） Text 是默认属性，只能在程序中设置或引用,57,列表框的一些常用方法： AddItem 用于将项目添加到ListBox控件 语法：Object.AddItem Item, Index 例如：List1.AddItem “电子系”, 5 RemoveItem 用于从ListBox控件中删除一项 语法：Object.RemoveItem Index 例如：List1.RemoveItem 5 Clear 删除ListBox控件的所有项目 语法：Object.Clear 例如：List1.Clear,58,例32：设计一个程序，查询飞往各城市的航班时间。 设计分析： 窗体包含1个列表框、2个无边界提示标签、1个有边界显示航班信息的标签、1个命令按钮。当用户单击列表框中任一项时，右侧标签框显示航班到达信息。 例33_1：删除例32列表框中被选中一项的内容 例34：窗体有2个列表框，2个按钮。1个列表框显示系统提供的字体，可多选，当用户单击“显示”钮时，在另1个列表框中显示用户所选的字体列表项。,59,组合框（ComboBox） 组合框的一些常用属性： List 设置/返回控件的列表部分中包含的项 DataSource 设置一个数值，指出数据控件通过它将当前控件绑定到数据库中 Style 设置控件外观（0下拉组合框、1简单组合框、2下拉列表） Text 当Style属性值为0或1时，返回/设置编辑域中的文本；当Style属性值为2时，返回列表框中选中的项目,60,组合框的一些常用方法： AddItem 用于将项目添加到ComboBox控件 语法：Object.AddItem Item, Index 例如：Combo1.AddItem “电子系”, 5 RemoveItem 用于从ComboBox控件中删除一项 语法：Object.RemoveItem Index 例如：Combo1.RemoveItem 5 例35：设计一个程序，使用组合框查询家电产品。,61,滚动条（HScrollBar / VScrollBar） 滚动条的一些常用属性： Index 设置/返回控件在控件数组中的标识号 Height 设置/返回对象的高度 LargeChange 单击滚动条空白处滑块移动的增量 SmallChange 单击滚动条箭头键滑块移动的增量 Max 滑块处于滚动条最大位置时所代表的值 Min 滑块处于滚动条最小位置时所代表的值 MouseIcon 设置一个自定义鼠标图标 Value 滚动条内滑块所处位置所代表的值,62,滚动条的一些重要事件： Scroll 当拖动滑块时会触发该事件 Change 当改变Value属性值时（滚动条内滑块位置改变）会触发该事件 例36：设计一个调色板应用程序 主要属性： Text2: Text 颜色测试 HScroll1、 HScroll2、 HScroll3: Max 255 LargeChange 25,63,例37：计算人口增长。设00年人口为13亿，显示20、40、60年未来人口数 设计分析： 年增长率r不由用户从键盘输入，而用滚动条平滑移动来使r值逐渐变化 主要属性： Label1、 Label2、 Label3、 Label4: FontName 宋体 FontSize 五号 HScroll1: Max 30 Min 0 SmallChange 5 LargeChange 10,64,计时器（Timer） 计时器的一些常用属性： Enabled 是否响应用户生成事件，真假值 Interval 设置两次调用Timer控件的Timer事件间隔的毫秒数 例38：设计一个蝴蝶飞舞程序 主要属性： Form1: BackColor 白色 Timer1: Interval 100 Image1、Image2: Visible False,65,例39：设计一个数字时钟 Form1: Caption 例30 Timer1: Interval 1000 Image1: Stretch True Image2: Stretch True Combo1: Style 1 Text 空 Label1: Alignment 2 Caption 00:00:00 BorderStyle 1 Command1: Caption 退出,66,例40：设计一个定时闹钟 Label3: Caption 空 BorderStyle 1 Text1、Text2: Caption 空 Maxlength 2 Timer1: Interval 1000 在Label1、Label2、Label4、Label5的Caption中分别输入文字 在通用段定义两变量： Dim hour, minute,67,例41：在一个画面上轮流显示(隔2秒) Visual BASIC课程的各章目录 Label1: Caption 空 BackStyle 0 Font(字号) 小四 Image1: Stretch True Timer1: Interval 2000 在通用段定义数组： Dim a(10) As String,68,其它控件的使用 驱动器列表框、目录列表框、文件列表框 例42：设计一个图片预览窗口 例33的主要属性： File1: Pattern *.jpg; *.wmf; *.bmp; *.gif Image1: Stretch True 图片框 图片框中只可以使用三种图形文件： .bmp .ico .wmf 只有.wmf文件，才能自动调整大小填满图片框,69,例43：用图片框显示Word艺术字 设计分析： 先从Word应用程序中设计好艺术字，再将其复制后粘贴到Picture1中 画线工具、形状工具 例44：Shape控件的几种形状 例vb_case_2：一个多窗口示例,70,菜单的内容 菜单栏 菜单标题 菜单项 菜单命令 子菜单 分隔线 菜单的状态 正常 隐藏 无效,菜单的设计,71,菜单编辑器 “标题”文本框 “名称”文本框 “快捷键”下拉列表 “下一个”按钮 “插入”按钮 “删除”按钮 “复选”复选框 “有效”复选框 “可见”复选框,“”按钮 “”按钮 “”按钮 “”按