摘要：Dim conn As New ADODB.Connection ’创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行 Dim rs As ADODB.Recordset ’创建一个 Recordset 实例，不使用New 是因为，经常需要重复使用Set，因此没必要在这里使用 Dim CnStr As String, Sql As String ’创建两个字符串变量分别存放两个集合的SQL语句代码段 1、装载数据库(不属于Recordset集合) ============= Dim FileNamw$, DbIp$, DbName$, DbUser$, 阅读全文

摘要：1.给窗体添加了背景图片后，但后来又不想要背景图片方法1：选中Picture属性的内容,按del键方法2：Set Me.Picture = Nothing 阅读全文

摘要：（1）每一个ActiveX控件都有两个输出函数：DllRegisterServer和DllUnRegisterServer。顾名思义，通过这两个函数就可以注册和反注册控件了。比如要注册以下控件：C:\WINDOWS\system32\ComCtl32.OCX 首先在Form中加入两个CommandButton，不要改变它们的属性。然后在Form中加入如下代码：Private Declare Function RegComCtl32 Lib "ComCtl32.OCX"Alias "DllRegisterServer" () As LongPrivate 阅读全文

摘要：代码Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--'在窗体中加一个按钮,把下列代码加入窗体中,运行即可PrivateDeclareFunctionSHBrowseForFolderLib"shell32.dll"Alias"SHBrowseForFo... 阅读全文

摘要：1.读取CPU的ID号代码Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--'第一种读取CPU的方法PrivateDeclareFunctionGetComputerNameLib"kernel32"Alias"GetComputerNameA"(ByV... 阅读全文

摘要：在平时软件开发过程中，或多或少总是要使用到一些文本框控件，但是VB6自带的TextBox有时无法满足我们的一些需求，比如使其只能输入数字，禁止右键弹出其自带的菜单或者使用自己的菜单，计算多行文本框的行数，让多行文本框的滚动条总是滚动到最后一行等等，为了方便平时的编程，我将上面提到的这些封装成一个类CTextBoxEx，代码如下：'**********************************... 阅读全文

摘要：本文主题为：VB实现资源文件集成、封装及调用。论坛中有许多朋友提及并关注这一话题，下面我将结合实例与大家共同分享自己有关这方面的一些心得。权当抛砖引玉，还是那句话，如果此文对您有所帮助，那将是本人莫大之快事！本文讲解要点：1、资源文件集成与封装2、资源文件释放及调用3、封装技巧应用系统及平台要求：1、操作系统为：XP22、ACCESS为2003 版3、VB为 6.0附注及说明：1、本文围绕具体实例... 阅读全文

摘要：转自：http://www.waywellstudio.cn/article.asp?id=25加载保存在资源文件里的字符串，以达到达到实现多种语言的目的。⑴启动 VB6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”⑵在 VB 资源编辑器窗口中，点击“编辑字符串表... 阅读全文

摘要：转自：http://blog.csdn.net/zmhdgut/archive/2008/07/21/2684922.aspx不少网友问及如何在VB中建立和使用文本资源文件。我想这也是很多VB初学者迫切想掌握的技巧。为此，将回答网友的信件整理了一下，形成此文，希望对大家有些帮助。 一.文本资源文件的建立第一步：启动资源编辑器如果VB资源编辑器没有被加载，请单击"外接程序"，选取"外接管理器"启动外... 阅读全文

摘要：转自：http://zhidao.baidu.com/question/28498709.html?fr=qrlQ:文本框中输入一篇文章，如"i love you and you love me"，用输入对话框输入一个字母或一个汉字，统计它在文本框中出现的次数，并用消息框输出。 A:要准确地统计字数，可逐一将字符串转换为ASCII码，依据其值判断是为中文字符还是英文字符。0—̵... 阅读全文

摘要：转自：http://www.zxbc.cn/html/20081215/68962.htmlPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As Any, source As Any, ByVal bytes As Long)Const DEFAULT_HASHSIZE = 1024Const DE... 阅读全文

摘要：转自：（1）启动API浏览器，通过该浏览器复制“SetWindowPos”函数的声明语句。（2）启动Visual Basic，新建一个标准EXE工程。（3）使用“工程”|“添加模块”菜单项，添加一个新的模块文件。（4）打开模块的代码窗口，将“SetWindowPos”函数的声明语句粘贴进去。（5）打开F... 阅读全文

摘要：本文转自：http://www.daniweb.com/code/snippet34.html '!! PLACE THE FOLLOWING ON A FRMOption Explicit '!! THE CLASS IS USED IN THE FOLLOWING WAY'!! Add the following CMDs to the FRM: cmdMatchWidth, cmdMatch... 阅读全文

摘要：1.在VB中添加工程组（Group）菜单：文件->添加工程2.使用API函数3. DrawText函数详解一、 说明 API 函数DrawText可以在规定设备场景的矩形区域内上描绘字体,这为我们制作绘图程序、打印程序提供了方便。函数圆形： int DrawText( HDC hDC, //设备场景 LPCTSTR lpString, // 要绘制的字符串 int nCo... 阅读全文