如何使控件的内容根据鼠标的位置发生变化.txt

VB技巧问答10000例 VB技巧问答10000例

我 在  “如何设置鼠标为不可见及如何捕捉到鼠标移动”介 绍 了 如 何 捕 捉 到 鼠 标 移 动 ， 具 体 到 你 的 问 题 可 以 采 用 下 面 的 办 法 ： 
    1、 在 Form上 放 置 一 个 Timer控 件 ， 设 置 Interval属 性 为 100。 
    2、 设 置 Form的 ScaleMode属 性 为 3。 
    3、 输 入 如 下 代 码 ： 
    Dim highlighted As Boolean 
     
    Private Type POINTAPI 
     x As Long 
     y As Long 
    End Type 
    Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long 
    Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long 
     
    Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
     If highlighted Then Exit Sub 
     highlighted = True 
     Image1.Picture = LoadPicture("nav_catalog_roll.gif") 
     Timer1.Enabled = True 
    End Sub 
     
    Private Sub Timer1_Timer() 
    Dim pt As POINTAPI 
     
     GetCursorPos pt 
     
     ScreenToClient hwnd, pt 
     
     If pt.X < Image1.Left Or pt.Y < Image1.Top Or _ 
     pt.X > Image1.Left + Image1.Width Or _ 
     pt.Y > Image1.Top + Image1.Height _ 
     Then 
     highlighted = False 
     Image1.Picture = LoadPicture("nav_catalog.gif") 
     Timer1.Enabled = False 
     End If 
    End Sub 
<END>