VB基本语法讲座及相关函数介绍之5

键盘类事件事件发生时机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函数指定或符号常量(vbredvbgreenvbblue……）rgb(red,green,blue)其中：red,green,blue取值0—255的整数。点的大小由对象的drawWidth属性决定。功能：返回一个颜色值。例：在窗体中随机地显示若干彩色的点。窗体上有两个命令按钮：“画点”和“退出”。单击“画点”按钮，则在窗体上随机画上若干点。单击“退出”按钮，结束程序的运行。(ch03\练习13.vbp)PrivateSubCommand1_Click()Fori=1To3000x=Rnd*Widthy=Rnd*Heightr=Int(256*Rnd)g=Int(256*Rnd)b=Int(256*Rnd)PSet(x,y),RGB(r,g,b)NextiEndSub例：设计一个窗体使用鼠标在其上任意绘制图形。（ch03\ex8.vbp)DimmouseAsBoolean’mouse变量用来标志画图的开始PrivateSubForm_Load()mouse=FalseMe.ForeColor=vbRedMe.DrawWidth=2EndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)mouse=TruePSet(X,Y)EndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfmouseThenPSet(X,Y)EndIfEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)mouse=FalseEndSub2）line方法[对象.]line[[step](x1,y1)]-[step](x2,y2)[,颜色][,B[F]]功能：用来画直线和矩形框等。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属性指定。画扇形：则起始角及终止角都是取负值。（ch03\ex10.vbp)例：设计一个窗体，单击绘图按钮时，在窗体绘制如下图形：（ch03\ex9.vbp)例：设计一个窗体，在上面绘制如下图所示的弧和扇形（ch03\ex10.vbp)例：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，线条颜色为黄色。回到上一例(ch03\练习7a.vbp)dimx0,y0asintegerprivatesubform_mousedown(buttonasinteger,shiftasinteger,xassingle,yassingle)x0=xy0=yme.mousepointer=2endsubprivatesubform_mouseup(buttonasinteger,shiftasinteger,xassingle,yassingle)line(x0,y0)-(x,y)endsub