VB窗体设计.doc

窗体的设计 4.1，窗体的属性 4.2.1鼠标事件 Mousedown 、mouseup、mousemove、click、dblclick 1，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 sub Private sub form_mouseup(butten as integer,shift as integer,x as single,y as single) End sub Private sub form_move(button as integer, shift as integer ,x as single ,y as single) End sub Button 返回值和对应操作: 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 button Case 1 Form1.print “您按下的是左键” Case 2 Form1.print “您按下的是右键” End select End sub 例子：探测鼠标的位置 Private sub form_mousemove(button as integer,shift as integer,x as single ,y as single) Text1.text=”x=”x” ””y=”y 4.2.2键盘事件 Keydown、keyup、keyclick 1，keyclick 事件 Private sub form_keypress(keyascii as integer) End sub Keyascii返回按键的ASCII码 例子;显示所按键的ASCII码 Priviate sub form_keypress(keyascii as integer) Print “所按的键的ASCII码值为：”keyascii End sub 2,keydown、keyup事件过程 Private sub form_keydown(keycode as integer,shift as integer) End sub Private sub form_keyup(keycode as integer,shift as integer) End sub Shift 的含义和鼠标事件的一样 与上面的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”单击关闭按钮想关闭我，休想！” Cance