Visual BASIC 3.0中文本框处理技巧五则

刘强
1997-01-01

　　在Ｖｉｓｕａｌ　ＢＡＳＩＣ　３．０中，文本框（ＴｅｘｔＢｏｘ）是最常用的控件，熟练运用文本框是开发出高质量应用程序的基础。笔者在从事应用程序开发过程中，总结出处理文本框的几个应用技巧，写出来与ＶＢ爱好者共享。
#2　　一、设置只读文本框。
　　有时需要在窗口显示一段信息，但又不希望用户去改变它，怎样实现文本的只读呢？我们不但可以利用标签框（ｌａｂｅｌ）的只读属性，以标签来代替文本框，实现只读属性，还可以用小程序实现真正的只读文本框。
　　Ｓｕｂ　Ｔｅｘｔ１－ＫｅｙＰｒｅｓｓ（ｋｅｙａｓｃｉｉ　Ａｓ　Ｉｎｔｅｇｅｒ）
　　ｋｅｙａｓｃｉｉ＝０
　　Ｅｎｄ　Ｓｕｂ
　　或者也可以用ｓｅｎｄｋｅｙ方法使文本框失去焦点，如以下程序：
　　Ｓｕｂ　Ｔｅｘｔ１－ＫｅｙＤｏｗｎ（ＫｅｙＣｏｄｅ　Ａｓ　Ｉｎｔｅｇｅｒ，Ｓｈｉｆｔ　Ａｓ　Ｉｎｔｅｇｅｒ）
　　ＳｅｎｄＫｅｙｓ　　＂｛ｔａｂ｝＂
　　Ｅｎｄ　Ｓｕｂ
#2　　二、限定文本框的输入内容和格式。
　　以下程序可以限定在文本框中只能输入数字：
　　Ｓｕｂ　Ｔｅｘｔ１－ＫｅｙＰｒｅｓｓ（ｋｅｙａｓｃｉｉ　Ａｓ　Ｉｎｔｅｇｅｒ）
　　Ｉｆ　ｋｅｙａｓｃｉｉ＜４８　ｏｒ　ｋｅｙａｓｃｉｉ＞５７　Ｔｈｅｎ　　　　　　　　　
　　Ｂｅｅｐ　　　　　　　　　
　　Ｂｅｅｐ　　　　　　　　　
　　ｋｅｙａｓｃｉｉ＝０
　　Ｅｎｄ　Ｉｆ
　　Ｅｎｄ　Ｓｕｂ
　　若想限定文本框的输入格式，可以使用ＶＢ的ＦＯＲＭＡＴ函数，也可以使用专业的屏蔽控件（Ｍａｓｋｅｄ　Ｅｄｉｔ），通过设定屏蔽控件的Ｍａｓｋ属性可以对文本框的输入格式作精确控制。
#2　　三、为ＴＥＸＴＢＯＸ创建快捷键。
　　ＶＢ规定，添加在窗体上的控件均要在其Ｔａｂｉｎｄｅｘ属性中记载其加载顺序，程序运行时焦点按Ｔａｂｉｎｄｅｘ属性规定的顺序在控件间跳转。为了简化操作，可在ＶＢ中为任何具有ｃａｐｔｉｏｎ属性的控件创建快捷键，一般可通过在ｃａｐｔｉｏｎ属性中在想作为快捷键的字母前加＆号实现。而类似文本框这样的控件没有ｃａｐｔｉｏｎ属性，这时可将标签与文本框同时使用，为ｌａｂｅｌ创建快捷键，标签Ｔａｂｉｎｄｅｘ属性设置比文本框小１，又因为ｌａｂｅｌ不能接收按点，焦点会自动跳至文本框。这相当于为文本框创建了快捷键。具体步骤如下：
　　（１）首先绘制标签，再绘制文本框，或随意绘制各种控制，将标签Ｔａｂｉｎｄｅｘ属性设置比文本框小１。
　　（２）在标签的ｃａｐｔｉｏｎ属性中使用“＆”号设定快捷键，这样就相当于为文本框设定了快捷键，当你按下标签框的快捷键时，焦点就会跳至文本框上。
#2　　四、在设计时实现文本框换行。
　　对于文本框，在设计时ｐｒｏｐｅｒｔｉｅｓ窗口不能输入换行符，但可以在程序执行时用代码来换行，即使用ＡＳＣＩＩ字符的３和１０，如下列小程序就可将两行文本放入文本框：
　　Ｓｕｂ　ｆｏｒｍ－ｌｏａｄ（）
　　ＮＬ＝ｃｈｒ（１３）＋ｃｈｒ（１０）
　　ｔｅｘｔ１．ｔｅｘｔ＝＂ｍｙｎａｍｅ　ｉｓ＂＆ＮＬ＆＂ｌｉｕ　ｑｉａｎｇ＂
　　Ｅｎｄ　Ｓｕｂ
#2　　五、创建口令文本框。
　　创建口令文本框可用设置属性的方法，也可以通过调用Ｗｉｎｄｏｗｓ的ＡＰＩ应用函数接口来实现。首先，文本框的属性Ｐａｓｓｗｏｒｄｃｈａｒ和Ｍａｘｌｅｎｇｔｈ可用来设置口令框。其中Ｐａｓｓｗｏｒｄｃｈａｒ指定文本框显示的字符，如指定“＊”，则在文本框内显示“＊”，Ｍａｘｌｅｎｇｔｈ确定文本框中能输入几个字符。超过Ｍａｘｌｅｎｇｔｈ以后，文本框发出警告声，不能接收更多的字符。若使用Ｗｉｎｄｏｗｓ应用函数接口，可用ＧｅｔＷｉｎｄｏｗｓＬｏｎｇ、ＳｅｔＷｉｎｄｏｗｓＬｏｎｇ和ＳｅｎｄＭｅｓｓａｇｅ等接口函数来实现，有兴趣的读者可查阅Ｗｉｎｄｏｗｓ　ＡＰＩ函数或ＶＢ的联机帮助文件，这里就不一一赘述了。　　　　　　　　　　　　　　　　　　　

　　　　　　　　　　

 