VB6.0 中文技巧 在 Visual Basic 中，文本框（TextBox）是最常用的控件，熟练运用文本框 是开发出高质量的应用程序的基础。笔者在从事应用程序开发中，摸索出有关文 本框的应用技巧，写出来与 VB 爱好者共享。 1、设置只读文本框。 有些时候在窗口显示一段信息，但又不希望用户去改变它，怎样实现文本的 只读呢？首先，我们可以利用标签框（ label ）的只读属性，以标签来代替文本 框以实现只读属性，但也可以用小程序实现真正的文本框的只读。 Sub Text1_KeyPress (keyascii As Integer) keyascii = 0 End Sub 或者也可以用 sendkey 方法使文本框失去焦点，如以下程序： Sub Text1_KeyDown (KeyCode As Integer, Shift As Integer) SendKeys "{tab}" End Sub 2、限定文本框的输入内容和格式。 以下程序可以实现限定文本框只能输入数字： Sub Text1_KeyPress (keyascii As Integer) If keyascii <48 Or keyascii> 57 Then Beep Beep johny@nease.net keyascii = 0 End If End Sub 若想限定文本框输入格式，可以使用 VB 的 FORMAT 函数，也可以使用专业版的 屏蔽控件(Masked Edit)，通过设定屏蔽控件的 Mask 属性可以对文本框的输入格式 作精确控制。 3、为TextBox 创建快捷键。 VB 规定，添加在窗体上的控件均在其Tabindex 属性中记载其加载顺序，程序 运行时焦点按Tabindex 属性规定的顺序在控件间跳转。而为了简化操作，可 VB 中 为任何具有 caption 的属性的控制创建快捷键，这通过 caption 属性中在想作为 快捷键的字母前加&号实现。但有一个问题值得注意，而类似文本框这样的控件无 caption 这样的属性，这时可将标签与文本框同时使用。为 lable 创建快捷键， 标签 Tabindex 属性设置比文本框小 1，又因为label 不能接收按点，焦点会自动 跳至文本框。这相当于为文本框创建了快捷键。具体步骤如下： （1） 首先绘制标签，再绘制文本框。或随意绘制各种控制，将标签 Tabindex 属性设置比文本框小 1 （2） 在标签的 caption 属性中使用“&”号设定快捷键 这样就相当于为文本框设定了快捷键，当你按下标签框的快捷键时，焦点就会跳 至文本框上。 4、在设计时实现文本框换行。 对于文本框，在设计时properties 窗口不能输入换行符，但可以再程序执行时 用代码来换行，即使用 ASCII 字符的13 和10，如下列小程序就可将两行...
