禁止在TextBox中输入
来源:互联网 发布:hbuilder mac版 编辑:程序博客网 时间:2024/04/29 04:02
禁止在TextBox中输入
方法一:(有光标闪烁,输入、删除等操作无效)
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禁止记忆以前输入的值
- 在输入框中禁止输入非法字符
- 如何禁止用户在文本输入框中输入数字
- AOP是什么? http://www.jdon.com/AOPdesign/jdon-aop.htm
- jbpm-简介
- 又开张了
- JDK6笔记(5)----JDBC4
- Linux2.6下内核模块编译
- 禁止在TextBox中输入
- 学历,你为什么老是挡住我的发展?!
- JSP连接mysql数据库
- 转载:Doxygen簡介
- 程序员的淡淡心绪
- 哪些行业会是面向服务架构(SOA)的先行者
- 2007.04.06今天继续优化
- jbpm-中表的中文意思
- JAVA命名规则