Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then Text2.SetFocus
End SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then Text1.SetFocus
End Sub如上一段代码,假text1或text2其中一方的.MultiLine为true时(或双方),那就变得无法转移了,有什么办法??
同理vbKeyDown也是一样,恐怕是多行文字在作怪,有什么办法解决?

解决方案 »

  1.   

    上面有我的程序啦,大家可以看看,text1设了多行属性,所以不能跳。但text2没有,所以可以跳....
      

  2.   

    不知你注意了没有?你把MultiLine设置为True后,对应的Text属性变成了什么? (文本)
    原来默认是什么?Text1(String字符串表达式),任何其值为一连串字符的表达式,只有1行。变成文本类型后,可以输入多行。
      

  3.   

    '发送一个TAB按键信息就行了
    Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyUp Then SendKeys "{TAB}"
    End SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyUp Then SendKeys "{TAB}"
    End Sub
      

  4.   

    可能是KeyUp,KeyDown,在“文本”中有自己的定义吧楼上的方法挺好,可是怎么像你那样直接定位到别的控件上?