请教一个有关如何在Text上调整所显示的文字的问题.

Question

Private Sub Command1_Click()
Dim temp As String
temp = RTrim(Text1.Text)
MsgBox Right(temp, 10)
End Sub

Answer 1

with text1
.multiline=false
.maxlength=10
end with

Answer 2

把焦点移到最右边就可以了
Text1.SelStart=len(text1.text)

Answer 3

To crystal_heart(笑看风云) :是的,你是那的?也是南宁的吗?

Answer 4

谢谢myhfit() !谢谢大家!!!!!!

Answer 5

Private Sub Text1_Change()
  If Len(Text1.Text) > 10 Then Text1.Text = Right(Text1.Text, 10)
  Text1.SelStart = 10
End Sub

Answer 6

To crystal_heart(笑看风云):大侠现在怎么样?还好吗?他老人家曾给过我很大的帮助,很久没见到他了.我的E-mail:[email protected],你的呢?