' 滑鼠移入 WEB 區
Private Sub LblWeb_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
LblWeb.ForeColor = &H8A7839 ' 滑鼠移入WEB時的顏色
LblWeb.MousePointer = 99 ' 滑鼠移入WEB時的滑鼠的現狀 ,小手型
LblWeb.MouseIcon = LoadPicture("d:\vb\圖片\mouse.cur") ' 滑鼠形狀圖片
End Sub
這是怎樣檢測的，沒有if陳述句，雖然有x,y做坐標，但是怎樣知道滑鼠靠近 label標簽
uj5u.com熱心網友回復：
呼叫 LblWeb_MouseMove的地方uj5u.com熱心網友回復：
那究竟要滑鼠在靠近什么范圍之內才可檢測到呢uj5u.com熱心網友回復：
設計模式下選中 LblWeb 會出現一個邊框，這就是 LblWeb 的區域，按需要調整大小。uj5u.com熱心網友回復：
Private Sub LblWeb_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)Dim MouseEnter As Boolean '滑鼠進入的標志位
MouseEnter = (0 <= x) And (x <= LblWeb.Width) And (0 <= y) And (y <= LblWeb.Height)
'計算滑鼠的移動是否在image里面
If MouseEnter Then '滑鼠已經進入
SetCapture LblWeb.hWnd
Else '滑鼠已經離開
ReleaseCapture
End If
End Sub
希望這個對你有所啟發和幫助！
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/113930.html
標籤：VB基礎類
上一篇：請問：這樣的HTML怎么單擊它呢，VB 代碼怎么寫?指點請問：這樣的HTML怎么單擊它呢，VB 代碼怎么寫?指點