Question

VB试试显示text中的文字数量

如题，VB怎么让label中试试显示text中的文字数量？要说用label=len(text1)的话会不会只执行一次就不执行了？需要实时显示的，即输入一个字符刷新一次，谢谢

Answer 1

通过设置text的multiline属性设置为true，这样才能显示多行文本，且能显示回车符，
还可以通过设置text1的scrollbars属性，让其显示滚动条，以便阅读text中的内容。

Answer 2

Private Sub Text1_Change()
Label1.Caption = Len(Text1.Text)
End Sub
另外也可以放在定时器里检测。

追问

这个可以实时刷新吗？

追答

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 200
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
 Label1.Caption = Len(Text1.Text)

End Sub