VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - VB技巧点滴
发表评论(0)作者:叶古, 平台:VB6.0+Win98, 阅读:9825, 日期:2000-12-03
VB技巧点滴


--------------------------------------------------------------------------------

  1、隐藏文本框中的光标(不是鼠标哟!)
  使用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。(广州 叶古)