Question

label控件同步显示text字数

我想问一下，两个控件，一为test,另一为label，如果想在text中输入字符的同时，label控件显示text输入的字数，代码应该是什么？
例如：我输入abcde，则Label控件显示：5 label显示输入的字数，不是内容。

Answer 1

你可以用len 函数，具体是：
Private Sub Text1_Change()
Dim a As String
a = Text1.Text
Label1.Caption = Len(a)
End Sub
或是：
Private Sub Text1_Change()
Label1.Caption = Len(Text1.Text)
End Sub

Answer 2

要显示内容为：Private Sub Text1_Change()
Label1.Caption = Text1.Text
End Sub

要显示text1.text的文本长度，也就是显示数字为：
Private Sub Text1_Change()
Label1.Caption = Len(Text1.Text)
End Sub

Answer 3

Private Sub Text1_Change()
Label1.AutoSize = True
Dim a
a = Text1.Text
Label1.Caption = a
End Sub

Answer 4

双击TEXT1输入代码：
label1.caption=Len(text1.text)

Answer 5

Private Sub Text1_Change()
Label1.Caption = Len(Text1.Text)
End Sub

Answer 6

Private Sub Text1_Change()
Label1.Caption =len(Text1.Text)
End Sub