Dim strTest As String
Dim TestArr As Variant
strTest = CodeTxt.Text
TestArr = Split(strTest, vbCrLf)
Dim i As Integer
For i = 0 To UBound(TestArr)
MsgBox TestArr(i)
Next
vb6.0按回车键分割字符串
最新推荐文章于 2024-10-21 22:43:12 发布
Dim strTest As String
Dim TestArr As Variant
strTest = CodeTxt.Text
TestArr = Split(strTest, vbCrLf)
Dim i As Integer
For i = 0 To UBound(TestArr)
MsgBox TestArr(i)
Next