VB窗體的设计.docVIP

窗体的设计4.1，窗体的属性 4.2.1鼠标事件Mousedown 、mouseup、mousemove、click、dblclick1，click事件与dblclick事件 Private sub form_click() Private sub form_dblclick() End sub End sub双击则两个事件都执行2，mousedown、mouseup、mousemove事件Private sub form_down(butten as integer,shift as integer,x as single ,y as single)End subPrivate sub form_mouseup(butten as integer,shift as integer,x as single,y as single)End subPrivate sub form_move(button as integer, shift as integer ,x as single ,y as single)End subButton 返回值和对应操作: 1 对应左键；2对应右键；4 对应中键Shift返回值和对应操作: 1 对shift ；2对应ctrl ；4对应alt 例子：识别用户所按的键Private sub form_mousedown(butten as integer,shift as integer,x as single,y as single)Select case buttonCase 1 Form1.print “您按下的是左键”Case 2Form1.print “您按下的是右键”End selectEnd sub例子：探测鼠标的位置Private sub form_mousemove(button as integer,shift as integer,x as single ,y as single)Text1.text=”x=”x” ””y=”y4.2.2键盘事件Keydown、keyup、keyclick1，keyclick 事件 Private sub form_keypress(keyascii as integer) End sub Keyascii返回按键的ASCII码 例子;显示所按键的ASCII码 Priviate sub form_keypress(keyascii as integer) Print “所按的键的ASCII码值为：”keyascii End sub2,keydown、keyup事件过程Private sub form_keydown(keycode as integer,shift as integer)End subPrivate sub form_keyup(keycode as integer,shift as integer)End subShift 的含义和鼠标事件的一样与上面的keyascii不同，此时的keycode 返回的是键码非ASCII值。功能键、换挡键、编辑键没有ASCII码，但多有键都有一个键码。一个键一个码，大小键盘上的数字键的键码不同。对字母键码为大写ASCII码。有上下档的按键，键码为下档字符的ASCII码。4.2.3其他事件实例：窗体的RESIZE事件代码：private sub form_resize() Comsize.width=forsize.width/5 Comsize.height=forsize.width/6 Comsize.top=-(comsize.height/2-forsize.height/2) Comsize.left=forsize.width/2-comsize.width/2 End sub实例：queryunload事件 Private sub form_queryunload(cancel as integer,unloadcode as integer) End sub为cancel赋非零则不关闭。如赋值为0则关闭。至于unloadmode表示引起Query unload的原因后面有介绍代码：private sub form_queryunload(cancel as integer,unloadcode as integer) If unloadcode=0 then Print”单击关闭按钮想关闭我，休想！” Cancel=true End if End sub4.3.1 print方法一般格式： 对象名.print 表达式表