Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)
Select Case KeyCode
Case vbKeyF10
Me.Visible = False
End Select
End Sub
想实现的效果是一个全屏flash,按下F10退出当前窗体。
请教前辈该如何实现?
...全文
612打赏收藏
VB Flash控件快捷键问题
百度了一下有的人说ShockwaveFlash1_FSCommand事件下是控制快捷键的, 但是我使用keycode 没有效 代码如下: Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String) Select Case KeyCode Case vbKeyF10 Me.Visible = False End Select End Sub 想实现的效果是一个全屏flash,按下F10退出