MouseMove问题

[shuichong]

我想实现的功能是这样的，鼠标移到图片控件Picture上时显示一个提示窗口，鼠标移开图片控件Picgure时提示窗口消失

那我怎样用Picture的MouseMove，使了总是不行

[viena]

怎么不行？

[rickytwice]

有个什么属性来着？tiptooltext？？ 忘记咯，就是这个功能啊。
mousemove事件促发也成啊。
贴出你的代码！

呵呵：）

[palmkey]

pic.ToolTipText ="xxxx"

[shuichong]

下面是MouseMove的代码，那怎么知道是鼠标移到Pic上还是移开Pic????
Private Sub Pic_Mail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim WinRect As RECT
Dim WinPoint As POINTAPI
Dim BalloonXY As BalloonCoords

Call GetWindowRect(Pic_Mail.hWnd, WinRect)
BalloonXY.X = WinRect.Left * Screen.TwipsPerPixelX
BalloonXY.Y = WinRect.Bottom * Screen.TwipsPerPixelY

Dim frmBalloon1 As New frmTip

frmBalloon1.SetBalloon "系统提示", " 双击弹出消息窗口", Me.ScaleWidth - frmBalloon1.Width, Me.ScaleHeight - frmBalloon1.Height, , True

frmBalloon1.Show , Me
Me.SetFocus
end sub

[xshhui]

在窗体的mousemove事件中写上提示窗口消失
在picture的mousemove事件中写上显示一个提示窗口，

[xshhui]

或者也可以利用mouseout这个api，写在picture中

[kmzs]

移动的太快就不行了，MouseMove不是连续触发的。。。

[shuichong]

越来越不懂了!!!!!

[badboy168]

option explicit
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
private sub picture1_mousemove(button as integer,x as singe,y as single,shift as integer)
dim setmouse as boolean
with picture1
setmouse=(0<x) and (x<.width) and (0<y) and (y<.height)
end with
if setmouse then
form2.visible=true
form2.lable1.caption="改变FORM2的样式，可以当消息框用"
setcapture picture1.hwnd
else
form2.visible=false
releascapture
end if
end sub

[pikachu8guan]

还是使用下API吧

[shuichong]

我不用API这样行不行？？？
private sub picture1_mousemove(button as integer,x as singe,y as single,shift as integer)
if MessageFlag=0 then'没有打开消息框

if (0<x) and (x<picture1.width) and (0<y) and (y<picture1.height) then
'显示消息框
frmBalloon1.SetBalloon "系统提示", " 双击弹出消息窗口", Me.ScaleWidth - frmBalloon1.Width, Me.ScaleHeight - frmBalloon1.Height, , True
MessageFlag=1
end if
else
if not ((0<x) and (x<picture1.width) and (0<y) and (y<picture1.height)) then
HidefrmBalloon'隐藏消息框
end if
end if

Exit Sub

[tmd007]

if not ((0<x) and (x<picture1.width) and (0<y) and (y<picture1.height)) then
HidefrmBalloon'隐藏消息框
end if

这句会不会执行呢？

[tmd007]

用API挺好

Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X < 0 Or X > Picture1.Width Or Y < 0 And Y > Picture1.Height Then
ReleaseCapture
Debug.Print "out" '隐藏消息框
Else
SetCapture Picture1.hWnd
Debug.Print "IN" '显示消息框
End If
End Sub