在窗体FORM1建立如下事件：
Form1LPARAMETERS nButton, nShift, nXCoord, nYCoord
Form1.Init事件，建立一个全局变量mark，用于是否画图的开关变量，
当mark为真时，可以作图，否则不能作图。
public mark
thisform.scalemode=3
thisform.drawwidth=2
Form1.MouseDown事件，将mark设置为真，表示可以画图。
LPARAMETERS nButton, nShift, nXCoord, nYCoord
mark=.t.
Form1.MouseUp事件，将mark设置为假，表示不能画图。
LPARAMETERS nButton, nShift, nXCoord, nYCoord
mark=.f.
Form1.MouseMove事件，移动鼠标连续画圆。
LPARAMETERS nButton, nShift, nXCoord, nYCoord
if mark and bittest(nbutton,0)
thisform.circle(20,nxcoord,nycoord)
endi
实例二：利用鼠标事件切换图标按钮中的图标。
COMMAND1控件的PICTURE属性是C:B.BMP
Form1.load事件，定义开关变量mouse_down。
public mouse_down
mouse_down=0
Form1.MouseDown事件，显示鼠标按下时的图标。
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THISFORM.COMMAND1.PICTURE="C:A.BMP"
mouse_down=1
Form1.MouseUp 事件，显示鼠标松开时的图标。
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THISFORM.COMMAND1.PICTURE="C:B.bmp"
Form1.MouseMove事件，判别鼠标是否离开图形按钮，若离开，则显示松开时的图标。
LPARAMETERS nButton, nShift, nXCoord, nYCoord
if mouse_down=1
if (nXCoord$#@60;0.or. nXCoord$#@62;thisform.command1.width) .or. (nYCoord$#@60;0 .or. nYCoord$#@62;thisform.command1.height)
THISFORM.COMMAND1.PICTURE="C:B.BMP"
endi
endi
三.VISUAL BASIC应用实例:
实例一:给应用程序的命令按钮加上提示行.
实现效果:用过WINDOWS OFFICE软件的用户,都非常熟悉这种情况,当你自己不
清楚软件中所列出的图标按钮起什么作用时, 可以把鼠标移到这个
图标按钮上,不一会儿在这图标按钮的下方会显示一个简短的文字提
示行,说明这个图标按钮的作用;当把鼠标从这个按钮上移开后,提示
行立刻消失.
实现方法:
(1)建立含有如下控件的窗体:
控件 NAME CAPTION VISIBLE
窗体 BOTTON_DEMO 实例一:给应用程序的命令按钮加上提示行程序窗口
命令按钮 COMMAND1 TRUE
标签 LABEL1 FALSE 显示图标按钮作用的文字
(2)双击窗体,进入窗体装入事件代码窗口:
Private Sub Form_Load ( )
COMMAND1.Picture = LoadPicture("C:README.ICO") 装入图片
End Sub
