自制IE風格按鈕控件
網上的IE風格按紐控件不可謂少，然而天下的免費午餐總不會讓你輕輕松松到吃下去，其中個味眾人自知。其實，在VB6.0中，IE風格按紐很容易制作，真正的核心代碼只需調用兩個API函數。
按常規，IE風格按紐的制作原理是，放置四條邊線在Image和Label控件四周，在 Image和Label控件的MouseMove事件中，改變左，上，右，下線的Visible 和 BorderColor屬性,按紐呈現浮起效果，同時改變Image控件的Picture 屬性，調入盤旋（Hover）圖片；在Image和Label的MouseDown事件中通過改變Image和Label控件的位置（右下移）按紐呈現按下效果；鼠標離開按紐，按紐恢復平坦（Flat）狀態。
如果你正在這樣做，將會發現一個致命的問題。那就是，MouseMove事件只能檢測到鼠標在Image和Label兩個控件本身范圍內的移動，你沒有辦法檢測鼠標的離開。“計算機世界”曾經登載過一個解決的辦法，利用SetCapture和ReleaseCapture API函數。經SetCapture設定的控件可以強制性地捕捉鼠標在整個屏幕上的移動。這樣，不管鼠標是不是在控件界面范圍內移動，控件都可以捕捉得到。經過實踐發現這個解決方案仍然存在一個問題，那就是，SetCapture所設定控件在 ReleaseCapture前，自動提示(ToolTipText)功能被抑制。這意味著這樣編制的按紐沒有自動提示功能，對很多人來說，這難以忍受。
WIN32 API函數集是個不折不扣的龐大寶藏，你總能從里面找到你需要的工具。 GetCursorPos和WindowFromPoint兩個函數可以完美地解決這個問題。 GetCursorPos可以返回鼠標指針相對整個屏幕的坐標，WindowFromPoint 則根據鼠標指針的坐標，返回指針所處的控件的句柄。在這里，還需要引入一個定時器 (Timer)控件。
整個編程原理是，在UserControl_Show事件中，先將定時器置為無效。在Image和Label的MouseMove事件中，執行使按紐浮起的代碼，然后將定時器置為有效，這時定時器開始倒計時，在計時器的Timer事件中，用上述API函數檢測鼠標指針是否已經離開了按紐，如果離開，則使按紐恢復平坦狀態并立即使計時器無效，否則繼續檢測。我們看到，計時器的真正用途是用來觸發事件，以檢測鼠標的離開。將計時器置為無效是為了在不必要的時間，降低計時器對CPU的占用。
以下是函數和所需數據類型聲明。
在VB6.0中新建一個ActiveX Control項目。添加LineLeft,LineTop,LineRight, LineBottom四條邊線，一個Image控件Image1,一個Label標簽控件Label1,一個定時器控件Timer1。關于用VB創建ActiveX控件的步驟這里不作描述（可以參考本文所附完整源代碼）。與按紐制作有關的主要代碼如下：
......此處添加其它代碼
....... 此處添加使按紐呈現浮起效果的代碼
Timer1.Enabled = True 打開定時器
Private Sub Timer1_Timer() 定時器觸發
返回鼠標指針坐標
返回指針所指位置的控件句柄
如果鼠標離開了按紐區域
...... 此處添加使按紐恢復平坦狀態的代碼
Timer1.Enabled = False 將定時器關閉，
以釋放資源
....... 此處添加使按紐呈現按下狀態的代碼
按常規，IE風格按紐的制作原理是，放置四條邊線在Image和Label控件四周，在 Image和Label控件的MouseMove事件中，改變左，上，右，下線的Visible 和 BorderColor屬性,按紐呈現浮起效果，同時改變Image控件的Picture 屬性，調入盤旋（Hover）圖片；在Image和Label的MouseDown事件中通過改變Image和Label控件的位置（右下移）按紐呈現按下效果；鼠標離開按紐，按紐恢復平坦（Flat）狀態。
如果你正在這樣做，將會發現一個致命的問題。那就是，MouseMove事件只能檢測到鼠標在Image和Label兩個控件本身范圍內的移動，你沒有辦法檢測鼠標的離開。“計算機世界”曾經登載過一個解決的辦法，利用SetCapture和ReleaseCapture API函數。經SetCapture設定的控件可以強制性地捕捉鼠標在整個屏幕上的移動。這樣，不管鼠標是不是在控件界面范圍內移動，控件都可以捕捉得到。經過實踐發現這個解決方案仍然存在一個問題，那就是，SetCapture所設定控件在 ReleaseCapture前，自動提示(ToolTipText)功能被抑制。這意味著這樣編制的按紐沒有自動提示功能，對很多人來說，這難以忍受。
WIN32 API函數集是個不折不扣的龐大寶藏，你總能從里面找到你需要的工具。 GetCursorPos和WindowFromPoint兩個函數可以完美地解決這個問題。 GetCursorPos可以返回鼠標指針相對整個屏幕的坐標，WindowFromPoint 則根據鼠標指針的坐標，返回指針所處的控件的句柄。在這里，還需要引入一個定時器 (Timer)控件。
整個編程原理是，在UserControl_Show事件中，先將定時器置為無效。在Image和Label的MouseMove事件中，執行使按紐浮起的代碼，然后將定時器置為有效，這時定時器開始倒計時，在計時器的Timer事件中，用上述API函數檢測鼠標指針是否已經離開了按紐，如果離開，則使按紐恢復平坦狀態并立即使計時器無效，否則繼續檢測。我們看到，計時器的真正用途是用來觸發事件，以檢測鼠標的離開。將計時器置為無效是為了在不必要的時間，降低計時器對CPU的占用。
以下是函數和所需數據類型聲明。
| Private Type POINTAPI X As Long Y As Long End Type Private Declare Function GetCursorPos Lib "user32" _ (lpPoint As POINTAPI) As Long Private Declare Function WindowFromPoint Lib "user32" _ (ByVal xPoint As Long, ByVal yPoint As Long) As Long |
在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 |