VB TEXT控件应用
2004-06-26 18:06
274 查看
TextBox控件:
a. 控制Textbox输入格式,我想大多人都遇到这个问题,在TextBox作为输入接口时,有时我们希望用户只能输入数字、大写、字母等,一般的做法是对用户输入的字符这个检查。但是如果我们使用API,将很容易实现这些功能,比如:
1、只允许输入数字:
Const ES_NUMBER = &H2000
Public Function NumbersOnly(tBox As TextBox)
Dim DefaultStyle As Long
DefaultStyle = GetWindowLong(tBox.hwnd, GWL_STYLE)
NumbersOnly = SetWindowLong(tBox.hwnd, GWL_STYLE, DefaultStyle Or ES_NUMBER)
End Function
2、只允许大写:
Public Function UpperCaseOnly(tBox As TextBox)
Dim DefaultStyle As Long
DefaultStyle = GetWindowLong(tBox.hwnd, GWL_STYLE)
UpperCaseOnly = SetWindowLong(tBox.hwnd, GWL_STYLE, DefaultStyle Or ES_UPPERCASE)
End Function
3、只允许小写:
Public Function LowerCaseOnly(tBox As TextBox)
Dim DefaultStyle As Long
DefaultStyle = GetWindowLong(tBox.hwnd, GWL_STYLE)
LowerCaseOnly = SetWindowLong(tBox.hwnd, GWL_STYLE, DefaultStyle Or ES_LOWERCASE)
End Function
当然上边三个函数可以合成一个函数,因为他们方法是一样的,只是风格参数不同而已。
a. 控制Textbox输入格式,我想大多人都遇到这个问题,在TextBox作为输入接口时,有时我们希望用户只能输入数字、大写、字母等,一般的做法是对用户输入的字符这个检查。但是如果我们使用API,将很容易实现这些功能,比如:
1、只允许输入数字:
Const ES_NUMBER = &H2000
Public Function NumbersOnly(tBox As TextBox)
Dim DefaultStyle As Long
DefaultStyle = GetWindowLong(tBox.hwnd, GWL_STYLE)
NumbersOnly = SetWindowLong(tBox.hwnd, GWL_STYLE, DefaultStyle Or ES_NUMBER)
End Function
2、只允许大写:
Public Function UpperCaseOnly(tBox As TextBox)
Dim DefaultStyle As Long
DefaultStyle = GetWindowLong(tBox.hwnd, GWL_STYLE)
UpperCaseOnly = SetWindowLong(tBox.hwnd, GWL_STYLE, DefaultStyle Or ES_UPPERCASE)
End Function
3、只允许小写:
Public Function LowerCaseOnly(tBox As TextBox)
Dim DefaultStyle As Long
DefaultStyle = GetWindowLong(tBox.hwnd, GWL_STYLE)
LowerCaseOnly = SetWindowLong(tBox.hwnd, GWL_STYLE, DefaultStyle Or ES_LOWERCASE)
End Function
当然上边三个函数可以合成一个函数,因为他们方法是一样的,只是风格参数不同而已。
相关文章推荐
- AutoCompleteTextView控件的应用-实现记录提示
- Android应用开发——TextView控件属性列表
- [VB][测试技术应用]VB与IE交互实现WEB画面的自动测试(用VB填写IE中控件的内容和提交表单)
- Android应用开发——TextView控件属性列表
- .NET(C#、VB)移动开发——Smobiler平台控件介绍:TextTabBar控件
- android应用的ACTIVITY当使用EditText控件时会默认弹出输入法窗口,默认不弹出窗口方法
- Android应用开发——TextView控件属性列表
- VB中Text控件获得焦点的同时全选
- 委托与事件的简单应用(不同控件之间的控制及参数传递,C# VB)
- .NET(C#、VB)移动开发——Smobiler平台控件介绍:TextTabBar控件
- 4.EditText控件的应用实例:结合TableLayout
- VB.net应用技巧4: 跨线程调用控件
- 如何应用VB.NET MonthCalendar控件(图)
- VB查漏补缺 text控件
- 常用控件应用之文本框(TextView)特效
- 章鱼哥—VB.NET 控件中你不知道的属性之——AllowDrop 应用详解
- Android学习_01——AutoCompleteTextView控件和MultiAutoCompleteTextView控件的应用
- Android应用开发——TextView控件属性列表
- android常用控件应用之文本框(TextView)特效
- VB.net对于datagride控件的使用及C#中datagrideView\bindingSource\bindingNavigator\tabcontrol控件的应用