# 再与cww探讨快速键的延伸，亦欢迎其他先进指正

Posted by 小马 on September 01, 1998 at 08:52:28:

你好，昨天跟你讨论了快速键的问题，觉得收获颇多，谢谢您的解说。但是现在有个问题是，您的解法是针对热键是设在command button，如alt-c，但一般应用上我们会设一个menu bar，如视窗最上一列的「档案」、「编辑」....运用此法弟试不出来按下热键（如F1=修改）然后可以先去执行text1 lostfocus事件的效果，可以请您再多指正一下吗？（程式码大致如下）

Private Sub mnu_Click(Index As Integer) '我设了一个mnu的功能表
Select Case Index
Case 0 '希望按下如F1(功能表中已设定）会执行command1的事情，
'（当然需先执行text1 lostfocus中的判断），但以这个例
'子，我试过的结果只会出现command1 click，要如何作才能
'达到text1 lostfocus→command1 click的效果呢？
Command1_click
end select
End Sub

Private Sub Command1_Click()
DoEvents '若没加这一行，您可以看看结果会如何
Debug.Print "Command1 Click"
End Sub

Private Sub Command1_GotFocus()
Debug.Print "Command1 GotFocus"
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_LostFocus()
Debug.Print "Text1 LostFocus"
End Sub

Follow Ups:

- Re: 再与cww探讨快速键的延伸，亦欢迎其他先进指正 cww 09:54:41 9/01/98 (4)
  - Re: 这个我知道，但真正的问题是... 小马 10:25:37 9/01/98 (3)
    - 那只好这样做了 cww 13:59:50 9/01/98 (2)
      - Doevents也没办法用F8 debug吧！ 小马 19:17:04 9/01/98 (1)
        - 是您程式的问题 cww 08:23:09 9/02/98 (0)