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