Question

求text2的内容根据text1的内容自动变化的vb代码！如text1的内容是1289则text2

求text2的内容根据text1的内容自动变化的vb代码！如text1的内容是1289则text2的内容为034567。

Answer 1

Dim RegExp As Object
Private Sub Form_Load()
    Set RegExp = CreateObject("vbscript.regexp")
    RegExp.Global = -1
End Sub
Private Sub Text1_Change()
    Dim n As String, str1 As String, str2 As String
    n = "0123456789"
    With RegExp
        str1 = Text1.Text
        If Len(str1) > 0 Then
            .Pattern = "[" & str1 & "]+"
            If .test(str1) Then
                str2 = .Replace(n, Empty)
                Text2.Text = str2
            End If
        End If
    End With
End Sub

追问

麻烦给每行代码加注释，谢谢

麻烦给每行代码加注释，谢谢