VB中控制光标始终在文本最左边不动

来源:百度知道 编辑:UC知道 时间:2024/05/21 09:38:00
请问要把TEXT中的光标始终定位在最左边不动该怎么做?把他放在最左边了按什么都不能动 删除的时候也不能动 在线等了 谢谢各位大虾了~~~

在text1_change事件里加text1.selstart=0,你试试.

把Text1_Change事件和Text1_KeyPress事件结合起来用。
Private Sub Text1_Change()
Text1.SelStart = 0
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
If Text1 = "" Then
KeyAscii = 0
Else
Text1.Text = Left(Text1, Len(Text1) - 1)
End If
Else
Text1.Text = Text1.Text & Chr(KeyAscii)
KeyAscii = 0
End If
End Sub