禁止在TextBox中输入
来源:互联网 发布:电商大米销售数据 编辑:程序博客网 时间:2024/04/28 01:18
方法一:(有光标闪烁,输入、删除等操作无效)
Text1.Locked = True
方法二:(无光标闪烁,不能输入、删除,界面变色、文字反白)
Text1.Enabled = False
方法三:(有光标闪烁,可删除,不能输入)
此法用两个API函数,略为复杂些。请在标准工程添加两个按钮和一个文本框:
Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_STYLE = (-16)
Const ES_NUMBER = &H2000&
Public Sub SetNumber(NumberText As TextBox, Flag As Boolean)
Dim CurrentStyle As Long, NewStyle As Long
'返回正常样式
CurrentStyle = GetWindowLong(NumberText.hwnd, GWL_STYLE)
If Flag Then
CurrentStyle = CurrentStyle Or ES_NUMBER
Else
CurrentStyle = CurrentStyle And (Not ES_NUMBER)
End If
'设置新样式
NewStyle = SetWindowLong(NumberText.hwnd, GWL_STYLE, CurrentStyle)
NumberText.Refresh '刷新
End Sub
Private Sub Command1_Click()
SetNumber Text1, True
Text1.SetFocus
End Sub
Private Sub Command2_Click()
SetNumber Text1, False
Text1.SetFocus
End Sub
Private Sub Form_Load()
Command1.Caption = "禁止输入"
Command2.Caption = "可以输入"
End Sub
Text1.Locked = True
方法二:(无光标闪烁,不能输入、删除,界面变色、文字反白)
Text1.Enabled = False
方法三:(有光标闪烁,可删除,不能输入)
此法用两个API函数,略为复杂些。请在标准工程添加两个按钮和一个文本框:
Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_STYLE = (-16)
Const ES_NUMBER = &H2000&
Public Sub SetNumber(NumberText As TextBox, Flag As Boolean)
Dim CurrentStyle As Long, NewStyle As Long
'返回正常样式
CurrentStyle = GetWindowLong(NumberText.hwnd, GWL_STYLE)
If Flag Then
CurrentStyle = CurrentStyle Or ES_NUMBER
Else
CurrentStyle = CurrentStyle And (Not ES_NUMBER)
End If
'设置新样式
NewStyle = SetWindowLong(NumberText.hwnd, GWL_STYLE, CurrentStyle)
NumberText.Refresh '刷新
End Sub
Private Sub Command1_Click()
SetNumber Text1, True
Text1.SetFocus
End Sub
Private Sub Command2_Click()
SetNumber Text1, False
Text1.SetFocus
End Sub
Private Sub Form_Load()
Command1.Caption = "禁止输入"
Command2.Caption = "可以输入"
End Sub
- 禁止在TextBox中输入
- 禁止在TextBox中输入
- 禁止在TextBox中输入
- textbox 禁止输入
- textbox禁止输入空格
- Asp.net中禁止文本框TextBox中输入非数字
- Textbox控件禁止用户向文本框中输入文字
- Silverlight中TextBox禁止输入和粘贴非数值字符
- Silverlight中TextBox禁止输入和粘贴非数值字符
- 如何禁止在文本框中输入中文
- 如何禁止在文本框中输入中文
- 禁止在<input>中输入中文
- TextBox禁止输入 后台可读可写
- js禁止textbox字符,只能输入数字
- DataGridView中如何在textbox列中限制输入。
- Asp.net中设置TextBox禁止记忆以前输入的值
- 在输入框中禁止输入非法字符
- 如何禁止用户在文本输入框中输入数字
- session的用法具体解说
- asp疑惑
- 新概念第二册学习笔记三(13--18)
- 大班幼儿告状行为与教师教育态度和方法的研究
- 按钮提交无任何反应的解决情况
- 禁止在TextBox中输入
- UNIX基本概念和操作
- 我的理想,我的梦
- MSSQL SA 空口令 入侵漏洞
- 将一个图片以二进制值的形式存入Xml文件中
- Life is Like a Boat
- 我的第一个C#程序
- 密码认证协议(PAP)--网络大典
- ATM 网络安全:解决方案、技术和规格--网络大典