Textbox 半角英数控制方法

Private Sub txtClicd(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtClicd.KeyPress_KeyPress

            If Not (e.KeyChar.IsLetterOrDigit(e.KeyChar) Or e.KeyChar = ControlChars.Back) Then

                e.Handled = True

            End If

End Sub

控制全角入力方法（输入自动转成全角）

Private Sub txtClinm(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtClinm.TextChanged_TextChanged

            Me = StrConv(Me, VbStrConv.Wide, 0).txtClinm.Text.txtClinm.Text

            Me = Me.txtClinm.Text.Length.txtClinm.SelectionStart

        End Sub

控制 半（输入自动转成半角） 角入力方法

Private Sub txtClinm(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtClinm.TextChanged_TextChanged

            Me = StrConv(Me, VbStrConv. Narrow, 0).txtClinm.Text.txtClinm.Text

            Me = Me.txtClinm.Text.Length.txtClinm.SelectionStart

        End Sub