TextBox使用技巧

原创 2001年08月23日 18:20:00

TextBox使用技巧

    在使用Visual Basic开发应用程序时,TextBox控件是最常用的(特别
对于数据库程序),以下是笔者在开发应用程序时的一些技巧,希望对爱好
VB的朋友有帮助。

1、 限制TextBox只能输入数字。

    我们只需要判断KeyAscii是否在48-57之间就可以达到目的,但我们还会
要用到退格键的,所以必须加上KeyAscii <> 8。

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii <> 8 And KeyAscii < 48 Or KeyAscii > 57 Then
        Beep
 KeyAscii = 0
    End If
End Sub

2、自动将输入的英文转为小写/大写。

     如果在KeyPress事件里使用Ucase$和Lcase$,那么当你输入abc时,Text
Box里的结果会是CBA(具体原因这里不多说),我们只好判断它的KeyAscii,
刚好大写与小写之间是相差32,所以……看下面的程序。

'大写转小写
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii >= 65 And KeyAscii <= 90 Then
        KeyAscii = KeyAscii + 32
    End If
End Sub

'小写转大写
Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii >= 97 And KeyAscii <= 122 Then
 KeyAscii = KeyAscii - 32
    End If
End Sub

3、使两个TextBox同步的方法。

    这种方法怎么解释呢?第二个等于第一个就行了:-)。

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Text2=Text1
End Sub

4、按下 Enter 键之后,光标自动移到下一个控件。

    当KeyAscii为13(回车)时,Send一个Tab键给它就行了。

Private Sub Text1_KeyPress (KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys “{tab}”
        KeyAscii = 0
    End If
End Sub

5、当光标移到TextBox时自动选定其中的整串文字。

    当对象得到焦点时,从最前面开始选取(SelStart=0),选取的
长度为文本长度(Len(Text1))。

Private Sub Text1_GotFocus()
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1)
End Sub

6、当光标移到TextBox时改变其文字颜色。

    当TextBox得到焦点时(GotFocus)改变文本颜色,失去焦点时(
LostFocus)将还原文本颜色,ForeColor是设置文本的前景色。

'当光标移到TextBox时文字设置为红色
Private Sub Text1_GotFocus()
    Text1.ForeColor = vbRed
End Sub

'当光标移出TextBox时文字设置为黑色
Private Sub Text1_LostFocus()
    Text1.ForeColor = vbBlack
End Sub

    以上代码只要将Text1.ForeColor改为Text1.BackColor即可改变TextBox
的背景色。

 

textbox选择历史记录后无法触发onchange事件

function Changea() { document.getElementById('').value = "dddd"; // document....
  • haibin_hu
  • haibin_hu
  • 2013年12月13日 23:52
  • 1803

C# textBox用法总结 [持续更新]

textBox用法总结: 1 去掉边框 【注:this = textBox】 this.BorderStyle = System.Windows.Forms.BorderStyle.None; 2 设...
  • taoerit
  • taoerit
  • 2015年01月08日 12:57
  • 6168

利用WinForm的textBox实现控制台的Console.WriteLine

重写WriteLine与Write方法,在WinForm中实现类似控制台的Console.WriteLine,不受类库的限制。...
  • sinat_34114070
  • sinat_34114070
  • 2017年11月02日 17:20
  • 200

虚拟机使用技巧

搜索
  • lcygloria
  • lcygloria
  • 2013年08月26日 14:21
  • 437

Firefox 使用技巧15则

很多人都喜欢开源浏览器 Firefox,特别是越来越多优秀的扩展,让它变得更加的强大。但是,Firefox 本身有很多隐藏的功能和技巧,可以让它变得更快,更酷,更有效。让我们来一起看看吧: 更多...
  • mycinderella
  • mycinderella
  • 2007年08月05日 09:16
  • 311

Eclipse使用心得与技巧

Eclipse使用心得与技巧:常用快捷键(熟练使用快捷键可以充分提高编程效率,吐血整理...),护眼背景色,为代码添加统一注释,中英文切换...
  • diyangxia
  • diyangxia
  • 2015年01月13日 15:40
  • 12037

在.net C# 里怎么重写一个TextBox控件

using     System;       using     System.Drawing;       using     System.Windows.Forms;           na...
  • zjfei
  • zjfei
  • 2009年10月12日 18:24
  • 1589

Vmware workstation的几点使用技巧

1、开启efi启动: 关闭虚拟机,编辑虚拟机系统所在目录里的*.VMX,在最后加上firmware="efi",保存。 2、开机延时: Vmware Workstation 可以在启动的时候直接...
  • wliannet
  • wliannet
  • 2017年06月17日 22:07
  • 380

TextBox控件实例

.aspx代码如下:                         输入正确的姓名和密码(123456),解锁控件                     姓名: ...
  • yayun0516
  • yayun0516
  • 2014年12月17日 10:54
  • 1535

Eclipse日常中最实用的技巧,不看后悔哦!

1、给Eclipse添加更方便的提示功能: 首先,默认情况下,Eclipse默认是通过一个.来进行提示的,这样做有些不太方便,如果随便写一个字母就有对应的提示,可以做如下操作: Windows--pe...
  • weiguolong0306
  • weiguolong0306
  • 2015年10月29日 21:42
  • 5047
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:TextBox使用技巧
举报原因:
原因补充:

(最多只允许输入30个字)