关于Multiline为True的TextBox控件赋值=""时的自动换行

有些新手问:为什么我赋值Text1.Text = "" 时候,他总是自己向下换一行呢?

 

其实这个问题从事件触发的过程分析,就不会有这个疑问了.

 

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then

     ...

     '回车以后执行操作

     ...

     Text1.Text = ""          ' 清空Text1

End Sub

 

会发现他自己换下来一行;

 

其是从事件出发来看,KeyDown是按键按下的事件,你按下按键他就执行这个过程

当按键弹起,TextBox会自动识别回车键,也就是说Text1.Text确实已经是""了,但

是由于KeyUp中的回车导致他自己换行,如果把KeyDown事件换成KeyUp事件就

不会有这种情况发生了:

 

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then

     ...

     '回车以后执行操作

     ...

     Text1.Text = ""          ' 清空Text1

End Sub

 

另外,如果你非要用KeyDown,那就加个SendKeys 发送退格键

SendKeys "{backspace}"

或者Replace(Text1.Text,vbcrlf,"")也是可以的