vb第8章 绘图与鼠标键盘事件2H

VisualBasicProgramming

第八章绘图与鼠标键盘事件聊城大学物理科学与信息工程学院曹银杰caoyinjie@1第八章绘图与鼠标键盘事件§8.1绘图§8.2鼠标事件§8.3键盘事件作业2§8.1绘图可以在窗体、PictureBox图象框、Printer打印机等对象上绘图。8.1.1屏幕绘图坐标系统8.1.2颜色8.1.3使用绘图方法绘图38.1.1屏幕绘图坐标系统1、屏幕绘图坐标系统：每个容器都有一个坐标系，构成一个坐标系，需要三个要素：坐标原点、坐标度量单位、坐标轴的长度与方向。坐标度量单位由容器对象的ScaleMode属性决定。缺省时为Twip。每英寸1440个Twip，20个Twip为一磅。原点HeightScaleHeight4屏幕绘图坐标系统2、自定义坐标系统方法一：通过ScaleTop，ScaleLeft，ScaleWidth和ScaleHeight属性实现。（ScaleTop，ScaleLeft）ScaleHeightScaleWidth5屏幕绘图坐标系统方法二：使用Scale方法改变坐标系统，语法：[对象.]Scale[(xLeft,yTop)-(xRight,yBotton)](xLeft,yTop)(xRight,yBotton)当Scale无参数时，取消用户定义坐标系，为缺省坐标系。6屏幕绘图坐标系统3、屏幕绘图坐标系统举例:用Scale、Line方法实现在不同坐标系画线的效果：

PrivateSubCommand1_Click()Form1.Scale(-200,1200)-(1200,-150)Line(0,0)-(1000,1000)EndSubPrivateSubCommand2_Click()Form1.ScaleLine(0,0)-(1000,1000)EndSub‘缺省坐标系’自定义坐标系统78.1.2颜色计算机领域一般采用RGB颜色模型，是红R、绿G、蓝B三基色混合而成。VB系统可以使用下列五种方法。1、使用RGB函数表示颜色RGB函数返回一个颜色值（长整型），格式RGB(R，G，B)参数RGB的取值为：0～255参数的值，如果超过255，会被当作255。256*256*256=16M种颜色举例：RGB(0，0，0)——黑色

RGB(255，255，255)——白色

RGB(255，255，0)——黄色举例：Line(0,0)-(1000,1000),RGB(20,100,255)8颜色2、使用长整数表示颜色Vb中四字节表示，最高字节固定为00，其实RGB函数返回的是一个长整形数。采用十六进制表示：&H00BBGGRRRR/GG/BB对应各颜色分量，取值分别是00～FF。举例：Line(0,0)-(1000,1000),&HAABBFF3、系统颜色系统颜色是由用户在Windows控制面板的“显示器”属性中设定的各元素界面的颜色。系统颜色值见P232表（共25种）。9颜色4、使用颜色常量直观、易记。共8种：vbBlack

vbGreen

vbBlue

vbCyan

vbRed

vbYellow

vbMagenta

vbWhite各常量值见P232－233取值表。例：Line(0,0)-(1000,1000),vbRed10VB颜色5、使用QBColor函数QBColor函数选择16种颜色：取值及其返回的颜色如下表函数效果函数效果QBColor(0)黑色QBColor(8)灰色QBColor(1)蓝色QBColor(9)亮蓝色QBColor(2)绿色QBColor(10)亮绿色QBColor(3)深青色QBColor(11)亮青色QBColor(4)红色QBColor(12)亮红色QBColor(5)品红色QBColor(13)亮品红色QBColor(6)深黄色QBColor(14)亮黄色QBColor(7)纸QBColor(15)亮白色例：Line(0,0)-(1000,1000),QBColor(3)118.1.3使用绘图方法绘图VB提供image控件、Line控件、shape控件三种控件绘图，也可用绘图方法在窗体、PictureBox图象框、Printer打印机等对象上绘图。语法格式：

[对象].方法[参数表]绘图前要确定输出坐标位置，坐标设置，窗体与图片框都有CurrentX、CurrentY

属性，用此来确定起始坐标。CurrentX、CurrentY

属性值，随绘图方法而自动改变。设置语法object.CurrentX=xObject.CurrentY=y读取语法X=object.CurrentXY=Object.CurrentY12使用绘图方法绘图Print方法。Cls方法清除对象上原来的内容，以背景色重画。Pset[step](x,y)[,色]

有Step,(x,y)相对当前点（CurrentX，CurrentY）的相对坐标，否则是绝对坐标。Step意义下同。色--可用讲过的五种办法表示颜色。Line[[step](x1,y1)]-[step](x2,y2)[,色][,B[F]]

B画矩形，F用边框颜色填充Circle[step](x,y),r[,色][,start,end][,aspect]start,end始、终弧度值，用于画扇形。aspect画椭圆，椭圆的纵横尺寸比13使用绘图方法绘图Point(x,y)方法读取指定点的颜色例：X＝picture1.Point(500,500)PaintPicture方法，把磁盘图像文件绘到对象上，可以只绘制图像的一部分、缩放、反转等。语法：[对象.]PaintPicture

picture,x1,y1,[width1],_[height1],

[x2],[y2],[width2],[height2],[opcode]

Picture指定要绘制的图形文件如采用下列函数加载：LoadPicture(”c:\abc.bmp”)指定绘图的起始坐标、大小负（数翻转图像），X2,Y2,width2,height2—指定所绘图的矩形区域；opcode绘图的颜色(P237取值表)，缺省为原图颜色。14例：Circle方法绘制由圆环用Circle方法在窗体上绘制由圆环构成的艺术图案。构造图案的算法为：将一个半径为r的圆周等分为n份，以这n个等分点为圆心，以半径r1绘制n个圆。设定圆的半径为窗体高度的1/4，圆心在窗体的中心，在圆周上等分50份。Dimr,x,y,x0,y0,piAsSingle

Clsn=Val(Text1)Ifn<=0Thenn=10r=Form1.ScaleHeight/4x0=Form1.ScaleWidth/2y0=Form1.ScaleHeight/2pi=3.1415926

st=pi/n'等分圆周为n份

Fori=0To2*piStepst'循环绘制圆

x=r*Cos(i)+x0y=r*Sin(i)+y0Circle(x,y),r*0.9,RGB(255*Rnd(),255*Rnd(),255*Rnd())Nexti15例：绘制曲线画出函数Cos(2*i)*Sin(3*i)的数学曲线，对于这类曲线，需要用程序画出曲线上的每一点。为了避免作坐标运算，用Scale方法对坐标系定义：Picture1．Scale(-2*pi,1)-(2*pi,-1)‘pi存贮л的值。用Line万法连接相邻的两点，构成完整的曲线。PrivateSubCommand1_Click()Dimi,pipi=4*Atn(1)Picture1.Scale(-2*pi,1)-(2*pi,-1)Picture1.CurrentX=-2*piPicture1.CurrentY=0Fori=-2*piTo2*piStep0.01Picture1.Line-(i,Cos(2*i)*Sin(3*i))NextEndSub16§8.2鼠标事件前面讲到的Click、DblClick事件后无参数如SubForm_DblClick()SubCommand1_Click()

所以无法知道鼠标位置、按下了哪个鼠标键、是否按下了键盘的某个控制键等。要知道这些详细情况需采用下面三个鼠标事件：MouseDown事件SubForm_MouseDown(ButtonAsInteger,ShiftAs_Integer,XAsSingle,YAsSingle)

MouseUp事件SubForm_MouseUp(…………)‘参数与MouseDown相同MouseMove事件SubForm_MouseMove(…………)‘参数与MouseDown相同其中Button鼠标的键值，Shift键盘的键值，x、y是指针当前的坐标。17鼠标事件1、Button参数Button取值1～7，字节的低3位B0对应左键、B1右键、B2中键，按下键时为1。例：Button为2(010B)，即B1为1，表示按下了右键；Button为1(001B)，B0为1，按了左键。也可以使用VB符号常量

1—vbLeftButton：用户按下左键触发了鼠标事件；

2—vbRightButton：用户按下右键触发了鼠标事件；

4—vbMiddleButton：用户按下中键触发了鼠标事件。举例：IfButton=1Then'或=vbLeftButton

…'这是按了左健后执行的代码Endif

B2B1B018鼠标事件2、Shift参数Shift参数取值1～7，字节的低3位B0对应Shift键、B1Ctrl键、B2Alt键，按下键时为1。举例：Shift为2(010B)，即B1为1，表示仅按下了Shift键；同时按Ctrl和Shift键，则B0和B1为1，Shift为3(011B)

。也可以使用VB符号常量

1—vbShiftMask；

2—vbCtrlMask；

4—vbAltMask

。例：IfShift=2andButton=1Then …‘这是仅按住了Ctrl健并单击鼠标后执行的代码

EndIf3、X,Y：鼠标的当前位置B2B1B019鼠标事件举例：彩色画笔P251例题：有改动：Dimpencolor,dPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)d=1IfButton=1Then

CurrentX=X'注释此两句出现什么情况？

CurrentY=YEndIfEndSub20PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenIfShift=1Then'改变颜色,Shift键

pencolor=RGB(255,0,0)

ElseIfShift=2Then‘Ctrl键

pencolor=vbGreen

ElseIfShift=4Then‘Alt键

pencolor=&HFF0000EndIfIfShift=3Then'改变线宽,Ctrl和Shift键

d=d+0.01:DrawWidth=d:Line-(X,Y),pencolorElseLine-(X,Y),pencolorEndIfEndIfEndSub彩色画笔21§8.3键盘事件KeyUp和KeyDown事件过程

Subobject_KeyUp(keycodeAsInteger,shiftAsInteger) Subobject_KeyUp(keycodeAsInteger,shiftAsInteger)KeyPress事件过程

Subobject_KeyPress(KeyAsciiAsInteger)参数说明Shift:与鼠标事件的Shift相同,按下了哪(几)个控制键KeyCode：键盘扫描码,整型数表示，也可用VB常数表示。VB常数KeyCode

描述vbKeyA

65

A

键

vbKeyB

66

B

键

……vbKeyZ

90

Z

键

vbKeyF1

0x70

F1

键

vbKeyF2

0x71

F2

键

KeyAscii：字符ASCII码。22键盘事件举例1限制数据输入，在窗体上画1个文本框文本框，只能接收“0”～“9”的数字字符。

SubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii<48OrKeyAscii>57Then

KeyAscii=0EndIfEndSub23键盘事件举例2在窗体上画两个文本框，然后编写程序。程序运行后，如果在第一个文本框中输入A、B、C、D或a、b、c、d，则在第二个文本框中显示EFDH。PrivateSubForm_Load()ShowText1.Text=""Text2.Text=""Text1.SetFocusEndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,_ShiftAsInteger)Text2.Text=Text2.Text+Chr(KeyCode+4)EndSub24选讲：键盘事件举例3在窗体上画一个文本框，然后编写程序，当按下F5键并且按下Alt键或Shift键时，在窗体上显示“再见!”

ConstShiftKey=1ConstAltKey=4ConstKey_F5=&H74PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=Key_F5And_(Shift=AltKeyOrShift=Shif