自制IE风格按纽控件

在VB6.0中新建一个ActiveX Control项目。添加LineLeft,LineTop,LineRight, LineBottom四条边线，一个Image控件Image1,一个Label标签控件Label1,一个定时器控件Timer1。关于用VB创建ActiveX控件的步骤这里不作描述（可以参考本文所附完整源代码）。与按纽制作有关的主要代码如下：

Private Sub UserControl_Show() Timer1.Interval = 1 1/1000 秒 Timer1.Enabled=False 关闭定时器 将UserControl的提示信息引入Image1,Label1控件， If UserControl.Ambient.UserMode = True Then 在RunTime Image1.ToolTipText = UserControl.Extender.ToolTipText Label1.ToolTipText = UserControl.Extender.ToolTipText End If

......此处添加其它代码

End Sub Private Sub Image1_MouseMove (Button As Integer, Shift As Integer, _ X As Single, Y As Single)

....... 此处添加使按纽呈现浮起效果的代码
Timer1.Enabled = True 打开定时器
End Sub

Private Sub Timer1_Timer() 定时器触发

Dim MousePosition As POINTAPI Dim ReturnValue As Long Dim HwndHoverWindow As Long ReturnValue = GetCursorPos(MousePosition)

返回鼠标指针坐标
返回指针所指位置的控件句柄

HwndHoverWindow = WindowFromPoint (MousePosition.X, MousePosition.Y) If HwndHoverWindow < > UserControl.hWnd Then

如果鼠标离开了按纽区域
...... 此处添加使按纽恢复平坦状态的代码
Timer1.Enabled = False 将定时器关闭，
以释放资源

End If End Sub Private Sub Image1_MouseDown (Button As Integer, Shift As Integer, _ X As Single, Y As Single) If Button = 1 Then

....... 此处添加使按纽呈现按下状态的代码

End If End Sub

查看本文来源