lbuskeep的专栏

一、概述在 VB 编程中有许多调用窗口和对话框的操作，但是 VB 自已内置的却非常的少，这里所说的"不常用"也就是说通过 API 函数来实现各类调用窗口的操作。二、通过 API 函数调用窗口的实用技巧如下：（1）打开文件的属性窗口图1，是一个文件的属性窗口，但

删除函数：Public Sub RemoveDatabase_Password(ByVal strDBWithPassword As String, ByVal strPassword As String)                        On Error GoTo ErrorHandlerDim objEngine As New JRO.JetEngineDim

（一）打开和关闭文件     1、顺序文件     打开顺序文件，我们可以使用Open语句。它的格式如下：Open pathname For [Input |Output |Append] As [#]filenumber [Len = buffersize]      说明：     （1）参数pathname 表示要打开的文件名，文件名可以包含有驱动器和目录

Private Sub WebBrowser1_DocumentComplete(ByVal pDispAs Object, URL As Variant)        If Not (pDisp Is WebBrowser1.Object) Then Exit Sub        If URL = "http://www.xyserver.com"Then

有些 VB 程序在调用  webservice  的时候出现“WSDLReader:Loading of the WSDL file failed HRESULT=0×80040154: 没有注册类别”的错误。但是奇怪的是，之前开发的时候却没有发生这种错误。一安装到别的机器就出现了。这是因为安装机器上没有安装 MSXML4.0 SP2 这个的原因。只要下载安装后，一切恢复正常。同样开发机上如果

语法:Dir[(pathname[, attributes])]Dir 函数的语法具有以下几个部分：以 vbDirectory 属性来调用 Dir 不能连续地返回子目录。!!!以下是VB帮助自带查目录的例子，明确的指出目录必须要用GetAttr！！！' 显示 C:\ 目录下的名称。MyPath = "c:\" ' 指定路径。MyName = Dir(MyPath, vb

关于如何根据IE窗口句柄hWnd获得IWebBrowser接口，网络上代码很多，大多是使用了MSAA里的一个函数GetObjectFromLResult进行获取，一方面，许多朋友尤其是VB爱好者对MSAA技术并不了解，另一方面，用此方法非常繁琐。我的偶象之一超级绿豆甚至在2005年的时侯使用汇编来获取IWebBrowser，虽然思路和方法都很好，但不容易理解和掌握。其实使用Sehll对象，可以非常

Option ExplicitPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As Long)

窗体部份Private Type SHFILEOPSTRUCT         hwnd  As Long         wFunc  As Long         pFrom  As String         pTo  As String         fFlags

1、Private Sub Form_Load() WebBrowser1.navigate "http://blog.youkuaiyun.com/lbuskeep"Do DoEvents If Not WebBrowser1.Busy And WebBrowser1.LocationURL http://blog.youkuaiyun.com/lbuskeep" ThenMsgBox

以下这句话，加在任何控件的OnClick事件里面就可以实现点击控件超链接网页Shell  "C:/Program Files/Internet Explorer/IEXPLORE.EXE www.baidu.com", 1

这里介绍新的datagrid.datasoure所对应的是VB6.0 datatable或dataset，而并不是原来的Recordset。所以，在使用中，要把Recordset转换成VB6.0 datatable或dataset。 VB6.0还是比较常用的，于是我研究了一下VB6.0 datatable，在这里拿出来和大家分享一下，希望对大家有用。 在VB6.0在，ADO是大家在

界面上form1 的名字改成mainfrm建立3个文本控件名字分别是txtChooseOne、txtChooseTwo、txtDestination建立5个按钮控件名字分别是cmdChooseOne、cmdChooseTwo、cmdDestination、cmdBind、cmdCancel工程引用部件Microsoft common dialog control 6.0，然后界

VERSION 5.00Begin VB.Form frmMain    Caption         =   "Form1"   ClientHeight    =   3090   ClientLeft      =   60   ClientTop       =   450   ClientWidth     =   4680   LinkTopic       =   "Form1" 

首先用建立一个标准Exe程序把窗体名称，设定为frmMain在窗体上建立一组文本框数组，名称为txtMsgtxtMsg(0) -- 显示鼠标左键按下的次数txtMsg(1) -- 显示鼠标中键按下的次数txtMsg(2) -- 显示鼠标右键按下的次数txtMsg(3) -- 显示鼠标按下的总次数 首先建立一个Module,并输入以下代码 

<br />例子的来源是MSDN,很早在MSDN上面看到的,后来找不到了,这次是从MSDN中VB例程cofee例程上摘录的,原理相同,都是用active,自定义事件.<br /><br />1创建一个Active Exe工程,我叫pro_comm_pro吧,<br />2 添加一个标注模块 , Module1.bas:<br />  Public gCLS1 As cls1 '全局变量,保存对分发消息的类对象cls1的引用,以前没有定义为Public,不可以运行<br />3 添加类cls1.Cls<br

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As

如何将 exe程序和vb编译的exe文件    封装为一个exe文件把它当成资源文件,包到主程序里以下代码是我封装控件和数据库的代码,你看看数据库是怎样封的,没时间简化      Option    Explicit          Sub    Main()              Const    DBSIZE    =    479232    欲生成的数据库大小是47

Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRe

首先在工程——引用中引用 Microsoft HTML Object LibraryOption ExplicitPrivate WithEvents m_MyVar As HTMLInputElementPrivate Sub Form_Load()    WebBrowser1.Navigate2 "http://www.xyserver.com"End Sub

1. 使用整数（Integer）和长整数（Long）  提高代码运行速度最简单的方法莫过于使用正确的数据类型了。也许你不相信，但是正确地选择数据类型可以大幅度提升代码的性能。在大多数情况下，程序员可以将Single，Double和Currency类型的变量替换为Integer或Long类型的变量，因为VB处理Integer和Long的能力远远高于处理其它几种数据类型。下面是排序：Long

Option ExplicitPrivate RunFile$Private Const NORMAL_PRIORITY_CLASS = &H20    如果进程位于前台，则基本值是9；如果在后台，则优先值为7Private Const INFINITE = &HFFFFFFFFPrivate Const WAIT_TIMEOUT = &H102&           对象保持未发

Option ExplicitDim DemoFile$Private Const NORMAL_PRIORITY_CLASS = &H20    '如果进程位于前台，则基本值是9；如果在后台，则优先值为7Private Const INFINITE = &HFFFFFFFFPrivate Const WAIT_TIMEOUT = &H102& '对象保持未发出信号的状态，但等

用webbrowser获取cookies信息。第一种：Private Sub Command1_Click()MsgBox WebBrowser1.Document.cookie '用webbrowser的document对象获取End Sub第二种：Private Sub Command2_Click()WebBrowser1.Navigate "javascri

处理文件用到的常量有：ForReading = 1 ，ForWriting=2,ForAppending=8,用于的操作分别是读/写和追加，都要在使用之前用VBS Const来声明。常用于处理文本文件的方法有：Read(var)—读var个字符，ReadLine—读一行，ReadAll—读整个文件内容，SkipLine—跳过本行指向下一行，Write(var)—把字符串var写入文件，WriteL

用途：将十进制转化为二进制输入：Dec(十进制数)输入数据类型：Long输出：DEC_to_BIN(二进制数)输出数据类型：String输入的最大数为2147483647,输出最大数为1111111111111111111111111111111(31个1)Public DEC_to_BIN(Dec As Long) As String    DEC_to_BIN =

'*****下面先声明一些常量******************************************Public Const HKEY_CLASSES_ROOT = &H80000000Public Const HKEY_CURRENT_CONFIG = &H80000005Public Const HKEY_CURRENT_USER = &H80000001Publ

读取text文件的最快方法是使用Input$函数，就象下面的过程：Function FileText(ByVal filename As String) As StringDim handle As Integer' 判断文件存在性If Len(Dir$(filename)) = 0 Then Err.Raise 53 '文件没有找到End If' 以binary模式打开文件

Option Explicit Private Type FILETIME    dwLowDateTime As Long    dwHighDateTime As LongEnd Type Private Const WAIT_ABANDONED& = &H80&Private Const WAIT_ABANDONED_0& = &H80&Private C

代码1：Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Dim frm As Form1Set frm = New Form1frm.Visible = TrueSet ppDisp = frm.WebBrowser1.objectEnd Sub 代码2：Private S

Public Function ReadRowConnent(FileName As String, iRow As Integer)    'FileName = App.Path & "\Config.ini"    If Len(Dir$(FileName)) = 0 Then        err.Raise 53 '文件没有找到        '这里处理没找到文件事件

此代码在源码天空等多个源码站点上可以下载本人仅做了简单的修改总结为4个函数进行调用1.EncryptStr/加密字符串2.DecryptStr/解密字符串3.EncryptFile/加密文件4.DecryptFile/解密文件'*************************************************************************'

Option ExplicitPublic OSNameAsString'操作系统名称（简称），方便程序控制时根据操作系统取值Public Type OSVERSIONINFO    dwOSVersionInfoSize AsLong    dwMajorVersion AsLong    dwMinorVersion AsLong    dwBuildNum

方法一：Private   Sub   Form_Click() <br />        Dim   高数量   As   Long,   宽数量   As   Long <br />        Dim   X   As   Long,   Y   As   Long <br />        Picture2.BorderStyle   =   0 <br />        Picture2.Picture   =   LoadPicture( "C:/1.BMP ") <br />     

<br />是要获得鼠标所在的标记？<br />对象．对象型方法 （"elementFromPoint"，x，y）<br />这个方法可以获得鼠标所在位置的标记对象。<br />----------<br />还是要在鼠标处插入标记？<br />对象．对象型方法 （"createElement"，eTag）<br />创建之后在把返回的对象指定X，Y就行了<br />这样只能算是插入标记，不能算是HTML代码<br />----------<br />最笨的，<br />document.body.inne

<br />举个例子，比如下面的网址http://www.symental.com/other/w.htm，我想给左边的百度的文本框赋值，可是怎么也赋不了，提示拒绝访问，该如何操作？<br /><br />上面网页的页面代码为：<br />HTML code <FRAMESET border=0 frameSpacing=0 COLS="50%,*" frameBorder=0><FRAME name=topFrame src="http://www.baidu.com"><FRAME name=topFr

<br />VERSION 5.00<br />Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"<br />Begin VB.Form frmMain <br />   BorderStyle     =   1  ´Fixed Single<br />   Caption         =   "文件分割工具"<br />   ClientHeight    =   2880<br />   ClientLef

Option Explicit'清理指定URL地址的缓存Private Declare Function GetUrlCacheEntryInfo Lib "wininet.dll" Alias "GetUrlCacheEntryInfoA" (ByVal sUrlName As String, lpCacheEntryInfo As Any, lpdwCacheEntryInfoBufferSize As Long) As LongPrivate Declare Function DeleteUrlCac

如果只是查看大小、修改时间的话，可以直接使用VB内建函数：返回文件修改时间：FileDateTime(文件路径)返回文件字节大小：FileLen(文件路径)示例：Private Sub Form_Load()Dim sOut As StringConst sFile As String = "C:/WINDOWS/notepad.exe" sOut = "文件路径: " & sFile & vbCrLf & _ "修改日期: " & F

<br />Option Explicit<br />Private WithEvents NewPicture As PictureBox<br />'通过使用WithEvents关键字声明一个对象变量为新的命令按钮<br />Private Sub Command1_Click() '这个按钮用来添加新控件<br />If NewPicture Is Nothing Then<br />    Set NewPicture = Controls.Add("VB.PictureBox", "picture