Question

VB的鼠标事件怎么写啊~~

我VB初学者，我想写一个程序，当鼠标停留在图片上时，就会出现一个新的窗口（这个窗口有一个箭头指向了图片），我希望能在窗口中添加一些图片和文字，当鼠标不再停留在上面的时候，这个窗口就消失，请问该怎么写啊~求代码，谢了

Answer 1

Move(Button As Integer, Shift As Integer, X As Single, Y As Single)
'鼠标在image上移动
image1.picture = loadpicture("c:\2.bmp")
End Sub
Private Sub form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
’鼠标离开image,在窗体上移动
image1.picture = loadpicture("c:\1.bmp")
End Sub

Answer 2

在图片控件的mouseover事件里，加一句 newform.show
在form和其它控件的mouseover事件里，加一句 newform.hide

Answer 3

e Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub TimKey_Timer()
'

LButton = CBool(GetAsyncKeyState(vbLeftButton)) '鼠标左键状态
RButton = CBool(GetAsyncKeyState(vbRightButton)) '鼠标右键状态

if LButton=true and RButton=true then .......

试试看行不行