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也是一样,恐怕是多行文字在作怪,有什么办法解决?
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也是一样,恐怕是多行文字在作怪,有什么办法解决?
原来默认是什么?Text1(String字符串表达式),任何其值为一连串字符的表达式,只有1行。变成文本类型后,可以输入多行。
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