Question

vb6.0如何实现文本框中每输入4个字符插入1个空格？

比如 text1.text=1234i5tr6u75u9ir8ew9w

要变成text1.text=1234 i5tr 6u75 u9ir 8ew9 w

请提供详细代码。

Answer 1

Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim i As Long
a = "1234i5tr6u75u9ir8ew9w"
b = Left$(a, 4)
For i = 1 To Len(a) / 4
b = b & " " & Mid$(a, i * 4 + 1, 4)
Next i
text1.text =b
End Sub