焦点如何处理

比如一个text控件放左边,一个Command放右边。移动键盘上的上下左右键想让焦点从Command上跳到text上。该如何做？我在command的keypress事件中写入
 If KeyAscii = vbKeyLeft Then text.SetFocus 当我移动向左键时根不触发keypress事件。请高手帮忙。如何去实现。急用

解决方案 »

  1.   

    Private Sub Command2_GotFocus()
        Text.SetFocus
    End Sub
      

  2.   

    你只要在設計時設置好它們的TabIndex就行了,不用寫代碼控制.
      

  3.   

    是有点奇怪！不能触发这个事件！不过可以用Tab键啊！
      

  4.   

    要将窗体的keypreview设置成true
      

  5.   

    把各个控件TabIndex按你需要的顺序设置好就可以了啊。
      

  6.   

    把各个控件TabIndex按你需要的顺序设置好,如TextBox的TabIndex值为1，CommandButton的TabIndex值为2
      

  7.   

    把各个控件TabIndex按你需要的顺序设置好,如TextBox的TabIndex值为1，CommandButton的TabIndex值为2在各控件KeyPress 中将右键 设置为 Sendkeys {"TAB"} ,左建 SendKeys {"ALT+TAB"} 好像到上一个焦点是Alt+Tab 的话.
      

  8.   

    我在command的keypress事件中写入
     If KeyAscii = vbKeyLeft Then text.SetFocus 当我移动向左键时根不触发keypress事件。请高手帮忙。如何去实现。急用
    vbKeyLeft只在keydown事件中觸發
    在keydown事件中寫這些代碼,就形了
      

  9.   

    applekiller() ;
    在各控件KeyPress 中将右键 设置为 Sendkeys {"TAB"} ,左建 SendKeys {"ALT+TAB"} 好像到上一个焦点是Alt+Tab 的话.應改為:在各控件Keydown 中将右键 设置为 Sendkeys "{tab}",左建 SendKeys "+{tab}"
      

  10.   

    开什么玩笑
    TabIndex是从0开始的
      

  11.   

    你们说的这些俺也知道。最不让俺明白的的。为什么在command获得焦点后，按下向左向右键的时候压不不触发KeyPress和KeyDown事件.这是叫人最郁闷的