Question

VB怎么改让Text1删一个字符text2也删一个

Answer 1

Dim L

Private Sub Form_Load()
L = Len(Text1.Text)
End Sub

Private Sub Text1_Change()
If Len(Text1.Text) < L Then
L = Len(Text1.Text)
If Len(Text2.Text) > 0 Then
Text2.Text = Left(Text2.Text, Len(Text2) - 1)
End If
End If
End Sub

Answer 2

不会回答别乱答。浪费时间.
不会提问别乱问。浪费时间.