求教如何使form1能得到鼠标键盘的信息,谢谢!!!

ahbc123 2004-03-06 02:08:52
求教如何使form1能得到鼠标键盘的信息,谢谢!!!
我有一个窗体和一个flash控件
在下面这一段无法使form1得到鼠标键盘的变化.求教高手如何使form1能得到鼠标键盘的信息,谢谢!!!
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
End
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

End
End Sub

Private Sub Form_Load()
Move 0, 0, Screen.Width, Screen.Height '让form1全屏显示
Hidemouse '隐藏鼠标

ShockwaveFlash1.Top = Form1.ScaleTop
ShockwaveFlash1.Left = Form1.ScaleLeft
ShockwaveFlash1.Width = Form1.ScaleWidth
ShockwaveFlash1.Height = Form1.ScaleHeight

ShockwaveFlash1.Movie = "C:\My Documents\db.swf"


End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ShockwaveFlash1.Stop
End
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ShockwaveFlash1.Stop
End
End Sub
...全文
117 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧