VB按钮控制

按钮控制

用VB实现浮动按钮

在微软的很多软件（如WORD）的工具栏中，都采用一种浮动按钮，即正常情况下按钮的图标呈灰色，当鼠标移动到某一按钮时，该按钮自动向上凸起且变为彩色，并在按钮的右下方有一标签提示该按钮的功能，鼠标移开后又自动还原，这种按钮用VB实现时，方法如下：

1.先用绘图工具作出按钮图标后存盘（如1.bmp），再用图象处理软件将该图标转换为灰度图或浮雕图后再存盘（如

2.bmp）。

2.运行VB，建立一新窗体（如form1）。

3.在窗体上需要建立按钮的位置处建立一图片框（如image1），其大小和图标相同，并将其picture属性设为2.bmp。

4.在image1周围建立由四个长度相同的line控件（如line1～4）组成的方框，方框要比image1 控件稍大，否则达不到预计效果，将上面和左边的颜色设成白色，下面和右边的设成黑色，并将四个line控件的visible属性都设成false 。

5.在程序中加入以下内容即可：

Private Sub Image1_MouseMove(Botton As Integer,Shift As Integer,X As Single,Y As Single)

Image1.Picture=LoadPicture("c:\1.bmp")

Line1.Visible=True

Line2.Visible=True

Line3.Visible=True

Line4.Visible=True

End Sub

Private Sub Form1_MouseMove(Botton As Integer,Shift As Integer,X As Single,Y As Single)

Image1.Picture=LoadPicture("c:\2.bmp")

Line1.Visible=False

Line2.Visible=False

Line3.Visible=False

Line3.Visible=False

End Sub

如何设计一个可中断循环的按钮。

当程序进入循环而尚未脱离时，使用者将无法操作表单上的控制控件，所以按钮也是无法操作的。想要设计可中断循环的按钮，首先必须在循环之中安插 DoEvents 叙述，例如：

While ...

循环内的处理工作

DoEvents

Wend

DoEvents 的作用是暂时释放 CPU，让其他程序得以被执行，也就是让使用者可以操作表单上的控制控件。

接着声明一个全域变数： Dim bExit As Boolean，然后在回圈中增加以下的判断式：

While Not bExit

循环内的处理工作

DoEvents

Wend

bExit = False

最后则是在按钮的 Click 事件程序中撰写以下叙述：

bExit = True

以上程序有两大重点

(1) DoEvents 让使用者可以按下命令钮

(2) 按钮按下时，将全域变数 bExit 设定成 True，使得程序在判断 Not bExit 为 False 的情况下而脱离循环。