李晓亮的博客

摘要： 本文转自：http://www.hbjjrb.com/Jishu/vb/200704/9980.html 一年前，VB中在编制OCX控件时的一点心得，发出来一起共享。 控件的属性在运行与设计模式切换时，属性值为丢失，可以要用WriteProperties来保存属性值，再用ReadProperties读取，具体情况如下： 1、在设计模式往运行模式切换时，先用WriteProperties... 阅读全文

摘要： 本文转自：http://www.hbjjrb.com/Jishu/vb/200704/9849.html 注意，单引号（'）后的为英文注释 Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private Declare Function GetDC Li... 阅读全文

摘要： 方法1： 以下程序放在一个公共模块中， 在窗体中的form_load事件中　写　HookWheel　me.hwnd 在窗体中的form_unload事件中　写　UnHookWheel　me.hwnd 在表格的GotFocus事件中　set CtlWheel=MSFlexGrid1 '( 表格名称，根据具体情况，修改这个名称) 在表格的LostFocus事件中　set ... 阅读全文

摘要： 方法一： Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Text1.Enabled = ... 阅读全文

摘要： 本文转自：http://hi.baidu.com/ych0518/blog/item/b3b06559c429c5282834f0c5.html Dim pd As Boolean Private Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii 57) And KeyAscii 46 And KeyAscii 8 Then KeyAs... 阅读全文

摘要： 方法1：在文本框获得焦点的时候清空剪贴板 即在文本得到焦点clipboard.Clear 方法2：子类化拦截消息 拦截代码1 复制粘贴用的是WM_COPY, WM_PASTE两个消息，可以直接子类化拦截 新建一工程,在默认窗体上放一个文本框,名称不改,Text1: Option Explicit Private Sub Form_Load() PrevWn... 阅读全文