想做一个以前那种Realone全屏时的功能

Question

Realone全屏时上面会出现几个图标 鼠标指向的时候会弹出 离开就缩回去。 还有按ESC键返回默认大小。 我想把这个功能做到ShockwaveFlash 控件上，让flash全屏有这个功能！！  哪位大哥会的 小弟送80分！！

Answer 1

就是MouseMove事件呗.再加上一个API配合Timer控件,就可以了.API俺不会.不过知道是有这个API.

Answer 2

 示意一下鼠标指向的时候会弹出 离开就缩回去
picturebox及label(位于picturebox内）Private Sub Form_Load()
Label1.Caption = ""
Label1.BackStyle = 0   '透明
End SubPrivate Sub Label1_Click()
MsgBox "you click me "
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "nihao"
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = ""
End Sub

Answer 3

Private Sub Form_Load()
Timer1.Interval = 3000
End SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
Timer1.Enabled = True
End SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Visible = True
Timer1.Enabled = False
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
Label1.Visible = False
Timer1.Enabled = False
Print 1
End Sub