第三章VB的基本语法.ppt

第三章VB的基本语法,3.1 基本数据类型 数值型 integer long single double currency byte 字符串类型 string 日期类型 date 同时表示日期和时间 dim firstday as date firstday=#99/12/31# firstday=“99/12/31” firstday=“22:30:50”,逻辑类型 boolean 逻辑型变量的取值范围只能是true(-1)或false(0)。 Dim switch as boolean switch=true switch=-1 这两条赋值语句功能是相同。 变体类型 variant 变体型变量是一种十分灵活的变量，可以保存各种类型 的数据。在定义变量中没有明确指明数据类型时，变量缺省时定义为变体类型。 dim x dim y as variant 上述两个语句都是定义一个变体变量。,对象类型 定义对象变量时，可以直接指明对象的类型。 dim obj1 as commandbutton dim obj2 as textbox 定义了对象变量后，使用set语句为对象变量赋值。 Set obje=command1 obj1.caption=“打开” 修改命令按钮的标题 obj1.fontbold=true 用户自定义类型 它类似于C语言中的“结构体”类型的数据。 Type 类型名 元素名 as 类型 元素名 as 类型 元素名 as 类型 end type,例：定义一个employee(职工）类型，其中包括职工号、姓名、年龄。 Type employee empno as integer name as string*10 age as integer end type dim emp as emloyee 在后面的程序中我们可以用“变量.元素”这样的形式来引用各个成员。 emp.name=“张三” emp.no=83001 emp.age=21 3.2 变量的声明 在VB中使用一个变量时，可不加任何声明而直接使用，叫做隐式声明。使用这种方法虽简单，但却不利于程序调试，所以一般对于变量最好先声明，后使用。设置方式： 在“工具”菜单中选“选项”，在对话框中选“编辑器”，在“要求变旦声明”中选中。 dim 变量名 as 数据类型 dim name as string dim sum(3) as integer,使用static声明变量 static 变量名 as 数据类型 static a as integer 使用static声明变量为静态变量。它与dim声明的变量不同之处在于在执行一个过程结束时，过程中所用到的static变量的值会保留，下次再调用此过程时，变量的初值是上次调用结束时被子保存留的值，而dim 声明的变量在过程结束时不保留，每次调用时需要重新初始化。 3.3 运算符和表达式 算术运算符 + - * / （整除） mod 关系运算符 = = 逻辑运算符 not and or xor(逻辑异或） eqv(逻辑等于）,3.3 字符串连接运算符 + & c=“abcd” + “ef” c=“abcd” & “ef” 这两式子的运算结果是相同。 但是，由于“+”号同时也是加法运算符，VB又支持变体型的变量，所以将加号用做字符串连接运算符有时会引起混淆。因此，在进行字符串连接时应该 选用“&”操作符而不是“+”操作符。 3.4 基本语句 赋值语句 变量名=表达式 条件语句 1）if then 语句 2）if then 语句组 endif,3）if then 语句组1 else 语句组2 endif (例：ch03 ex3.vbp) 4）if then 语句组1 else if then 语句组2 else 语句组3 endif (例：ch03ex4.vbp),语句组1,条件,语句组2,T,F,条件1,语句组1,条件2,语句组2,语句组3,T,F,T,F,多分支语句 select case 变量或表达式 case 值1 语句组1 case 值2 语句组2 case 值3 语句组3 case else 语句组n end select (例：ch03ex5.vbp) 变量或表达式：可以是整型或字符串表达式 值：是一组用逗号分隔枚举值。,（例：编写一个分数等级转换表 分数 等级 =90 优 =80 良 =70 中 =60 及格 =60 不及格 x = Val(Text1.Text) Select Case x 10 Case 10, 9 Text2.Text = “优“ Case 8 Text2.Text = “良“ Case 7 Text2.Text = “中“ Case 6 Text2.Text = “及格“ Case 0, 1, 2, 3, 4, 5 Text2.Text = “不及格“ End Select 转向语句 goto 标号 on 表达式 goto 标号1，标号2，,循环语句 1）do while 条件 语句体 exit do 语句体 loop 2）do 语句体 exit do 语句体 loop while 条件 条件真时退出循环 3）do until 条件 条件假时执行循环体 语句体 exit do 语句体 loop 4）for 循环变量=初值 to 终值 step步长 语句体 exit for 语句体 next 循环变量,例：（实验书第三章练习三）编写求一元二次方程根。（ch03练习3.vbp) 注：format(numer,fmt) 功能：将数值型量转为字符型量。 Numer：为一个数值型 量。 Fmt：为用户定义格式。 #：显示数字，不在前或后补0。 0：显示数字，在前或后补0 . ：小数点。 ，：千位符。 %：百分比。 例：x=2.33333 format(x, “#.#”) 结果为：2.33 字符串 例：求 1+2+3+100的和 (ch03ex6.vbp) 例：设计一个窗体打印九九乘法表 (ch03ex7.vbp) 例：编写求1*1+2*2+3*3+100*100的和。 Vb常用函数：（见P67),3.5 以对象为核心的程序设计 在VB的程序设计中，对象起着最重要的角色，窗体是一个对象，每一个放置在窗体上控件也都是对象。由于VB是面向对象的程序设计语言，它的代码结构与对象有着很大关系，在VB中每一 个窗体和控件都有一些预先定义好了的事件。 例：命令按钮对象，当用户单击命令按钮时，命令按钮对象会产生click事件。,Click事件,Private sub command1_click() 被驱动执行的程序 end sub,（单击鼠标左键）,对程序而言，可以不处理这个事件，此时这个事件对程序便没有什么作用。但是如果程序要处理这个事件，该如何进行？,因此，如果觉得某个对象的某种事件有进行处理的必要，则以“该 对象的名称”与“该事件的名称”定义这个事件程序，如下示： private sub 对象名_事件名（） 在此编写希望被驱动执行的程序 end sub 将来该对象的这个事件发生时，其对应的事件程序会被驱动。以后学习每一种对象时，需了解该对象会产生哪些事件和事件发生时机，这样才能让用户与所编写的程序充分产生交互关系。 了解对象的特性 其实很多对象只要看它的名字，就可以了解它的基本特性。 例如：textbox 同时亦可以通过了解对象的属性。 懂得控制对象 控制对象的方法不外乎以下两种： 1）设置对象属性 2）调用对象方法,其实方法是对象内部的子程序，这种子程序的作用是要求对象执行某件工作。 例如：很多控件都具有move方法，调用这个方法可让控件移动它的位置。 查阅“方法” 要了解某一种对象提供了哪些方法，可以打开该 对象的MSDN帮助文件，再选取“方法”选。 3.6 常用事件在程序设计中应用 事件驱动模式是VB程序的主流，我们必须了解每一种对象会产哪些事件，以及这些事件产生的时机。随着对象在特性上的差异，可能产生的事件也会有的不同。下面先介绍一些常用事件，及在程序设计中应用。 生与灭事件 事件 发生时机 initialize 窗体第一次被装入时 terminate 窗体最后一次被卸载时 load 窗体每一次被装入时 unload 窗体每一次被卸载时 queryunload 窗体每一次被卸载时,Initialize与load事件区别 同样都是发生在窗体被装入时，两者很容易混淆，实际上intialize事件只有在窗体第一次被装入时发生，而load事件是在窗体每次被装入时都有发生。 例：打开第三章formlife.vbp 什么程序代码写在intialize或load事件程序？ 1）控件的初始化：几乎都是放在load事件程序中，因为控件会随着窗体的卸载而一起被清除，所以每次被装入时都要进行初始化。 2）变量的初始化：放在initialize事件程序中居多，因为变量的内容光焕发不会随着窗体的卸载波而消失。当然，如果希望每次窗体被装入时都有重新设置变量的内容，就要将变量的初始化放在load事件程序中。 如何禁止用户使用关闭按钮半闭窗体？ 在unload事件程序中含有一个cancel参数，如果将这个参数设置为true则窗体就不能关闭。,例：在程序中不允许用户通过单击关闭按钮关闭窗体。 Dim switch as boolean form_unload if not switch then cancel=true endif end sub command1_click switch=true unload me end sub Queryunloadd与unload事件有何区别 queryunload比unload事件先发生。,Queryunload事件比unload事件多了一个unloadmode参数 unloadmode可以取值 意义 vbformcontrolmenu(=0) 用户单击窗体上的关闭按钮 vbformcode(=1) unload语句调用 vbappwindows(=2) 用户结束windows操作系统 也即可以利用unloadmode参数来判断用户是否用鼠标单击了窗体上的关闭按钮。借助queryunload事件的参数简化上面的程序。 Private sub command1_click() unload me end sub private sub form_queryunload(cancel as integer,unloadmode as integer) if unloadmode=vbformcontrolmenu then cancel=true end sub,Queryunload事件另一个应用： 经常用来检验程序结束前，窗口关闭前是否已经保存了该保存的东西，如果尚未保存，就显示一个对话框的信息。 对话框msgbox函数使用。 Msgbox函数格式： msgbox(prompt ,buttons,title) prompt：是一个字符串，设置显示在对话框中信息内容。 Buttons：（可选参数）用于显示对话框中显示按钮数。形式、图样见P77。 Tile：（可选参数）设置显示在对话框标题中信息。,title,prompt,buttons,例：练习使用msgbox函数（ch03练习11.vbp) 1）调用msgbox显示两个按钮（是，否），提示信息“要关闭 窗体吗？”。是，关闭窗体，否， 2）调用msgbox提示信息为“操作错误”显示图标为 3）调用msgbox提示信息为“没有满足条件的记录”，显示图 标为： 例：（第三章练习5）编写一个程序，当用户单击窗体关闭按钮时，弹出对话框，要用户确定是否真的关闭窗体，是关闭，否取消关闭窗体。 状态改变的事件 事件 发生时机 activate 当窗体成为活动窗口时 deactivate 当窗体不再是活动窗口时 gotfocus 对象获得焦点时 lostfocus 对象丢失焦点时 rezies 对象大小改变时,Activate与gotfocus事件有何区别 只有窗体对象才有activate事件，其他控件都有没有activate事件，它表示窗体变成“活动窗口” gotfocus事件中，除了窗体对象含有这个事件外，其它控件如命令按钮，文本框、复选框、图片框等，也都有含有这个事件。 当光标落在某个对象上（对象获得焦点时）则会发生gotfocus事件。 例：当输入光标移到textbox时，整个textbox都变成被选区。 注：在textbox控件对象中有两个属性，用途是用来设置选取区。 Selstart 设置选取区的起始位置 sellength 用来设置选区的长度 private sub text1_gotfocus() text1.selstart=0 text1.sellength=len(text1.text) end sub 例：（第三章练习六）当输入光标移到textbox时，希望将其文字颜色设置为红色，以提醒用户注意，当输入光标离开textbox其文字还原原来的黑色。,当窗体大小改变时会发生resize事件 例：让控件随着窗体一起调整大小。（在窗体上放置textbox及picturebox) private sub form_resize() text1.left=0 text1.top=0 text1.width=me.scalewidth/2 text1.height=me.scaleheight picture1.left=me.scalewidth/2 picture1.top=0 picture1.height=me.scaleheight end sub 键盘类事件 事件 发生时机 keypress 用户按下键盘并且放开时 keydown 用户按下键盘时 keyup 用户放开按键时,例：（ch03/ex12.vbp)P85 鼠标类事件 事件 发生时机 click 用户在对象上按下鼠标左键并且放开时 dblclick 用户在对象上面双击鼠标时 mousedown 用户在对象上面按下鼠标左键时 mouseup 用户在对象上面放开鼠标左键时 mousemove 用户在对象上面移动鼠标时 mouseup和click事件有何区别 1）如果用户在对象上按下鼠标左键，而鼠标仍然在对象上时放开鼠标，会先发生mouseup事件再发生click事件。 2）若用户在对象上按下鼠标左键，然后将鼠标移到对象之外再放开鼠标：只发生mouseup事件。 3）若用户在对象之外按下鼠标左键，然后将鼠标移到对象上再入开鼠标：只发生mouseup事件。,Mouseup与click选择 在windows操作的惯例中，所谓“用鼠标单击”指的是“按下鼠标左键，不要移开鼠标并放开鼠标左键”（也就是click意思）。因此，如果程序想要针对用户“用鼠标单击”做反应，就应该 将程序编写在click事件程序中。 至于mouseup事件通常与mousedown配对使用。 例：写一个可供用户画线的程序，当用户按下鼠标左键时，决定线段的第一点，然后用户会移动鼠标，当放开鼠标左键时，就由第一点画一条线到鼠标指针所在的位置。(ch03练习7a.vbp) 如何在对象上作图 1）用pset方法画点 格式：对象名.pset (x,y) ,颜色 其中颜色可以用RGB函数指定或符号常量(vbred vbgreen vbblue） rgb(red,green,blue) 其中：red,green,blue取值0255的整数。点的大小由对象的drawWidth属性决定。 功能：返回一个颜色值。,例：在窗体中随机地显示若干彩色的点。窗体上有两个命令按钮：“画点”和“退出”。单击“画点”按钮，则在窗体上随机画上若干点。单击“退出”按钮，结束程序的运行。(ch03练习13.vbp) Private Sub Command1_Click() For i = 1 To 3000 x = Rnd * Width y = Rnd * Height r = Int(256 * Rnd) g = Int(256 * Rnd) b = Int(256 * Rnd) PSet (x, y), RGB(r, g, b) Next i End Sub,例：设计一个窗体使用鼠标在其上任意绘制图形。（ch03ex8.vbp) Dim mouse As Boolean mouse变量用来标志画图的开始 Private Sub Form_Load() mouse = False Me.ForeColor = vbRed Me.DrawWidth = 2 End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) mouse = True PSet (X, Y) End Sub,Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If mouse Then PSet (X, Y) End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) mouse = False End Sub,2）line方法 对象.line step(x1,y1) - step(x2,y2),颜色,BF 功能：用来画直线和矩形框等。 Step:设置坐标值是绝对坐标还是相对坐标。(有step 是相对坐标） 缺省step(x1,y1)时：从上一次画图点到当前点画直线。 选择B：利用对角坐标画出矩形。 选择F：矩形以矩形边框填充。 直线的宽度由对象的drawWidth指定，直线的样式由对象的drawStyle属性指定。（P145） 3）circle方法 对象.circle step(x,y),r,c,sang,eang,mod (x,y) 园、园弧或者椭圆的园心坐标。 r 园、园弧的半径。 c 设置绘图颜色。 sang 在画园弧时设置园弧或椭圆弧的起始角度（0-2）。 eand 在画园弧时设置园弧或椭圆弧的终止角度（0-2） 。 Mod 在画椭圆时设置椭圆的纵横比值（大于1则椭圆细而高） 园的样式：由对象的fillStyle属性决定。P150。线的宽度由对象的drawWidth指定，线的样式由对象的drawStyle属性指定。 画扇形：则起始角及终止角都是取负值。（ch03ex10.vbp),例：设计一个窗体，单击绘图按钮时，在窗体绘制如下图形：（ch03ex9.vbp),Private Sub Command1_Click() Circle (2500, 1500), 1000 Circle (2500, 1500), 1000, , , , 2.5 Form1.FillStyle = 7 Circle (2500, 1500), 1000, , , , 0.4 End Sub,例：设计一个窗体，在上面绘制如下图所示的弧和扇形（ch03ex10.vbp),Const pi = 3.14159 Private Sub Form_Load() Me.Show Me.ForeColor = vbRed Me.DrawWidth = 2 Circle (1800, 500), 1000, , -pi, -1.5 * pi Circle (3500, 500), 1000, , pi, 1.5 * pi End Sub,例： 1）在picture1（300，300）上画一点，(ch03画图方法.vbp) 2）在picture1上画从（600，600）（1000，1000）两点直 线，颜色红色。 3）在picture1上画以点（1200，1000）到点（2000，2500） 对角点矩形，颜色为绿色。 4）在picture1上画以（1500，600）为园心半径200，颜色为 蓝色的园。 5）在picture1上画园弧，以（4500，600）为园弧园心，半径 400，起始角900，终止角2700。 6）在picture1上画椭圆，椭园园心为（3500，1500），半径 为500，椭园横轴与纵轴比率0.5，线条颜色为黄色。,例：设计一个窗体，根据用户输入的三个班的学生人数，显示各班人数所占比例的饼图(ch03ex11.vbp),Option Explicit Const pi = 3.14159 Private Sub Command1_Click() Dim a, b, c, s, i As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) s = a + b + c,Picture1.FillStyle = 0 For i = 1 To 200 Picture1.FillColor = vbRed Picture1.Circle (1500, 1500 - i), 1000, vbRed, -2 * pi, -2 * pi * a / s, 2 / 3 Picture1.FillColor = vbGreen Picture1.Circle (1500, 1500 - i), 1000, vbGreen, -2 * pi * a / s, -2 * pi * (a + b) / s, 2 / 3 Picture1.FillColor = vbBlue Picture1.Circle (1500, 1500 - i), 1000, vbBlue, -2 * pi * (a + b) / s, -2 * pi, 2 / 3 Next i Picture1.FillColor = vbRed Picture1.Circle (1500, 1500 - i), 1000, vbWhite, -2 * pi, -2 * pi * a / s, 2 / 3 Picture1.FillColor = vbGreen Picture1.Circle (1500, 1500 - i), 1000, vbWhite, -2 * pi * a / s, -2 * pi * (a + b) / s, 2 / 3 Picture1.FillColor = vbBlue Picture1.Circle (1500, 1500 - i), 1000, vbWhite, -2 * pi * (a + b) / s, -2 * pi, 2 / 3 End Sub,回到上一例(ch03练习7a.vbp) dim x0,y0 as integer private sub form_mousedown(button as integer,shift as integer, x as single, y as single) x0=x y0=y me.mousepointer=2 end sub private sub form_mouseup(button as integer, shift as integer, x as single,y as single) line (x0,y0)-(x,y) end sub,如何让画线的程序具有预览的功能？(ch03练习7.vbp) 所谓“预览”意思是移动鼠标时，可以看到要画的线，而当放开鼠标时，决定最终直线。 分析： 定义 全程变量 （x0,y0) 表示画直线起始点 （x1,y1) 表示上一次画直线的终点坐标。 1）利用mousedown获得画直线起始点 x0=x, y0=y 并将画图方式选择为： me.drawmode=vbnotxorpen (原值：vbcopypen) 含义：同一图形（在同一位置上）画两次等于没有画。 2）利用mousemove（鼠标移动时发生事件） 首先注意画直线起始点确定没有？（有起始点才能画直线 isempty(x0)=false） 第一次（从起始点）移鼠标时画直线(isempty(x1)=true) line(x0,y0)-(x,y) x1=x, y1=y 、,第二次（及以上）移动鼠标时： 首先将上一次画直线擦去 (isempty(x1)=false ) line (x0,y0)-(x1,y1) 然后再画新的直线 line(x0,y0)-(x,y) x1=x, y1=y 3）利用mouseup事件捕获画直线最后一点。 如果有直线起始点（x0,y0)且有（x1,y1) 首先擦去已画过直线 line(x0,y0)-(x1,y1) x1=empty 将画笔改回初始值：me.drawmode=vbcopypen 画直线：line(x0,y0)-(x,y) x0=empty 4）利用isempty(变量名）判断是否有直线的起始点及上一次画直线的终止点。（ch03练习7.vbp) 对话框的设计 对话框是VB应用程序与用户进行信息交换的窗口，可以使用VB提供函数，msgbox函数或inputbox函数作为对话框，亦可以使用commondialog控件设计对话框，甚至用户自已设计对话框。,Inputbox函数 inputbox(prompt ,title) prompt：用于设定显示在对话框中的信息内容。 Title：是一个可选参数，用于设定显示在对话框中标题的信息内容。 函数返回值：返回用户输入字符串，如果用户单击cancel则返回空字符串。 注意：使用inputbox函数作对话框，一般只用于简单数据输入到窗口。 例：编写一个具有预览功能画弧程序。(ch03练习10.vbp) 在对象上画弧的方法： 对象名.circle (x,y),r,c,sang,eang 1）在通用中定义全局变量 Dim ang1, ang2 As Single Dim r1 As Single Dim x0, y0 As Single 2）在窗体上放置一个命令按钮，单击命令按钮开始画弧，输入画弧起始角及终止角。,Private Sub Command1_Click() pi = 3.14 ang1 = pi * (Val(InputBox(“输入起始角:“) / 180 ang2 = pi * (Val(InputBox(“输入终止角:“) / 180 End Sub 3）在mousedown事件中获得画弧的园心。 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) x0 = X y0 = Y Me.DrawMode = vbNotXorPen End Sub 4）在mousemove事件中，将上一次弧擦掉，画新的弧。,Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Not IsEmpty(x0) Then If Not IsEmpty(r1) Then Circle (x0, y0), r1, , ang1, ang2 End If r1 = (X - x0) 2 + (Y - y0) 2) 0.5 Circle (x0, y0), r1, , ang1, ang2 End If End Sub,5）在mouseup 事件中画出最后图形 Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Not IsEmpty(x0) Then If Not IsEmpty(r1) Then Circle (x0, y0), r1, , ang1, ang2 End If Me.DrawMode = vbCopyPen r1 = (x0 - X) 2 + (y0 - Y) 2) 0.5 Circle (x0, y0), r1, , ang1, ang2 x0 = Empty r1=empty End If End Sub,3.7 主动模式的程序设计 除了“事件驱动”程序设计模式之外，VB也允许我们将程序设置成“主动模式”。主动模式的程序与以前我们所讲DOS程序很相似。 如何将程序设置为主动模式 1）启动VB，建立一个“标准EXE”工程，选取“工程/工程名称属性”菜单命令，在“工程属性”对话框中，将“启动对象”设置为“sub main()” 2）利用菜单的“工程/添加模块”命令新增一个模块，在标准模块的代码窗口中输入sub main子程序。 3）执行这个程序。 例：建立一个工程名为：主动 .vbp 工程，并且在该工程中建立一个submain()子程序，读取用户数据，且设置为启动对象。 1）启动VB，在“工程/工程属性”中将“启动对象设置为：submain 2）在“工程/添加模块”中添加一个标准模块。在标准模块代码窗口中输入submain子程序。,使用MSChart控件绘制图形 除了利用line和circle方法绘制各种几何图形外，也可以直接利用VB中的MSChart控件支持真正的三维表示，支持所有主要的图表类型，值和数据点以条形图、折线图、标记图、填充区域图或饼图形式显示。,sub main() dim s as string s=inputbox(“ 请输入数据“） msgbox “您输入了” + s end sub doevents与主动模式程序 对VB程序而言，主动模式与事件驱动模式是可以并存的，如果我们所编写的程序只含有主动模式程序代码，将语句一行一行地编写成主程序和相关子程序即可。 但是如果所编写的程序同时有主动模式和事件驱动模式的程序代码，那么就不应该让主动模式的程序执行费时很多工作，因为主动模式的程序执行时，其他事件驱动模式的程序代码将被锁住，而无法执行。 当然有时候还是很难避免让主动模式的程序执行费时很久的工作，就必须在主程序中插入doevents语句使主程序做间歇性的休息，允许其他的事件驱动模式的程序代码有机会被执行。,例：打开ch03doevets.vbp工程,