1,488
社区成员




Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub cmdShowLen_Click()
Dim T As Long, L As Long
T = timeGetTime
L = Len(RichTextBox1.Text)
T = timeGetTime - T
MsgBox "用时=" & Str(T) & " 长度=" & Str(L)
End Sub
Private Sub cmdGetText_Click()
Dim T As Long
Dim S As String
T = timeGetTime
S = RichTextBox1.Text
T = timeGetTime - T
MsgBox "获取文本用时=" & Str(T)
End Sub