《VB基础语法》PPT课件.ppt

《《VB基础语法》PPT课件.ppt》由会员分享，可在线阅读，更多相关《《VB基础语法》PPT课件.ppt（44页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第三章第三章 VBS VBS的基本语法的基本语法3.1 3.1 基本数据类型基本数据类型n n数值型数值型integerintegerlonglongsinglesingledoubledoublecurrencycurrencybytebyten n字符串类型字符串类型stringstringn n日期类型日期类型datedate同时表示日期和时间同时表示日期和时间dim firstday as datedim firstday as datefirstday=#99/12/31#firstday=#99/12/31#firstday=“99/12/31”firstday=“99/12/31

2、”firstday=“22:30:50”firstday=“22:30:50”n n逻辑类型逻辑类型booleanboolean逻辑型变量的取值范围只能是逻辑型变量的取值范围只能是true(-1)true(-1)或或false(0)false(0)。Dim switch as booleanDim switch as booleanswitch=trueswitch=trueswitch=-1switch=-1 这两条赋值语句这两条赋值语句功能是相同。功能是相同。n n变体类型变体类型variantvariant变体型变量是一种十分灵活的变量，可以保存各种类型变体型变量是一种十分灵活的变量，可

3、以保存各种类型 的数据。的数据。在定义变量中没有明确指明数据类型时，变量缺省时定义为变体在定义变量中没有明确指明数据类型时，变量缺省时定义为变体类型。类型。dim xdim xdim y as variantdim y as variant上述两个语句都是定义一个变体变量。上述两个语句都是定义一个变体变量。n n对象类型对象类型定义对象变量时，可以直接指明对象的类型。定义对象变量时，可以直接指明对象的类型。dim obj1 as commandbuttondim obj1 as commandbuttondim obj2 as textboxdim obj2 as textbox定义了对象变量

4、后，使用定义了对象变量后，使用setset语句为对象变量赋值。语句为对象变量赋值。Set obje=command1Set obje=command1obj1.caption=“obj1.caption=“打开打开”修改命令按钮的标题修改命令按钮的标题obj1.fontbold=trueobj1.fontbold=truen n用户自定义类型用户自定义类型它类似于它类似于C C语言中的语言中的“结构体结构体”类型的数据。类型的数据。Type Type 类型名类型名元素名元素名 as as 类型类型元素名元素名 as as 类型类型元素名元素名 as as 类型类型end typeend typ

5、e例：定义一个例：定义一个employee(employee(职工）类型，其中包括职工号、姓名、年龄。职工）类型，其中包括职工号、姓名、年龄。Type employeeType employee empno as integer empno as integer name as string*10 name as string*10 age as integer age as integerend typeend type dim emp as emloyee dim emp as emloyee 在后面的程序中我们可以用在后面的程序中我们可以用“变量变量.元素元素”这样的形式来引用各个成员。

6、这样的形式来引用各个成员。emp.name=“emp.name=“张三张三”emp.no=83001 emp.no=83001emp.age=21emp.age=213.2 3.2 变量的声明变量的声明在在VBVB中使用一个变量时，可不加任何声明而直接使用，叫做隐式声明。中使用一个变量时，可不加任何声明而直接使用，叫做隐式声明。使用这种方法虽简单，但却不利于程序调试，所以一般对于变量最好先使用这种方法虽简单，但却不利于程序调试，所以一般对于变量最好先声明，后使用。设置方式：声明，后使用。设置方式：在在“工具工具”菜单中选菜单中选“选项选项”，在对话框中选，在对话框中选“编辑器编辑器”，在，在“

7、要求变要求变旦声明旦声明”中选中。中选中。n ndim dim 变量名变量名 as as 数据类型数据类型dim name as stringdim name as stringdim sum(3)as integerdim sum(3)as integern n使用使用staticstatic声明变量声明变量static static 变量名变量名 as as 数据类型数据类型static a as integerstatic a as integer使用使用staticstatic声明变量为静态变量。它与声明变量为静态变量。它与dimdim声明的变量不同之处声明的变量不同之处在于在执行一个

8、过程结束时，过程中所用到的在于在执行一个过程结束时，过程中所用到的staticstatic变量的值会变量的值会保留，下次再调用此过程时，变量的初值是上次调用结束时被子保留，下次再调用此过程时，变量的初值是上次调用结束时被子保存留的值，而保存留的值，而dim dim 声明的变量在过程结束时不保留，每次调用声明的变量在过程结束时不保留，每次调用时需要重新初始化。时需要重新初始化。3.3 3.3 运算符和表达式运算符和表达式n n算术运算符算术运算符+-*/（整除）（整除）modmodn n关系运算符关系运算符=n n逻辑运算符逻辑运算符notnot andandororxor(xor(逻辑异或）逻

9、辑异或）eqv(eqv(逻辑等于）逻辑等于）3.3 3.3 字符串连接运算符字符串连接运算符+&c=“abcd”+“ef”c=“abcd”+“ef”c=“abcd”&“ef”c=“abcd”&“ef”这两式子的运算结果是相同。这两式子的运算结果是相同。但是，由于但是，由于“+”“+”号同时也是加法运算符，号同时也是加法运算符，VBVB又支持变体型的变又支持变体型的变量，所以将加号用做字符串连接运算符有时会引起混淆。因此，量，所以将加号用做字符串连接运算符有时会引起混淆。因此，在进行字符串连接时应该在进行字符串连接时应该 选用选用“&”“&”操作符而不是操作符而不是“+”“+”操作符。操作符。3

10、.4 3.4 基本语句基本语句n n赋值语句赋值语句变量名变量名=表达式表达式n n条件语句条件语句1 1）if if then then 语句语句2 2）if if then then 语句组语句组 endif endif3 3）if if then then 语句组语句组1 1 else else 语句组语句组2 2 endif (endif (例：例：ch03 ex3.vbp)ch03 ex3.vbp)4 4）if if then1 then 语句组语句组1 1 else if else if then2 then 语句组语句组2 2 else else 语句组语句组3 3 endif

11、endif(例：例：ch03ex4.vbp)ch03ex4.vbp)语句组1 条件语句组2TF条件1语句组1条件2语句组2语句组3TFTFn n多分支语句多分支语句select case select case 变量或表达式变量或表达式 case case 值值1 1 语句组语句组1 1 case case 值值2 2 语句组语句组2 2 case case 值值3 3 语句组语句组3 3 case else case else 语句组语句组n nend select (end select (例：例：ch03ex5.vbp)ch03ex5.vbp)变量或表达式：可以是整型或字符串表达式变量或

12、表达式：可以是整型或字符串表达式n n值：是一组用逗号分隔枚举值。值：是一组用逗号分隔枚举值。（例：编写一个分数等级转换表分数等级=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，n n循环语句循环语句1

13、1）do while do while 条件条件 语句体语句体 exit do exit do 语句体语句体 loop loop2 2）dodo语句体语句体 exit do exit do 语句体语句体 loop while loop while 条件条件 条件真时退出循环条件真时退出循环3 3）do until do until 条件条件 条件假时执行循环体条件假时执行循环体 语句体语句体 exit do exit do 语句体语句体 loop loop4 4）for for 循环变量循环变量=初值初值 to to 终值终值 step step步长步长 语句体语句体 exit for exi

14、t for 语句体语句体 next next 循环变量循环变量 例：（实验书第三章练习三）编写求一元二次方程根。（例：（实验书第三章练习三）编写求一元二次方程根。（ch03ch03练习练习3.vbp)3.vbp)n n注：注：format(numer,fmt)format(numer,fmt)功能：将数值型量转为字符型量。功能：将数值型量转为字符型量。NumerNumer：为一个数值型：为一个数值型 量。量。FmtFmt：为用户定义格式。：为用户定义格式。#：显示数字，不在前或后补：显示数字，不在前或后补0 0。0 0：显示数字，在前或后补：显示数字，在前或后补0 0.：小数点。：小数点。，：

15、千位符。，：千位符。%：百分比。：百分比。例：例：x=2.33333x=2.33333format(x,“#.#”)format(x,“#.#”)结果为：结果为：2.33 2.33 字符串字符串例：求例：求 1+2+3+100 1+2+3+100的和的和 (ch03ex6.vbp)(ch03ex6.vbp)例：设计一个窗体打印九九乘法表例：设计一个窗体打印九九乘法表(ch03ex7.vbp)(ch03ex7.vbp)例：编写求例：编写求1*1+2*2+3*3+100*1001*1+2*2+3*3+100*100的和。的和。n nVbVb常用函数：（见常用函数：（见P67)P67)3.5 3.5

16、 以对象为核心的程序设计以对象为核心的程序设计在在VBVB的程序设计中，对象起着最重要的角色，窗体是一个对象，的程序设计中，对象起着最重要的角色，窗体是一个对象，每一个放置在窗体上控件也都是对象。由于每一个放置在窗体上控件也都是对象。由于VBVB是面向对象的程序是面向对象的程序设计语言，它的代码结构与对象有着很大关系，在设计语言，它的代码结构与对象有着很大关系，在VBVB中每一中每一个窗体和控件都有一些预先定义好了的事件。个窗体和控件都有一些预先定义好了的事件。例：命令按钮对象，当用户单击命令按钮时，命令按钮对象会产例：命令按钮对象，当用户单击命令按钮时，命令按钮对象会产生生clickclic

17、k事件。事件。Click事件Private sub command1_click()被驱动执行的程序end sub（单击鼠标左键）对程序而言，可以不处理这个事件，此时这个事件对程序便没有什么作用。但是如果程序要处理这个事件，该如何进行？因此，如果觉得某个对象的某种事件有进行处理的必要，则以因此，如果觉得某个对象的某种事件有进行处理的必要，则以“该该对象的名称对象的名称”与与“该事件的名称该事件的名称”定义这个事件程序，如下示：定义这个事件程序，如下示：private sub private sub 对象名对象名_ _事件名（）事件名（）在此编写希望被驱动执行的程序在此编写希望被驱动执行的程序

18、end sub end sub 将来该对象的这个事件发生时，其对应的事件程序会被驱动。以将来该对象的这个事件发生时，其对应的事件程序会被驱动。以后学习每一种对象时，需了解该对象会产生哪些事件和事件发生后学习每一种对象时，需了解该对象会产生哪些事件和事件发生时机，这样才能让用户与所编写的程序充分产生交互关系。时机，这样才能让用户与所编写的程序充分产生交互关系。n n了解对象的特性了解对象的特性其实很多对象只要看它的名字，就可以了解它的基本特性。其实很多对象只要看它的名字，就可以了解它的基本特性。例如：例如：textboxtextbox 同时亦可以通过了解对象的属性。同时亦可以通过了解对象的属性。

19、n n懂得控制对象懂得控制对象控制对象的方法不外乎以下两种：控制对象的方法不外乎以下两种：1 1）设置对象属性）设置对象属性2 2）调用对象方法）调用对象方法其实方法是对象内部的子程序，这种子程序的作用是要求对象执其实方法是对象内部的子程序，这种子程序的作用是要求对象执行某件工作。行某件工作。例如：很多控件都具有例如：很多控件都具有movemove方法，调用这个方法可让控件移动方法，调用这个方法可让控件移动它的位置。它的位置。n n查阅查阅“方法方法”要了解某一种对象提供了哪些方法，可以打开该要了解某一种对象提供了哪些方法，可以打开该 对象的对象的MSDNMSDN帮帮助文件，再选取助文件，再选

20、取“方法方法”选。选。3.6 3.6 常用事件在程序设计中应用常用事件在程序设计中应用事件驱动模式是事件驱动模式是VBVB程序的主流，我们必须了解每一种对象会产哪程序的主流，我们必须了解每一种对象会产哪些事件，以及这些事件产生的时机。随着对象在特性上的差异，些事件，以及这些事件产生的时机。随着对象在特性上的差异，可能产生的事件也会有的不同。下面先介绍一些常用事件，及在可能产生的事件也会有的不同。下面先介绍一些常用事件，及在程序设计中应用。程序设计中应用。n n生与灭事件生与灭事件事件事件 发生时机发生时机initialize initialize 窗体第一次被装入时窗体第一次被装入时termi

21、nate terminate 窗体最后一次被卸载时窗体最后一次被卸载时load load 窗体每一次被装入时窗体每一次被装入时unload unload 窗体每一次被卸载时窗体每一次被卸载时 queryunload queryunload 窗体每一次被卸载时窗体每一次被卸载时n nInitializeInitialize与与loadload事件区别事件区别同样都是发生在窗体被装入时，两者很容易混淆，实际上同样都是发生在窗体被装入时，两者很容易混淆，实际上intializeintialize事事件只有在窗体第一次被装入时发生，而件只有在窗体第一次被装入时发生，而loadload事件是在窗体每次被

22、装事件是在窗体每次被装入时都有发生。入时都有发生。例：打开第三章例：打开第三章formlife.vbpformlife.vbpn n什么程序代码写在什么程序代码写在intializeintialize或或loadload事件程序？事件程序？1 1）控件的初始化：几乎都是放在）控件的初始化：几乎都是放在loadload事件程序中，因为控件会随着事件程序中，因为控件会随着窗体的卸载而一起被清除，所以每次被装入时都要进行初始化。窗体的卸载而一起被清除，所以每次被装入时都要进行初始化。2 2）变量的初始化：放在）变量的初始化：放在initializeinitialize事件程序中居多，因为变量的内容事

23、件程序中居多，因为变量的内容光焕发不会随着窗体的卸载波而消失。当然，如果希望每次窗体被装光焕发不会随着窗体的卸载波而消失。当然，如果希望每次窗体被装入时都有重新设置变量的内容，就要将变量的初始化放在入时都有重新设置变量的内容，就要将变量的初始化放在loadload事件事件程序中。程序中。n n如何禁止用户使用关闭按钮半闭窗体？如何禁止用户使用关闭按钮半闭窗体？在在unloadunload事件程序中含有一个事件程序中含有一个cancelcancel参数，如果将这个参数设置为参数，如果将这个参数设置为truetrue则窗体就不能关闭。则窗体就不能关闭。例：在程序中不允许用户通过单击关闭按钮关闭窗体

24、。例：在程序中不允许用户通过单击关闭按钮关闭窗体。Dim switch as booleanDim switch as booleanform_unloadform_unload if not switch then if not switch then cancel=true cancel=true endif endif end sub end sub command1_click command1_click switch=true switch=true unload me unload me end sub end subn nQueryunloaddQueryunloadd与与un

25、loadunload事件有何区别事件有何区别queryunloadqueryunload比比unloadunload事件先发生。事件先发生。QueryunloadQueryunload事件比事件比unloadunload事件多了一个事件多了一个unloadmodeunloadmode参数参数 unloadmode unloadmode可以取值可以取值 意义意义 vbformcontrolmenu(=0)vbformcontrolmenu(=0)用户单击窗体上的关用户单击窗体上的关闭按钮闭按钮 vbformcode(=1)unload vbformcode(=1)unload语句调用语句调用 v

26、bappwindows(=2)vbappwindows(=2)用户结束用户结束windowswindows操操作系统作系统也即可以利用也即可以利用unloadmodeunloadmode参数来判断用户是否用鼠标单击了窗体上参数来判断用户是否用鼠标单击了窗体上的关闭按钮。借助的关闭按钮。借助queryunloadqueryunload事件的参数简化上面的程序。事件的参数简化上面的程序。Private sub command1_click()Private sub command1_click()unload me unload meend subend subprivate sub form_q

27、ueryunload(cancel as integer,unloadmode private sub form_queryunload(cancel as integer,unloadmode as integer)as integer)if unloadmode=vbformcontrolmenu then cancel=true if unloadmode=vbformcontrolmenu then cancel=trueend subend subn nQueryunloadQueryunload事件另一个应用：事件另一个应用：经常用来检验程序结束前，窗口关闭前是否已经保存了该保存的

28、经常用来检验程序结束前，窗口关闭前是否已经保存了该保存的东西，如果尚未保存，就显示一个对话框的信息。东西，如果尚未保存，就显示一个对话框的信息。n n对话框对话框msgboxmsgbox函数使用。函数使用。MsgboxMsgbox函数格式：函数格式：msgbox(prompt ,buttons,title)msgbox(prompt ,buttons,title)promptprompt：是一个字符串，设置显示在对话框中信息内容。：是一个字符串，设置显示在对话框中信息内容。ButtonsButtons：（可选参数）用于显示对话框中显示按钮数。形式、：（可选参数）用于显示对话框中显示按钮数。形式

29、、图样见图样见P77P77。TileTile：（可选参数）设置显示在对话框标题中信息。：（可选参数）设置显示在对话框标题中信息。title promptbuttons例：练习使用例：练习使用msgboxmsgbox函数（函数（ch03ch03练习练习11.vbp)11.vbp)1 1）调用）调用msgboxmsgbox显示两个按钮（是，否），提示信息显示两个按钮（是，否），提示信息“要要关闭关闭 窗体吗？窗体吗？”。是，关闭窗体，否，。是，关闭窗体，否，2 2）调用）调用msgboxmsgbox提示信息为提示信息为“操作错误操作错误”显示图标为显示图标为3 3）调用）调用msgboxmsgbo

30、x提示信息为提示信息为“没有满足条件的记录没有满足条件的记录”，显，显示图示图 标为：标为：例：（第三章练习例：（第三章练习5 5）编写一个程序，当用户单击窗体关闭按钮）编写一个程序，当用户单击窗体关闭按钮时，弹出对话框，要用户确定是否真的关闭窗体，是时，弹出对话框，要用户确定是否真的关闭窗体，是关闭，否关闭，否取消关闭窗体。取消关闭窗体。n n状态改变的事件状态改变的事件 事件事件发生时机发生时机 activate activate 当窗体成为活动窗口时当窗体成为活动窗口时 deactivate deactivate 当窗体不再是活动窗口时当窗体不再是活动窗口时 gotfocus gotfo

31、cus 对象获得焦点时对象获得焦点时 lostfocus lostfocus 对象丢失焦点时对象丢失焦点时 rezies rezies 对象大小改变时对象大小改变时n nActivateActivate与与gotfocusgotfocus事件有何区别事件有何区别只有窗体对象才有只有窗体对象才有activateactivate事件，其他控件都有没有事件，其他控件都有没有activateactivate事事件，它表示窗体变成件，它表示窗体变成“活动窗口活动窗口”gotfocusgotfocus事件中，除了窗体对象含有这个事件外，其它控件如命事件中，除了窗体对象含有这个事件外，其它控件如命令按钮，文

32、本框、复选框、图片框等，也都有含有这个事件。令按钮，文本框、复选框、图片框等，也都有含有这个事件。当光标落在某个对象上（对象获得焦点时）则会发生当光标落在某个对象上（对象获得焦点时）则会发生gotfocusgotfocus事事件。件。例：当输入光标移到例：当输入光标移到textboxtextbox时，整个时，整个textboxtextbox都变成被选区。都变成被选区。n n注：在注：在textboxtextbox控件对象中有两个属性，用途是用来设置选取区。控件对象中有两个属性，用途是用来设置选取区。Selstart Selstart 设置选取区的起始位置设置选取区的起始位置sellength

33、sellength 用来设置选区的长度用来设置选区的长度private sub text1_gotfocus()private sub text1_gotfocus()text1.selstart=0 text1.selstart=0 text1.sellength=len(text1.text)text1.sellength=len(text1.text)end subend sub例：（第三章练习六）当输入光标移到例：（第三章练习六）当输入光标移到textboxtextbox时，希望将其文时，希望将其文字颜色设置为红色，以提醒用户注意，当输入光标离开字颜色设置为红色，以提醒用户注意，当输入

34、光标离开textboxtextbox其文字还原原来的黑色。其文字还原原来的黑色。n n当窗体大小改变时会发生当窗体大小改变时会发生resizeresize事件事件例：让控件随着窗体一起调整大小。（在窗体上放置例：让控件随着窗体一起调整大小。（在窗体上放置textboxtextbox及及picturebox)picturebox)private sub form_resize()private sub form_resize()text1.left=0text1.left=0text1.top=0text1.top=0text1.width=me.scalewidth/2text1.width=

35、me.scalewidth/2text1.height=me.scaleheighttext1.height=me.scaleheightpicture1.left=me.scalewidth/2picture1.left=me.scalewidth/2picture1.top=0picture1.top=0picture1.height=me.scaleheightpicture1.height=me.scaleheightend subend subn n键盘类事件键盘类事件 事件事件 发生时机发生时机 keypress keypress 用户按下键盘并且放开时用户按下键盘并且放开时 ke

36、ydown keydown 用户按下键盘时用户按下键盘时 keyup keyup 用户放开按键时用户放开按键时例：（例：（ch03/ex12.vbp)P85ch03/ex12.vbp)P85n n鼠标类事件鼠标类事件 事件事件 发生时机发生时机click click 用户在对象上按下鼠标左键并且放开时用户在对象上按下鼠标左键并且放开时dblclick dblclick 用户在对象上面双击鼠标时用户在对象上面双击鼠标时mousedown mousedown 用户在对象上面按下鼠标左键时用户在对象上面按下鼠标左键时mouseup mouseup 用户在对象上面放开鼠标左键时用户在对象上面放开鼠标左

37、键时mousemove mousemove 用户在对象上面移动鼠标时用户在对象上面移动鼠标时n nmouseupmouseup和和clickclick事件有何区别事件有何区别1 1）如果用户在对象上按下鼠标左键，而鼠标仍然在对象上时放）如果用户在对象上按下鼠标左键，而鼠标仍然在对象上时放开鼠标，会先发生开鼠标，会先发生mouseupmouseup事件再发生事件再发生clickclick事件。事件。2 2）若用户在对象上按下鼠标左键，然后将鼠标移到对象之外再）若用户在对象上按下鼠标左键，然后将鼠标移到对象之外再放开鼠标：只发生放开鼠标：只发生mouseupmouseup事件。事件。3 3）若用户

38、在对象之外按下鼠标左键，然后将鼠标移到对象上再）若用户在对象之外按下鼠标左键，然后将鼠标移到对象上再入开鼠标：只发生入开鼠标：只发生mouseupmouseup事件。事件。n nMouseupMouseup与与clickclick选择选择在在windowswindows操作的惯例中，所谓操作的惯例中，所谓“用鼠标单击用鼠标单击”指的是指的是“按下鼠标左按下鼠标左键，不要移开鼠标并放开鼠标左键键，不要移开鼠标并放开鼠标左键”（也就是（也就是clickclick意思）。因此，如意思）。因此，如果程序想要针对用户果程序想要针对用户“用鼠标单击用鼠标单击”做反应，就应该做反应，就应该 将程序编写在将程

39、序编写在clickclick事件程序中。事件程序中。至于至于mouseupmouseup事件通常与事件通常与mousedownmousedown配对使用。配对使用。例：写一个可供用户画线的程序，当用户按下鼠标左键时，决定线段例：写一个可供用户画线的程序，当用户按下鼠标左键时，决定线段的第一点，然后用户会移动鼠标，当放开鼠标左键时，就由第一点画的第一点，然后用户会移动鼠标，当放开鼠标左键时，就由第一点画一条线到鼠标指针所在的位置。一条线到鼠标指针所在的位置。(ch03(ch03练习练习7a.vbp)7a.vbp)n n如何在对象上作图如何在对象上作图1 1）用）用psetpset方法画点方法画点

40、格式：格式：对象名对象名.pset(x,y),.pset(x,y),颜色颜色 其中颜色可以用其中颜色可以用RGBRGB函数指定或符号常量函数指定或符号常量(vbred vbgreen (vbred vbgreen vbbluevbblue）rgb(red,green,blue)rgb(red,green,blue)其中：其中：red,green,bluered,green,blue取值取值02550255的整数。点的大小由对象的的整数。点的大小由对象的drawWidthdrawWidth属性决定。属性决定。功能：返回一个颜色值。功能：返回一个颜色值。例：在窗体中随机地显示若干彩色的点。窗体上有

41、两个命令按钮：例：在窗体中随机地显示若干彩色的点。窗体上有两个命令按钮：“画点画点”和和“退出退出”。单击。单击“画点画点”按钮，则在窗体上随机画上按钮，则在窗体上随机画上若干点。单击若干点。单击“退出退出”按钮，结束程序的运行。按钮，结束程序的运行。(ch03(ch03练习练习13.vbp)13.vbp)Private Sub Command1_Click()Private Sub Command1_Click()For i=1 To 3000For i=1 To 3000 x=Rnd*Widthx=Rnd*Width y=Rnd*Heighty=Rnd*Heightr=Int(256*Rn

42、d)r=Int(256*Rnd)g=Int(256*Rnd)g=Int(256*Rnd)b=Int(256*Rnd)b=Int(256*Rnd)PSet(x,y),RGB(r,g,b)PSet(x,y),RGB(r,g,b)Next iNext iEnd SubEnd Sub 例：设计一个窗体使用鼠标在其上任意绘制图形。例：设计一个窗体使用鼠标在其上任意绘制图形。（ch03ex8.vbp)ch03ex8.vbp)Dim mouse As Boolean mouseDim mouse As Boolean mouse变量用来标志画图变量用来标志画图的开始的开始Private Sub Form_L

43、oad()Private Sub Form_Load()mouse=Falsemouse=FalseMe.ForeColor=vbRedMe.ForeColor=vbRedMe.DrawWidth=2Me.DrawWidth=2End SubEnd SubPrivate Sub Form_MouseDown(Button As Integer,Shift Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)As Integer,X As Single,Y As Single)

44、mouse=Truemouse=TruePSet(X,Y)PSet(X,Y)End Sub End SubPrivate Sub Form_MouseMove(Button As Integer,Shift Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)As Integer,X As Single,Y As Single)If mouse ThenIf mouse Then PSet(X,Y)PSet(X,Y)End IfEnd IfEnd SubEnd SubPriv

45、ate Sub Form_MouseUp(Button As Integer,Shift As Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)Integer,X As Single,Y As Single)mouse=Falsemouse=FalseEnd SubEnd Sub 2 2）lineline方法方法 对象对象.line step(x1,y1)-step(x2,y2),.line step(x1,y1)-step(x2,y2),颜色颜色,BF,BF功能：用来画直线

46、和矩形框等。功能：用来画直线和矩形框等。Step:Step:设置坐标值是绝对坐标还是相对坐标。设置坐标值是绝对坐标还是相对坐标。(有有step step 是相对坐标）是相对坐标）缺省缺省step(x1,y1)step(x1,y1)时：从上一次画图点到当前点画直线。时：从上一次画图点到当前点画直线。选择选择B B：利用对角坐标画出矩形。：利用对角坐标画出矩形。选择选择F F：矩形以矩形边框填充。：矩形以矩形边框填充。直线的宽度由对象的直线的宽度由对象的drawWidthdrawWidth指定，直线的样式由对象的指定，直线的样式由对象的drawStyledrawStyle属性指定。（属性指定。（P

47、145P145）3 3）circlecircle方法方法 对象对象.circle step(x,y),r,c,sang,eang,mod.circle step(x,y),r,c,sang,eang,mod(x,y)(x,y)园、园弧或者椭圆的园心坐标。园、园弧或者椭圆的园心坐标。r r 园、园弧的半径。园、园弧的半径。c c 设置绘图颜色。设置绘图颜色。sang sang 在画园弧时设置园弧或椭圆弧的起始角度（在画园弧时设置园弧或椭圆弧的起始角度（0-20-2）。）。eand eand 在画园弧时设置园弧或椭圆弧的终止角度（在画园弧时设置园弧或椭圆弧的终止角度（0-20-2）。Mod Mod

48、 在画椭圆时设置椭圆的纵横比值（大于在画椭圆时设置椭圆的纵横比值（大于1 1则椭圆细而高）则椭圆细而高）园的样式：由对象的园的样式：由对象的fillStylefillStyle属性决定。属性决定。P150P150。线的宽度由对象的。线的宽度由对象的drawWidthdrawWidth指定，线的样式由对象的指定，线的样式由对象的drawStyledrawStyle属性指定。属性指定。画扇形：则起始角及终止角都是取负值。（画扇形：则起始角及终止角都是取负值。（ch03ex10.vbp)ch03ex10.vbp)例：设计一个窗体，单击绘图按钮时，在窗体绘制如下图形：例：设计一个窗体，单击绘图按钮时，

49、在窗体绘制如下图形：（ch03ex9.vbp)ch03ex9.vbp)Private Sub Command1_Click()Circle(2500,1500),1000Circle(2500,1500),1000,2.5Form1.FillStyle=7Circle(2500,1500),1000,0.4End Sub例：设计一个窗体，在上面绘制如下图所示的弧和扇形例：设计一个窗体，在上面绘制如下图所示的弧和扇形（ch03ex10.vbp)ch03ex10.vbp)Const pi=3.14159Private Sub Form_Load()Me.ShowMe.ForeColor=vbRed

50、Me.DrawWidth=2Circle(1800,500),1000,-pi,-1.5*piCircle(3500,500),1000,pi,1.5*piEnd Subn n例：例：1 1）在）在picture1picture1（300300，300300）上画一点，）上画一点，(ch03(ch03画图方法画图方法.vbp).vbp)2 2）在）在picture1picture1上画从（上画从（600600，600600）（10001000，10001000）两点直两点直线，颜色红色。线，颜色红色。3 3）在）在picture1picture1上画以点（上画以点（12001200，10001