使用Windows API中的HideCaret，一般在控件的GotFocus事件中调用：
Private Declare Function HideCaret Lib "User32.dll" (ByVal hwnd As Long) As Boolean
Private Sub Text1_GotFocus()
HideCaret Text1.hwnd
End Sub
2、为文本框创建快捷键
为了简化聚焦操作，在VB中可为任何有caption属性的控件创建快捷键，只需把caption属性设置为＆加上想作为快捷键的字母。但这就出现一个问题，类似文本框这样的控件没有caption属性，怎么办？这时可将标签与文本框同时使用。在lable的caption属性中设置快捷键，label的Tabindex属性设置比文本框小1，因为label不能获得焦点，焦点会自动跳至文本框。这相当于为文本框创建了快捷键。具体步骤如下：
(1)首先创建标签，再创建文本框(或者其他一些没有caption属性但有焦点的控件)。将标签Tabindex属性设置比文本框小1；
(2)在标签的caption属性中使用“＆”号设定快捷键(比如把caption属性设置为：＆F)；
(3)美观起见，把标签框隐藏起来。
3、使RichTextBox不会自动换行
以前我的程序中使用richtextbox时，为了让它不自动换行，设置属性MultiLine=True,ScrollBars=3,DisableNoScroll=True。但还是没反应！！最后发现漏了个属性：
RightMargin=10000
4、使关闭按钮无效
在VB中，禁止最大化和最小化按钮易如反掌，但却没有一个属性可以禁止关闭按钮(不知道是microsoft忘了呢，还是专门让大家为难)。
lStyle=Get Window Long(hWnd,GWL－STYLE)
lStyle=lStyle Or CS_NOCLOSE
SetWindowLong(hWnd,GWL_STYLE,lStyle )
注意要先声明GetWindowLong、SetWindowLong、GWL_STYLE、CS－NOCLOSE。
上一篇： “超级链接”在VB6下的实现方法
下一篇： VB超频快餐，让我一次用个够！（一）
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
