VBNETPublic Class Form1 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged Me.TextBox2.Text = Microsoft.VisualBasic.Left(Me.TextBox1.Text, 4) End Sub End ClassVB6 Private Sub Text1_Change() Text2.Text = Left(Text1.Text, 4) End Sub不是相通的么?就是一个left函数嘛。
Me.TextBox2.Text = Microsoft.VisualBasic.Left(Me.TextBox1.Text, 4)
End Sub
End ClassVB6
Private Sub Text1_Change()
Text2.Text = Left(Text1.Text, 4)
End Sub不是相通的么?就是一个left函数嘛。