第1个回答 2013-09-07
sub text1.change label1.caption = len(text1.text) end sub 基本就这样OK了 没次变化都会带入
第2个回答 2013-09-07
sub text1_changelabel1.caption =len(trim(text1.text))end sub这样才精确的,加TRIM可以去掉两边不必要的空格本回答被网友采纳
第3个回答 2013-09-07
'楼上的有点错误,我修正一下:Private Sub text1_change()
Label1.Caption = Len(Text1.Text)
End Sub'text1里的文本改变的时候label1的caption会随之改变'len是用来取长度的