VisionSpace的专栏

原帖地址：http://hi.baidu.com/starwork/blog/item/6d989ed3b2cb2c35960a1638.htmlhook是WINDOWS提供的一种消息处理机制，它使得程序员可以使用子过程来监视系统消息，并在消息到达目标过程前得到处理。 下面将介绍WINNDOWS HOOKS并且说明如何在WINDOWS 程序中使用它。 关于HOOKS 使用HOOK 将会降低

对与再大循环里 加入   DoEvents却是可以使应用程序响应其他程序，但是 DoEvents 也会很大程度上影响循环的速度，所以一般情况我这样用 If GetInputState Then DoEvents虽然多了个判断语句，但速度上确快了很多 比较以下代码代码就知道了速度的差别Private Declare Function GetInputState Lib "user32" ()

 如下代码:Dim WithEvents Web_V1       As SHDocVwCtl.WebBrowser_V1        Private Sub Form_Load()Set Web_V1 = WebBrowser1.Object    WebBrowser1.Navigate App.Path & "/login.htm"      WebBrowser1.Naviga

在修改报表打印的纸张大小时可选方案！Private Sub DataReport_Initialize()    With Me        .Orientation = rptOrientPortrait　报表纵向打印        .ReportWidth = 14 * 567     宽度　567 = 1cm　　这儿还是报错的话可以设置成13.9 * 567        .L

新建 VB6 项目工程 引用 Microsoft XML , 添加CommandButton命名为cmdRequest ，添加 TextBox 命名为 txtResponseHeaders，添加 TextBox 命名为 txtResponse---------------------------------------------------------- Option ExplicitPriv

 共享模块Private Declare Function ReleaseCapture Lib "user32" () As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Lon

一段基于RAS 拨号 创建拨号连接的代码[VB6]创建"宽带连接"源码Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Type GUID    Data1 As Lon