日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

可以局限中文輸入的文本框

可以局限中文輸入的文本框

更新時間:2022-05-02 文章作者:未知 信息來源:網絡 閱讀次數:

根據網友提的意見,大家都需要限制中文輸入,今天,我試驗了一下,找了一個辦法限制中文輸入,測試已經通過,大家也自己試一下吧,有什么意見繼續提,如果愿意加我的QQ:36745349



這個是在昨天的基礎上做的更改,測試已經滿足大家的要求,如果誰有更好的辦法也請交流一下

下面是代碼:

'sunnyxing2004-04-01最后修改
Public Class MyTextBox
Inherits System.Windows.Forms.TextBox
Private m_strValidText As String = "0123456789.+-" & Chr(13).ToString
Private m_blnEditable As Boolean = True

#Region " Windows 窗體設計器生成的代碼 "

Public Sub New()
MyBase.New()
'該調用是 Windows 窗體設計器所必需的。
InitializeComponent()

'在 InitializeComponent() 調用之后添加任何初始化

End Sub

'UserControl1 重寫 dispose 以清理組件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Windows 窗體設計器所必需的
Private components As System.ComponentModel.IContainer

'注意: 以下過程是 Windows 窗體設計器所必需的
'可以使用 Windows 窗體設計器修改此過程。
'不要使用代碼編輯器修改它。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
components = New System.ComponentModel.Container
End Sub

#End Region

Private Sub MyTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
Dim strLocalString As String
If EditAble Then
strLocalString = m_strValidText & Chr(8).ToString
Else
strLocalString = m_strValidText
End If
If UCase(strLocalString).IndexOf(UCase(e.KeyChar)) < 0 Then
e.Handled = True
Beep()
Else

End If
End Sub
Public Property ValidText() As String
Get
Return m_strValidText
End Get
Set(ByVal Value As String)
m_strValidText = Value
End Set
End Property
Public Property EditAble() As Boolean
Get
Return m_blnEditable
End Get
Set(ByVal Value As Boolean)
m_blnEditable = Value
End Set
End Property
Public Sub CheckText(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.TextChanged
Dim cha As Char
Try
cha = CType(Me.Text.Substring(Me.SelectionStart - 1, 1), Char)
If m_strValidText.IndexOf(cha) < 0 Then
Me.Text = Me.Text.Remove(Me.SelectionStart - 1, 1)

End If
Catch ex As Exception

End Try


End Sub

End Class

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 91一区二区视频 | 日本xxxwww免费视频 | 国产美女精品在线观看 | 久久精品久久精品 | 最新国产大片高清视频 | 久久婷婷综合在线视频观看6 | 国产精品夜色视频一区二区 | 国产5g影院天天爽5g视频在线 | 欧美色精品天天在线观看视频 | 嗯啊欧美 | 日本精品久久久久中文字幕8 | 一级特黄牲大片免费视频 | 日韩一级 | 人人欧美 | 日韩dv| 成年大片免费视频播放手机不卡 | 婷婷激情五月 | 老司机91精品网站在线观看 | 亚洲欧美视屏 | 精品一区二区三区视频日产 | 91色老99久久九九爱精品 | 中文字幕网资源站永久资源 | 四虎国产一区二区三区 | 天天影视色香欲综合网 西瓜影音 | 香港三级日本三级三级人妇 | 天天摸天天操天天干 | 色视频在线免费观看 | 91香蕉视频在线观看免费 | www在线视频在线播放 | 色88888久久久久久影院 | 日本三级黄色片 | 欧美性网站 | 久久国产精品一国产精品金尊 | 欧美亚洲一区二区三区 | 亚洲欧洲国产经精品香蕉网 | 国产亚洲午夜精品 | 国产亚洲sss在线观看 | 四虎国产精品永久地址49 | 日日干狠狠操 | 国产日韩欧美高清 | 亚洲精品日韩精品一区 |