vb 构造函数求文本框字符串长度 （不用len函数）

Question

Static length&(str$)
Do While str <> Null
length = length + 1
Loop
End Function

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

编译报错 求大神指导

Answer 1

修改一下程序就可以了：
Function length&(Str$)
Do While Str <> Null
length = length + 1
Loop
End Function

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

追问

你这个不对。。

追答

不好意思 ，还真是不对。这个你看看
Function length&(str$)
Dim i As Long
Do
i = i + 1
Loop While Mid(Str, i, 1) ""
length = i - 1
End Function

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

Answer 2

Function length(Str As String) As Long
Dim i As Long
Do While True
i = i + 1
If Mid(Str, i, 1) = "" Then Exit Do
Loop
length = i - 1
End Function

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

追问

这个不错 不过我正在想还有没有更简洁的代码~

Answer 3

Function Lenstr(Str1 As String) As Long
Dim i As Integer
i = 1
Do While Mid(Str1, i, 1) <> ""
i = i + 1
Loop
Lenstr = i - 1
End Function

Answer 4

楼上的对