![](https://img-blog.csdnimg.cn/20201014180756754.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VB6
幻影时空
这个作者很懒,什么都没留下…
展开
-
vb底层开发之Hook(钩子)
原帖地址:http://hi.baidu.com/starwork/blog/item/6d989ed3b2cb2c35960a1638.htmlhook是WINDOWS提供的一种消息处理机制,它使得程序员可以使用子过程来监视系统消息,并在消息到达目标过程前得到处理。 下面将介绍WINNDOWS HOOKS并且说明如何在WINDOWS 程序中使用它。 关于HOOKS 使用HOOK 将会降低转载 2009-04-16 18:30:00 · 1154 阅读 · 0 评论 -
VB中DoEvents的注意事项
对与再大循环里 加入 DoEvents却是可以使应用程序响应其他程序,但是 DoEvents 也会很大程度上影响循环的速度,所以一般情况我这样用 If GetInputState Then DoEvents虽然多了个判断语句,但速度上确快了很多 比较以下代码代码就知道了速度的差别Private Declare Function GetInputState Lib "user32" ()原创 2009-04-16 18:34:00 · 973 阅读 · 0 评论 -
VB6 Webbrowser控件中新窗体对应的拦截
如下代码: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原创 2009-04-16 18:54:00 · 915 阅读 · 0 评论 -
VB6 DataReport打印自定义纸张
在修改报表打印的纸张大小时可选方案!Private Sub DataReport_Initialize() With Me .Orientation = rptOrientPortrait 报表纵向打印 .ReportWidth = 14 * 567 宽度 567 = 1cm 这儿还是报错的话可以设置成13.9 * 567 .L原创 2009-04-16 18:23:00 · 1676 阅读 · 0 评论 -
VB6 采用SOAP协议进行提交/返回数据
新建 VB6 项目工程 引用 Microsoft XML , 添加CommandButton命名为cmdRequest ,添加 TextBox 命名为 txtResponseHeaders,添加 TextBox 命名为 txtResponse---------------------------------------------------------- Option ExplicitPriv转载 2009-04-16 18:56:00 · 1111 阅读 · 0 评论 -
无边框窗体改变大小并移动位置
共享模块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转载 2009-04-16 19:02:00 · 654 阅读 · 0 评论 -
VB6 创建RAS "宽带连接" 代码
一段基于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转载 2009-04-16 18:14:00 · 1089 阅读 · 1 评论