label控件同步显示text字数

发布网友发布时间：2022-05-15 19:34

共6个回答

热心网友时间：2024-02-27 09:20

你可以用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

热心网友时间：2024-02-27 09:20

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

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

热心网友时间：2024-02-27 09:21

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

热心网友时间：2024-02-27 09:21

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

热心网友时间：2024-02-27 09:22

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

热心网友时间：2024-02-27 09:23

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