'本文首发于水木清华BBS MicrosoftTRD版，转载请保留有关信息 '作者chen3feng(RoachCock@smth.org) 'email: chen3feng@163.com, chen3fengx@hotmail.com ''贼强的东东，今天一天就为了找这个了呢，还好遇见了这个，试用了下，可以的 '2008-12-09 参考；Matthew Curland的VB函数
在网页看到过纯理论的文章，在摸索了N久之后，终于用VB6实现。 1、找一个olelib.tlb的文件，网上有下。 2、新建VB工程，加入webbrowser控件，引用上面的文件。 3、FORM1上加上WebBrowser1。切换至代码。 4、窗体代码（PS：代码我一律不解释。） Option Explicit Implements IDocHostUIHandler Dim mshow As
C/S模式一般都是用winsock来相互通信，实现双方互动。 用ASP网页来连接（不能称之为通信），只能C对S发送信息或请求一些信息， S是不能主动来连接C，发信息给C。 一、C端 既然是要访问ASP页，这里有二种方式。 1、API写的访问模块 Option Explicit ''<API 宣告,API 常数> Public Declare Function InternetOpen Lib
Private Sub Command1_Click() Dim r2, g2, b2 As Integer Dim r1, g1, b1 As Integer Dim c1 As Long Dim c2 As Long Dim x0 As Integer Dim y0 As Integer Screen.MousePointer = 1
Private Sub Command1_Click() '序列化 Dim var1 As Byte Dim var2 As Boolean Dim var3 As Integer Dim var4 As Long Dim var5 As Single Dim var6 As Double Dim var7 As String var1 = CByte(Text1.Text) var2 = CBo
只要称得上是一个系统的软件，决对是离不开数据库的。 数据库有很多种，尤其是不同的客户，可能需要用不同的数据库， 这就得需要我们在尽量少改动代码的情况下， 实现程序对不同数据库的操作。 对于数据库的操作，大家都知道无非是连接数据库，运行SQL语句，得到结果。 那么有没有一种通用的方法，使得我们不用或很少的修改代码来实现操作不同的数据库呢？ 回答是有，但也需要遵循一些规则。 我们知道，不同的数
一直以来，大多人喜欢用Stream保存图片到数据库。 其实，直接用insert就可以了。 Dim sTemp As String sTemp = "insert into mypic(pic) values(?) " dim PicB() as byte dim FileID as long fileid=freefile open "c:/test.bmp" for binary ac
一、 前言 数据类型转换在编程中经常用到，VB6提供了一整套类型转换的函数。但是，在进行类型转换时，有时候仅仅依靠VB提供的函数是不能达到自己的目的的。因此，需要考虑用其他的方法来完成数据类型转换。本文仅谈VB6中字节数组和字符串的相互转换过程中应注意的问题及其解决办法。 在Visual Basic中使用Byte数组主要是为了32位API函数的参数传递和函数的返回。在32位的Visual
现象: LE中的"简易收集板"拖拽文字的时候出现了严重问题,拖到地址栏的中文严重残缺,例如,拖三个字,只显示了两个,内部拖拽也出现问题,位置不对,并且还出现乱码. 分析: 印象中,当初做这个功能的时候并没有出现这样的问题,怎么突然就出现这样的bug呢?难道是系统问题? 继续测试,发现在ide中有这个问题,但是编译成exe后竟然就没有了.最后发现竟然是 .manifest 文件的问题. 在win
'**************************************************************************** '模块名称：mListBoxComboBoxSearch.bas '发布日期：2009/03/06 '描 述：VB6在ListBox或Combox中搜索字符串项的模块(支持模糊与精确查找) '博 客：http://blog.csdn
一、缘由 这个问题来自于我前段时间主持的一个山东省一级OFFICE模拟考试项目（VB6+OFFICE 2003）。 二、问题描述 （1）我有一批VB过程，如下所示： Public Sub Word01(file1 As String) Public Sub Word02(file1 As String) Public Sub Word03(file1 As String) ...... 上述过程的
VB6 与 .NET 联合 前言：以前读大一的时候还是蛮喜欢VB6的， 学了C#以后就总是想着如何让VB6和C#的组件可以互相调用，可惜当时没有看到这篇好文章。现在VB6基本上不用了（在公司偶尔还写一下），但还是把这篇文章贴出来，已被以后可能用到。 因为公司之前有个技术问题问我——“如何让.NET的组件在Linux上跑？”。 我真想问：可以吗？至少现在不可以。如果有谁知道可以的话，请发个过来。 后
一段基于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 Long
在修改报表打印的纸张大小时可选方案！ Private Sub DataReport_Initialize() With Me .Orientation = rptOrientPortrait '报表纵向打印 .ReportWidth = 14 * 567 '宽度 567 = 1cm 这儿还是报错的话可以设置成13.9 * 567 .
'函数名: SendMail'作 用：用Jmail组件发送邮件'参 数：' MailtoAddress -----收信人信箱' Subject -----主题' MailBody -----信件内容' MailFrom -----发信人信箱' MailServerUser -----登陆邮箱用户名' MailServerPass -----登陆邮箱密码' MailServer -----发件SM
如下代码: Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1 Private Sub Form_Load() Set Web_V1 = WebBrowser1.Object WebBrowser1.Navigate App.Path & "/login.htm" ' WebBrowser1.Navi
新建 VB6 项目工程 引用 Microsoft XML , 添加CommandButton命名为cmdRequest ， 添加 TextBox 命名为 txtResponseHeaders， 添加 TextBox 命名为 txtResponse '---------------------------------------------------------- Option Explicit
版权声明：可以任意转载，转载时请务必以超链接形式标明如下文章原始出处和作者信息及本声明 作者：xixi 出处：http://blog.csdn.net/slowgrace/archive/2009/04/26/4124347.aspx 本文主要来自此帖的讨论，感谢unsigned、Soyokaze、Chen8013、Tiger_Zhao、m60a1、myjian、PctGL等朋友的指点，本文很多文
http://topic.csdn.net/u/20090420/21/4823cb82-2139-4d55-ac3c-749ef8460a80.html?seed=1411474197 以下来自http://topic.csdn.net/t/20061027/11/5113265.html#52楼 通过堆栈调用解析多线程 首先说明一下，堆是进
版权声明：可以任意转载，转载时请务必以超链接形式标明如下文章原始出处和作者信息及本声明 作者：xixi 出处：http://blog.csdn.net/slowgrace/archive/2009/04/27/4130448.aspx 本文来自这个帖子的讨论，感谢Tiger_Zhao、Soyokaze、unsigned、Chen8013等的指点。 API函数中常常需要用到指针（内存地址）参数，这通
