Question

vb中如何让鼠标经过隐藏的图片框后图片显示

Answer 1

'窗体上添加图片框，放到窗体中间，边框和窗体要有边，否则不能判断是否移出...
Private
Sub
Form_Load()
Me.Caption
=
"0"
Picture1.BorderStyle
=
0
Picture1.Picture
=
Nothing
End
Sub
Private
Sub
Form_MouseMove(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
Me.Caption
=
"0"
Picture1.Picture
=
Nothing
End
Sub
Private
Sub
Picture1_MouseMove(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
Me.Caption
=
"1"
Picture1.Picture
=
LoadPicture("要显示的图片全部地址")
End
Sub