技巧115 通过链接显示VBE代码窗口
VB VPI全攻略
需要注意的是，选用Alias的时候，应注意别名的大小写；如果不选用Alias 时的时候，函数名必须注意大小写，而且不能改动。当然，在很多情况下，由于函数声明是直接从API
文本游览器中拷贝过来的，所以这种错误的发生机会是很少的，但您有必要知道这一点。
最后提醒你一句，API声明(包括结构、常数)必须放在窗体或模块的"通用(General Declarations)段。
为了强制执行严格的类型检查，并避免上面提到的问题，一个办法是在函数里使用上面提到到Alias技术。如对API函数 GetDIBits 可进行另外一种声明方法。如下∶
GetDIBits函数的原型∶
Public Declare Function GetDIBits Lib "gdi32" Alias "GetDIBits" (ByVal aHDC As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long
Declare Function SetFocus Lib "user32" "SetFocus" (ByVal hwnd As Long) As Long
Declare ABCD SetFocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
通过本课程前面所学到的知识，我们已经可以得知原型 GetDIBits函数也好，改型 GetDIBitsLong函数也好，实际将调用的都是Alias所指定的 GetDIBits原函数。但你应当看到，两者的区别在于，我们在改型的函数中强制指定lpBits参数为Long形。这样就会使得函数调用中发生的错误 机率减少到了最小。这种方法叫做"安全类型"声明。
VB关于webbrowser相关操作大全
VB关于webbrowser相关操作大全VB关于webbrowser相关操作大全1、防止新窗口里头打开网页代码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：有这段代码，有许多网页会出错，经常提示脚本错误，可以用silent属性为True来屏蔽，不过也有些不足！！！Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Cancel = TrueWebBrowser1.Navigate2Webbrowser1_DownloadComplete()Set M_Dom = Webbrowser1.DocumentEnd Sub2、如何获得网页的内容先给个例子：innerHTML:设置或获取位于对象起始和结束标签内的HTML测试一下：<div id="d" style="background-color:#ff9966">这是一个层</div><input type="button" value="获取innerHTML" onclick="getinnerHTML()"><input type="button" value="设置innerHTML" onclick="setinnerHTML()"><script language="javascript">function getinnerHTML(){alert(document.getElementById("d").innerHT ML)}function setinnerHTML(){document.getElementById("d").innerHTML=" <div id='d' style='background-color:#449966'>这是一个层,嘿嘿</div>"}</script>3、多框架框架页面访问'下面两句可以访问到多框架内容'.Document.ParentWindow.Frames.Length '.Document.ParentWindow.Frames(1).Documen t.all.tags("a")'等待多框架网页全部加载完毕，否则出错While .Busy Or .ReadyState <> 4 Or .Document.ParentWindow.Frames.Length = 0DoEventsWend4、获得浏览器信息Private Sub Command1_Click()WebBrowser1.Navigate""End SubPrivate Sub Command2_Click()Dim oWindowDim oNavSet oWindow = WebBrowser1.Document.parentWindowSet oNav = oWindow.navigatorDebug.Print erAgentSet oWindow = NothingSet oNav = NothingEnd Sub5、弹出Webbrowser消息窗口Dim oWindowSet oWindow = WebBrowser1.Document.parentWindow oWindow.confirm "abcd"VB调用webbrowser技巧集26、向Webbrowser中写入HTML内容的几种方法向Webbrowser中写入HTML内容的几种方法首先在Form_Load中加入WebBrowser1.Navigate "about:blank" 确保Webbrowser1可用方法1：Dim s As StringDim stream As IStreams = ""s = s + ""s = s + ""s = s + "hello world"s = s + ""s = s + "WebBrowser1.Document.Write s方法2：Dim oSet o = WebBrowser1.Document.selection.createrange Debug.Print oIf (Not o Is Nothing) Theno.pasteHTML "哈哈"Set o = NothingEnd If方法3：'插入文本框Dim oSet o = WebBrowser1.Document.selection.createrangeo.execCommand "InsertTextArea", False, "xxx"7、控制页面滚动WebBrowser1.Document.parentwindow.scrollby 0, 308、判断页面是否可以前进后退Private Sub Command1_Click()WebBrowser1.GoForwardEnd SubPrivate Sub Command2_Click()WebBrowser1.GoBackEnd SubPrivate Sub Form_Load()WebBrowser1.Navigate""End SubPrivate Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean) If (Command = CSC_NA VIGATEBACK) Then Command2.Enabled = EnableEnd IfIf (Command = CSC_NA VIGATEFORWARD) ThenCommand1.Enabled = EnableEnd IfEnd Sub9、如何获得网页中被选中部分的HTMLPrivate Sub Command1_Click()Dim objSelectionDim objTxtRangeSet objSelection = WebBrowser1.Document.selectionIf Not (objSelection Is Nothing) ThenSet objTxtRange = objSelection.createRangeIf Not (objTxtRange Is Nothing) Then Debug.Print objTxtRange.htmlTextSet objTxtRange = NothingEnd IfSet objSelection = NothingEnd IfEnd Sub10、Navigate的参数调用请问：在WebBrwoser控件里提供的Navigate 或者Navigate2方法中提供了传递数据的参数，调用方式为：WebBrowser1.Navigate2(URL,[Flags],[TargetFrameName],[PostData],[Headers])其中PostData参数就是一个提交参数字符串，例如"name=aaa&password=123"，但问题是为什么这个方法并不是有效的，服务器端不能取得数据？如果这个方法是有效的话就不需要用一段html 代码模拟这种调用了。
vb中5种打开文件夹浏览框的方法总结
vb中5种打开文件夹浏览框的方法总结：文件夹打开方法浏览v b vb打开文件夹浏览框vb记录文件夹路径vb文件夹列表框篇一：VB打开文件夹浏览框的方法总结vb中5种打开文件夹浏览框的方法总结文章录入：浣花溪责任编辑：snow 1038【字体：小大】by daokers众所周知，在vb中如果是打开某一个文件的话，非常简单，使用CommonDialog组件即可轻松完成，但是他只能选择文件，之后或许选取的文件路径，而如果想要浏览文件夹，就没这么方便了。
这里介绍3个办法来实现文件夹浏览。
第一个非常简单，利用Shell对象程序代码'引用Microsoft Shell Controls And AutomationDim ShellA As New ShellPrivate Sub Command1_Click() '建立一个按钮对象Dim Shellb As FolderSet Shellb = ShellA.BrowseForFolder(0, 选择文件夹, 0)ShellA.Open bEnd Sub记得一定要引用Microsoft Shell Controls And Automation第二种方法，我们同样利用shell对象，但是加几个函数程序代码'引用Microsoft Shell Controls And AutomationPrivate shlShell As Shell32.ShellPrivate shlFolder As Shell32.FolderPrivate Const BIF_RETURNONLYFSDIRS = &H1Private Sub Command1_Click() 'If shlShell Is Nothing ThenSet shlShell = New Shell32.ShellEnd IfSet shlFolder = shlShell.BrowseForFolder(Me.hWnd, 请选择文件夹,BIF_RETURNONLYFSDIRS)If Not shlFolder Is Nothing ThenMsgBox shlFolder.Items.Item.Path '测试End IfEnd Sub上面2个方法的结果如图：第三个方法，是利用API来操作。
Excel VBA实战技巧精粹
赵启永，网名qee用，Excel Home“程序开发版”版主，在机械制造行业从事人力资源管理工作多年，熟悉Excel VBA程序设计。
技巧123 获取数组的维数
技巧124 改变动态二维数组的“行”边界
技巧125 跳过四舍五入的“陷阱”
技巧126 自动填写匹配的内容
技巧127 汉字和区位码的转换
技巧128 定制自定义函数的信息
第7章 加载宏的应用
技巧129 隐藏工作簿中的所有工作表
技巧58 在宏代码中引用单元格区域的5种方法
技巧59 获得指定行（或列）中最后一个非空单元格
技巧60 快速选择任意工作表中的区域
技巧61 随心所欲复制单元格区域
技巧62 仅复制数值到另一区域
技巧63 获取两个单元格区域的交叉区域
技巧64 联合多个单元格区域
技巧96 复制自动筛选后的数据区域
技巧97 获得自动筛选条件
技巧98 使用高级筛选获得不重复记录
技巧99 删除空行
技巧100 判断是否选中整行
技巧101 工作表中一次插入多行
技巧102 控制插入单元格区域的格式
技巧103 批量删除奇数行
--------------------------------------------------------------------------------
? 目录
绪论
01 VBA技术概览
02 透视Excel VBA
03 Excel VBA学习方法和思路
Excel VBA编程 使用动态链接库
Excel VBA编程使用动态链接库通过上面介绍的方法保护工程，非授权用户不能查看工程的源码。
但是，仅仅设置密码保护是不够的，通过Internet可以搜索到多种方法对其进行破解。
对源码安全性较高的保护方式是把VBA核心代码封装到动态链接库（DLL）文件中，然后用VBA代码访问动态链接库提供的过程或函数来完成工作。
动态链接库很难被反编译，非常安全。
DLL是Dynamic Link Library的缩写，意为动态链接库。
在Windows中，许多应用程序并不是一个完整的或执行文件，它们被分割成一些相对独立的动态链接库，即DLL文件，放置于系统中。
在VBE中，调用DLL文件时其运行速度是非常快的。
用户可以通过Microsoft Basic 6.0将VBA 代码封装到动态链接库（DLL）文件中。
1．将VBA代码封装成动态链接库打开Microsoft Basic 6.0，在【新建工程】中选取“ActiveX DLL”，新建一个工程。
在【属性】窗口中将工程名改为VBAPrj，类模块名改为VBACls。
然后执行【工程】｜【引用】命令，在对话框中选取【Microsoft Office 11.0 Object Library】，然后保存工程。
将VBA工程中，将要封装的过程（如Test）的代码复制到VB的工程管理器中类模块VBACls 的【代码】编辑窗口中。
这个过程成为类模块VBACls的一个方法，然后将工程编译生成DLL 文件。
提示可以将多个过程复制到VB的类模块中，从而使用DLL文件中包含多个方法。
在Excel中，通过类模块VBACls建立的对象来调用这些方法。
2．修改代码虽然VBA源于VB，但是两者毕竟存在着一些差异。
因此，需要对转移到VB中的VBA代码做一些必要的修改。
●修改VBA代码中所特有类型的对象。
如果所添加的代码里有VBA所特有类型——如WorkBook、WorkSheet、Rang等所建立的对象，编译时会提示错误，因为VB不能够识别这些对象。
网页基本标签代码大全
以图片方式插视频 <IMG height=240 loop=infinite dynsrc=/EFUADD0001.rmvb width=320> 层在 flash 上面 < param value="opaque" >延迟跳转 <meta http-equiv=refresh content='3; url=;'> 导航条变色： 单元格<TR 后面插入 onmouseover="" #99CCFF'" 居中 <CENTER></CENTER> 空链接 ; 标题表格 <fieldset> <legend>表格的说明</legend> </fieldset> 细线表格 style="BORDER-COLLAPSE: collapse;" 滚动条颜色代码 BODY{ SCROLLBAR-FACE-COLOR: #FFFFFF; SCROLLBAR-HIGHLIGHT-COLOR: #FFFFFF; SCROLLBAR-SHADOW-COLOR: #FFFFFF; SCROLLBAR-3DLIGHT-COLOR: #FFCBC8; SCROLLBAR-ARROW-COLOR: #FFFFFF; SCROLLBAR-TRACK-COLOR: #FFFFFF; SCROLLBAR-DARKSHADOW-COLOR: #FFCBC8; SCROLLBAR-BASE-COLOR: #FFFFFF } 连续的英文或者一堆感叹号!!!不会自动换行的问题 只要在 CSS 中定义了如下句子，可保网页不会再被撑开了 table{table-layout: fixed;} td{word-break: break-all; word-wrap:break-word;} 注释一下：
115礼包使用教程
2013年分享神器——文件礼包功能隆重推出！
文件礼包功能是指您可以批量把网盘中的任意文件或文件夹打成一个文件礼包，每个礼包将生成唯一的礼包码，您的好友只要在文件礼包提取页面（/lb）输入礼包码便可以可以瞬间把文件存到网盘上。
让分享来得更猛烈些吧！目前文件礼包功能为VIP会员抢先公测，在公测期间仅VIP 会员可生成礼包，普通会员每天可接收3次礼包，VIP无限接收（非115好友关系也可以开启礼包）。
文件礼包使用教程
如何生成文件礼包
选择“网盘文件”->“添加到礼包”->点击“生成文件礼包”，打包成功后
即可复制115网盘文件礼包码和提取地址给你的好友！
如何提取礼包文件
点击礼包提取地址：/lb
输入“文件礼包码”->点击“开启礼包”；文件瞬间转存到网盘，你可进入我的网盘，->“文件礼包”查看礼包文件或继续提取其他礼包文件！
如何管理文件礼包？
进入网盘，点击“文件礼包”即可对礼包文件进行管理，您可以随时取消。
如何使用HTML实现点击一个链接打开新窗口
【最基本的弹出窗口代码】其实代码非常简单：<SCRIPT LANGUAGE="javascript"><!--window.open ('page.html')--></SCRIPT>因为这是一段javascript代码，所以它们应该放在<SC RIPT LANGUA GE ="ja vascript">标签和</script>之间。
<!--和-->是对一些版本低的浏览器起作用，在这些老浏览器中如果不支持ja vascript，不会将标签中的代码作为文本显示出来。
Window.open ('pa ge.html')用于控制弹出新的窗口page.html，如果page.html不与主窗口在同一路径下，前面应写明路径，绝对路径(http://)和相对路径(../)均可。
用单引号和双引号都可以，只是不要混用。
这一段代码可以加入HT ML的任意位置，加入到<head>和</hea d>之间也可以，位置越靠前执行越早，尤其是页面代码较长时，又想使页面早点弹出就尽量往前放。
【经过设置后的弹出窗口】下面再说一说弹出窗口外观的设置。
只要再往上面的代码中加一点东西就可以了。
我们来定制这个弹出窗口的外观、尺寸大小、弹出位置以适应该页面的具体情况。
<SCRIPT LANGUAGE="javascript:><!--window.open ('page.html','new window','height=100,width=400,top=0,left=0,toolbar=no,menuba r=no,scrollbars=no,resizable=no,location=no,status=no')//写成一行--></SCRIPT>参数解释：<SCRIPT LANGUAGE="javascript"> js脚本开始；window.open 弹出新窗口的命令；page.html 弹出新窗口的文件名；newwindow 弹出窗口的名字（不是文件名），可用空″代替；height=100 窗口高度；top=0 窗口距离屏幕上方的像素值；left=0 窗口距离屏幕左侧的像素值；toolbar=no 是否显示工具栏，yes为显示；menubar,scrollbars 表示菜单栏和滚动栏；resizable=no 是否允许改变窗口大小，yes为允许；location=no 是否显示地址栏，yes为允许；status=no 是否显示状态栏内的信息（通常是文件已经打开），yes为允许；</SCRIPT> js脚本结束。
用VB将自己的程序加进Windows右键菜单的三种方法
用VB将自己的程序加进Windows右键菜单的三种方法引言：当我们在资源管理器中右键点击某个（或某些）文件时，Windows会调出对这些文件进行的相应操作，这就是Windows右键菜单，将自己的程序加进右键菜单，就可以很方便的进行我的相应操作了。
这里给出加进右键菜单的三种方法。
方法一、通过对注册表相应键新建项并赋值实现首先介绍一下要执行的目标程序CopyPathToClipboard的作用，该程序的界面见图一，实现将选中的文件（或目录）的路径复制到剪切板供其它程序使用的功能。
要实现单个文件（或目录）进行右键操作，只需对注册表如下键添加相应键值就可以了。
点击系统【开始】-【运行】-输入Regedit，打开注册表。
展开【HKEY_CLASSES_ROOT】，继续打开【*】-【shell】-新建项【CopyPathToClipboard】-【Command】，在【Command】建默认值：E:\Program Files\XZB\CopyPathToClipboard.exe “%1”，“E:\Program Files\XZB\”是程序CopyPathToClipboard.exe的文件路径，见图二。
如果还需对目录进行操作，定位到注册表项：【HKEY_CLASSES_ROOT\Directory\shell\】进行同样添加项【CopyPathToClipboard】-【Command】，在【Command】建默认值：E:\Program Files\XZB\CopyPathToClipboard.exe “%1”。
这样当你右击一个文件（或目录）时，就会在右键菜单中显示：CopyPathToClipboard，点击【CopyPathToClipboard】，就会调出主程序即可进行相应操作了，见图三。
１主程序CopyPathToClipboard在Private Sub Form_load()中有如下关键代码：Private Sub Form_load()If Command$ <> "" ThenIf Left$(Command$, 1) = Chr(34) And Right$(Command$, 1) = Chr(34) ThenCombo1.Text = Mid$(Command$, 2, Len(Command$) - 2) ' 去除前后两个引号ElseCombo1.Text = Command$End IfEnd If'...End Sub这样就实现了将参数传递进Combo1（CopyPathToClipboard的顶端组合框即为Combo1）中供后续程序代码调用处理。
在网页嵌入QQ+MSN+淘宝旺旺+Gtalk快速对话框官方代码的方法
如何在网页中实现单击链接弹出对话窗口/s?bs=%CD%F8%D2%B3%D6%D0+%B5%A5%BB%F7%D2%BB%CF%C2qq%BE%CD%CD%AC%C4%C7%C8%CB%B6%D4%BB%B0+%D4%F5%C3%B4%D7%F6&f=8&wd=%C8%E7%BA%CE%D4%DA%CD%F8%D2%B3%D6%D0%CA%B5%CF%D 6%B5%A5%BB%F7%C1%B4%BD%D3%B5%AF%B3%F6%B6%D4%BB%B0%B4%B0%BF %DA&n=2关于这个问题，一般解决方案是在页面里嵌入如下链接：<a href="tencent://message/?uin=qq 号码&Site=&Menu=yes">...</a>，这样经常带来两个问题：1.弹出qq登录窗口（我们已经登录了），问题的原因是没有启动TXPlatForm.exe(网上说这个进程没什么用，所以我禁用了)2.弹出“您需要添加对方为好友，才能给对方发送回话消息”的提示（明明对方qq系统设置里允许接收临时会话的），要解决这个问题需要登录为您的qq设置专用链接，而不是类似href="tencent://message/?uin=qq号码&Site=&Menu=yes" 的链接当然也有其他一些破解的办法（例如：href=" tencent://message/?uin=qq号&Service=0&sigT=c91aed75f6ce89f7fc95efcb07ae5b66d396e37bb891ba96bf7a544943a82b887b f5289cfc75d7b8406d9"）,但是怕腾讯不知道哪天就把这些Bug解决了你的连接就又没用了。
网页中直接调用MSN聊天对话框网页HTML代码:超链接:<a href="msnim:chat?contact=jinru2560@">联系客服</a>点击执行如下图:确定后:本文地址：/article/20081230/3810.html在网页嵌入QQ+MSN+淘宝旺旺+Gtalk快速对话框官方代码的方法1.如何在网页上显示腾讯QQ在线洽谈?QQ在线咨询代码(qq在线交谈代码/qq在线客服代码/qq在线状态代码/qq在线客服代码)(将123456换成你的号码,site后面换成你的网站就可以了)<a target="blank" href="/msgrd?V=1&Uin=664614846&Site=孚网&Menu=yes"><img border="0" SRC=/pa?p=1:664614846:6 alt="点击这里给我发消息" align="absmiddle"></a>更多的生成显示QQ在线状态的代码,请查看腾讯官方网站/webpresence/code.shtml你只需要填写你的号码,网站名称以及提示就可以点击生成就可以生成QQ 在线状态的代码,拷贝生成的代码加入网页即可2.阿里旺旺贸易通版<a target="_blank"href="/msg.aw?v=2&uid=hongtaiwater&site=cnalichn&s=2" >< img border="0"src="/online.aw?v=2&uid=hongtaiwater&site=cnalichn&s=2" alt="点击这里给我发消息" /></a>更多的阿里旺旺贸易通版在线状态代码生成样式/tese/index.html3、阿里旺旺淘宝版在线代码生成<a target="_blank"href="/msg.aw?v=2&uid=ddddddd&site=cntaobao&s=1&charset=utf-8" ><img border="0"src="/online.aw?v=2&uid=ddddddd&site=cntaobao&s=1&charset=utf-8" alt="点击这里给我发消息" /></a>更多的阿里旺旺淘宝版在线状态代码生成样式/wangwang/tese/index.php4、skype在线状态代码生成将worldshop668换成你的skype ID就可以了,需要在skype个人账户里设置对任何人显示状态<a href="skype:worldshop668?call" on-click="return skypeCheck();"><imgsrc=/smallclassic/worldshop668 style="border: none;"alt="Call me!" /></a>更多的skype在线状态代码生成样式,请查看skype的官方网站/share/buttons/5、如何生成MSN在线状态代码MSN从7.5开始加入了命令行控制，你可以在网页中加入“与我交谈”这样的按钮了，访问者点击就可以直接用他的MSN与你对话，代码是:建立对话：msnim:chat?contact=[邮件地址]添加好友：msnim:add?contact=[邮件地址]语音聊天：msnim:voice?contact=[邮件地址]视频聊天：msnim:video?contact=[邮件地址]用的时候把[邮件地址]写成你的MSN账号，不要方括号，用链接即可，如<a href="msnim:chat?contact=yourname@">与我交谈</a><a href="msnim:add?contact=yourname@">加我为好友</a>6、百度HI 聊天工具的代码：很简单的<a href="baidu://message/?id=mengzhisui"><imgsrc="/tb/img/hi/hiOnline.gif"></a>把ID=mengzhisui 换成你自己的往往ID就可以了下面是我在我的淘宝中放的代码：<a target="_blank" href="/msg.aw?v=2&uid=声音海洋&site=cntaobao&s=1&charset=utf-8" ><img border="0"src="/online.aw?v=2&uid=celia_zhou1&site=cntaobao&s=1&charset= utf-8" alt="有问题随时都可以M我哦" width="119" height="30" /></a><p><font face="Comic Sans MS"><ahref="msnim:chat?contact=worldshop668@"><font size="4" color="#008000">联系客服的MSN</font></a></font><fontsize="4"> </font></p><p><ahref="/msgrd?V=1&Uin=664614846&Site=&Menu=yes"> <font color="#008000" size="4" face="Comic Sans MS">联系客服的QQ</font></a></p><a target=_blank href="/msg.atc?v=1&uid=jbexpress"><img border=0 src="/online.atc?v=1&uid=jbexpress&s=2" alt="店家在等你哦" align="absmiddle" width="138" height="35"></a>大家可以把这个粘贴的时候点击后面的代码，然后预览效果就可以了！你好，最简单的方法，做超链接。
vb中5种打开文件夹浏览框的方法总结
1. 引言在VB（Visual Basic）编程中，打开文件夹浏览框是一个常见的需求。
它可以让用户选择文件夹并获取文件夹路径，方便程序进一步处理文件或者保存文件。
在本文中，我将总结VB中5种打开文件夹浏览框的方法，帮助你更深入地了解如何在VB中实现这一功能。
2. 方法一：使用FileSystemObject第一种方法是使用VB内置的FileSystemObject对象。
通过FileSystemObject，我们可以实现打开文件夹浏览框并获取文件夹路径的功能。
这种方法较为简单，适合初学者快速上手。
3. 方法二：使用Shell对象第二种方法是使用Shell对象。
通过Shell对象，我们可以调用Windows的Shell功能，实现打开文件夹浏览框的目的。
这种方法相对灵活，能够满足一些特定的需求。
4. 方法三：使用API函数第三种方法是使用API函数。
通过调用Windows的API函数，我们可以实现自定义的文件夹浏览框，达到更高的自定义和控制效果。
这种方法需要对Windows API有一定的了解，适合有一定经验的开发者。
5. 方法四：使用Shell控件第四种方法是使用Shell控件。
通过将Shell控件添加到VB的窗体中，我们可以实现与Windows资源管理器类似的文件夹浏览功能。
这种方法在界面上更为直观，适合需要直接展示文件夹结构的场景。
6. 方法五：使用第三方控件最后一种方法是使用第三方控件。
市面上有一些成熟的文件夹浏览控件，它们提供了丰富的功能和界面效果，能够满足更多的需求。
通过引用这些第三方控件，我们可以快速实现文件夹浏览框的功能。
7. 总结与回顾通过本文的总结，我们了解了VB中5种打开文件夹浏览框的方法。
从简单到复杂，我们可以根据实际需求选择适合的方法来实现文件夹浏览功能。
无论是入门级的开发者还是有经验的专业开发者，都可以根据自己的情况选择最适合的方法来处理文件夹浏览框的需求。
8. 个人观点与理解在我看来，选择合适的方法并不是一件简单的事情。
用VB制作网址链接器
用VB制作网址链接器用过《东方网神》的朋友们都明白，《东方网神》内设有一个网址资源，分类寄存了很多网址，你只要用鼠标单击要去的网址，就可把你带到该网站。
其实咱们也能够自己设计一个网址链接器实现此功能。
下面就用编写一个简单的网址链接器，步骤如下：1．启动,新建一个标准EXE工程，系统自动创建一个窗体form1,设置其caption属性为“创新搜索引擎”。
2．咱们需要引用一个API函数ShellExecute，方式是在工程中添加一个模块Module1，打开 API阅读器，在API阅读器的“文件”菜单当选择“加载文本文件”菜单项，现在将弹出一个“选择一个文本API文件”对话框，从当选择“”，单击“确信”按钮，单击ShellExecute 函数，然后单击“复制”按钮。
再回到Module1,按CTRL＋V把ShellExecute函数粘贴到Module1模块的代码窗口中。
3．回到form1窗体，添加一个frame控件，取名为frame1,caption 属性设置为“请选择网站类别”，在frame1控件中放置一个option button控件组(单项选择按钮)，取名为option1,该控件寄存网站类别，可依照需要设置option的控件数量。
那个地址仅设置了四个，option1(0)的caption属性为“国内闻名网站”，option1(1)的caption 属性为“IT”，option1(2)的caption属性为“硬件”，option1(3)的caption属性为“软件”。
4．再添加一个frame控件，取名为frame2，caption属性设置为“请选择网站”,在frame2控件中放置一个label控件组，取名为label1,该控件寄存网站的名称。
放置两个label控件，也依如实际需要设置控件数量。
设置其Font属性为下划线,Forecolor属性为突出显示，Mouseicon属性(设置自概念的鼠标图标)为一个手形图标，那个地址为VB98\graphics\icons\arrows目录下的文件，其Mousepointer属性为99(通过Mouseseicon属性所指定的自概念图标)。
用VB的INET控件进行文件的自动上传下载服务
用VB的INET控件进行文件的自动上传下载效劳用VB的INET控件做FTP的上传文件：sys_time=CDate(Now)sys_time=Replace(sys_time,":","")sys_time=Replace(sys_time,"","")erName="ll"Inet1.Password="ll"Inet1.Protocol=icFTPInet1.RemoteHost="10.10.200.21"Inet1.RemotePort="27"Inet1.Execute,"PUTDial.wav"+""+newNameInet控件也喊InternetTransfer控件，那个控件封装了协议以及ftp协议，使用起来特不方便。
因此大伙儿经常使用。
然而大伙儿通常使用的只是其局部功能，接下来我们讲一下它的全部具体功能，瞧过之后你也许会有眼前一亮的感受。
会猛然觉得我们之前明白得的只是皮毛。
InternetTransfer控件实现了两种广泛使用的Internet协议：超文本传送协议〔HyperTextTransferProtocol〕(也确实是根基)和文件传送协议〔Protocol〕(即FTP)。
使用InternetTransfer控件能够通过OpenURL或Execute方法连接到任何使用这两个协议的站点并检索文件。
能够做到的大体方向在应用程序中添加FTP扫瞄器。
创立自动从公共FTP站点下载文件的应用程序。
分析WorldWideWeb站点中的图形引用，并只下载图形。
提供以自定义格式显示从Web页获得的动态数据。
全然操作InternetTransfer控件的功能依靠于将要使用的协议。
由于所支持的两种协议工作起来不尽相同，所能够进行的操作就依靠于正在使用的协议。
一天一天学外挂详细教程(VB)
一下是一个经典的教程：第一天-CE看数据学习目的：很多的数据地址都已经被各位大大们发现了，而我们直接拿来主义就好啦，可以利用这些数据制作简单的程序从而实现很多功能。
今天我们首先了解如何在CE中显示已知的地址内的数据。
更新提示：由于66版的更新，请将文章中的基地址由&H8C6A54替换成&H8C9E54内容：1.我们可以用CE打开武林外传。
运行CE，按照下图的次序打开(...\武林外传\element\ele mentclient.exe)2.游戏启动后，别忘了选择游戏窗口。
3.这是游戏中人物的数据。
4.好，现在我们要在CE中显示人物的生命值。
同样按照图中的顺序打开“添加地址”对话框，在数据框中添加我们已知的内存地址。
当然，我们要用指针的方式，因为存储这些数据的地址是不固定的，我们可以用8C6A54这个固定的基地址以及相关的偏移地址找到我们需要的数据。
我们就来看看生命的值，完成图上的项目点“确定”来看看结果。
5.怎么样！是不是角色的生命值呢，使自己失去一些血量看看这个值是不是也在跟着变化。
6.根据已知的人物地址，我们还可以显示其它数据。
文章涉及软件：Cheat Engine游戏修改器5.2 (CE)http://www.hot.ee/tan333/CheatEngine52.exe /ym/soft/ce52.rar相关武林外传地址：一级基址=8C6A54 (可能会在其他电脑上不能使用)人物基址=+24当前血=+254最大血=+26C当前蓝=+258最大蓝=+270以上数字均为16进制第二天-实现VB显示游戏数据学习目的：利用已知的地址，在VB中显示游戏中的相关数据。
内容：1.建立一个新的标准EXE工程，我们就可以开始这次的学习了。
2.我们要建立一个模块，然后添加以下代码：Option Explicit'---------------声明函数-----------------------'得到窗体句柄的函数,FindWindow函数用来返回符合指定的类名( ClassName )和窗口名( WindowTitle )的窗口句柄Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpCla ssName As String, ByVal lpWindowName As String) As Long'得到窗体控件句柄的函数Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As Str ing) As Long'得到进程标识符的函数Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As L ong, lpdwProcessId As Long) As Long'得到目标进程句柄的函数Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Lo ng, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long'关闭句柄的函数Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Lo ng'读取进程内存的函数Public Declare Function ReadProcessMemory Lib "kernel32.dll" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByRef lpBuffer As Any, ByVal nSize As Long, ByRef lpNumberOfBytesWritten As Long) As Long'参数决定了对进程的存储权限，使用完全控制Public Const PROCESS_ALL_ACCESS = &H1F0FFF3.接下来Form中，我们要在程序启动时连接游戏窗口，以下是Form_Load的代码：Dim hwd As Long …储存FindWindow 函数返回的句柄Dim pid As LongDim hProcess As Long '存放进程句柄Private Sub Form_Load()hwd = FindWindow("QElementClient Window", "Element Client")If hwd = 0 ThenMsgBox "未启动游戏", vbOKOnly, "提示"Unload Form1End IfGetWindowThreadProcessId hwd, pid '获取进程标识符'将进程标识符做为参数，返回目标进程PID的句柄，得到此句柄后'即可对目标进行读写操,PROCESS_ALL_ACCESS表示完全控制,权限最大hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, pid)If hProcess = 0 ThenMsgBox "不能打开进程", vbOKOnly, "提示"Unload Form1End IfCloseHandle hProcess4.我们在Form中添加一个Label控件和一个Timer控件，设置Timer的Interval属性为10 0，Timer1_Timer的代码如下：Dim h As LonghProcess = OpenProcess(PROCESS_ALL_ACCESS, False, pid)If hProcess ThenReadProcessMemory hProcess, ByVal &H8C6A54, h, 4, 0& …这三条代码读取获得生命值ReadProcessMemory hProcess, ByVal h + &H24, h, 4, 0& ReadProcessMemory hProcess, ByVal h + &H254, h, 4, 0&CloseHandle hProcessEnd IfLabel1.Caption = h …输出生命值5.好了，数据显示出来了。
vbwebbrowser控件详解
vbwebbrowser控件详解vb+webbrowser控件详解1、获得浏览器信息private sub command1_click()webbrowser1.navigate ""end subprivate sub command2_click()dim owindowdim onavset owindow = webbrowser1.document.parentwindowset onav = owindow.navigatordebug.print eragentset owindow = nothingset onav = nothingend sub点击command1浏览⽹页，点击command2在⽴即窗⼝中输出浏览器信息。
2、弹出webbrowser消息窗⼝dim owindowset owindow = webbrowser1.document.parentwindowowindow.confirm "abcd"vb调⽤webbrowser技巧集2向webbrowser中写⼊html内容的⼏种⽅法⾸先在form_load中加⼊webbrowser1.navigate "about:blank"确保webbrowser1可⽤⽅法1：dim s as stringdim stream as istreams = "hello world "webbrowser1.document.write s⽅法2：dim oset o = webbrowser1.document.selection.createrangedebug.print oif (not o is nothing) theno.pastehtml "哈哈"set o = nothingend if⽅法3：'插⼊⽂本框dim oset o = webbrowser1.document.selection.createrangeo.execcommand "inserttextarea" false "xxx"vb调⽤webbrowser技巧集31、页⾯滚动：private sub command2_click()webbrowser1.document.parentwindow.scrollby 0 30end subprivate sub form_load()webbrowser1.navigate ""end sub点击command2就可以使当前页⾯向下滚动30像素2、判断页⾯是否可以前进后退private sub command1_click()webbrowser1.goforwardend subprivate sub command2_click()webbrowser1.gobackend subprivate sub form_load()webbrowser1.navigate ""end subprivate sub webbrowser1_commandstatechange(byval command as long byval enable as boolean)if (command = csc_navigateback) thencommand2.enabled = enableend ifif (command = csc_navigateforward) thencommand1.enabled = enableend ifend subvb调⽤webbrowser技巧集41、如何使⽹页不出现滚动条：private sub mnuscroll1_click()@#注意：必须在⽹页完全显⽰之后才可以运⾏webbrowser1.document.body.scroll = "no" @#不显⽰滚动条的办法end subprivate sub mnuscroll2_click()@#注意：必须在⽹页完全显⽰之后才可以运⾏webbrowser1.document.body.scroll = "auto" @#显⽰滚动条的办法end sub2、如何获得⽹页中被选中部分的html：private sub command1_click()dim objselectiondim objtxtrangeset objselection = webbrowser1.document.selectionif not (objselection is nothing) thenset objtxtrange = objselection.createrangeif not (objtxtrange is nothing) thendebug.print objtxtrange.htmltextset objtxtrange = nothingend ifset objselection = nothingend ifend subprivate sub form_load()webbrowser1.navigate ""end subnavigate ⽅法的语法格式为：webbrowser1.navigate url[flags][targetframename][postdata][headers]webbrowser 控件⽀持的主要⽅法有:goback———回退到上⼀屏。
VB网页外链接抓取分析软件UrlX
VB⽹页外链接抓取分析软件UrlX UrlX是⼀个我使⽤windows xp操作系统⼯作的时候开发的⼀个抓取⽹页外链接的简单软件，其可以⽆障碍⽆弹窗的浏览⼤部分的⽹页，并且分析抓取⽹页之上可以利⽤的外链接。
虽然使⽤的是VB，实际之上VB我根本没有系统的学习过。
所以说很多的功能都是牵强编写出来的。
MainForm.frm ⽂件代码VERSION 5.00Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"Begin VB.Form MainFormClientHeight = 9900ClientLeft = 60ClientTop = 345ClientWidth = 9375Icon = "MainForm.frx":0000LinkTopic = "Form1"MaxButton = 0'FalseScaleHeight = 9900ScaleWidth = 9375StartUpPosition = 2'屏幕中⼼Begin VB.Frame Frame4Caption = "历史链接"Height = 2535Left = 0TabIndex = 12Top = 7320Width = 9375Begin VB.ListBox HisUrlsHeight = 2220Left = 120TabIndex = 13Top = 240Width = 9135EndEndBegin VB.Frame Frame3Caption = "获取链接"Height = 3135Left = 0TabIndex = 8Top = 4080Width = 9375Begin VB.ListBox GetUrlsHeight = 2760Left = 120TabIndex = 9Top = 240Width = 9135EndEndBegin VB.Frame Frame2Caption = "⼯作页⾯"Height = 3255Left = 0TabIndex = 7Top = 720Width = 9375Begin SHDocVwCtl.WebBrowser WorkPageHeight = 2895Left = 120TabIndex = 10Top = 240Width = 9135ExtentX = 16113ExtentY = 5106ViewMode = 0Offline = 0Silent = 0RegisterAsBrowser= 0RegisterAsDropTarget= 1AutoArrange = 0'FalseNoClientEdge = 0'FalseAlignLeft = 0'FalseNoWebView = 0'FalseHideFileNames = 0'FalseSingleClick = 0'FalseSingleSelection = 0'FalseNoFolders = 0'FalseTransparent = 0'FalseViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"Location = "http:///"EndEndBegin VB.Frame Frame1Height = 615Left = 0TabIndex = 1Top = 0Width = 9375Begin mandButton Command6Caption = "H"Height = 255Left = 120TabIndex = 11ToolTipText = "主页"Top = 240Width = 375EndBegin mandButton Command5Caption = "S"Height = 255Left = 8880TabIndex = 6ToolTipText = "设置"Top = 240Width = 375EndBegin mandButton Command4Caption = "X"Height = 255Left = 8520TabIndex = 5ToolTipText = "停⽌"Top = 240Width = 375EndBegin mandButton Command3Caption = "R"Height = 255Left = 8160TabIndex = 4ToolTipText = "刷新"Top = 240Width = 375EndBegin mandButton Command2Caption = ">"Height = 255Left = 840TabIndex = 3ToolTipText = "前进"Top = 240Width = 375EndBegin mandButton Command1Caption = "<"Height = 255Left = 480TabIndex = 2ToolTipText = "后退"Top = 240Width = 375EndBegin VB.TextBox UrlTextHeight = 270Left = 1320TabIndex = 0Top = 240Width = 6735EndEndEndAttribute VB_Name = "MainForm"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()On Error Resume NextWorkPage.GoBackEnd SubPrivate Sub Command2_Click()On Error Resume NextWorkPage.GoForwardEnd SubPrivate Sub Command3_Click()If UrlText.Text <> ""ThenWorkPage.Navigate2 UrlText.TextEnd IfEnd SubPrivate Sub Command4_Click()WorkPage.StopMe.Caption = "停⽌⼯作"End SubPrivate Sub Command5_Click()ConfigForm.ShowEnd SubPrivate Sub Command6_Click()On Error Resume NextIf Dir(App.Path & "\HomePage.inf") = ""Then OutHomePage ("/") End IfWorkPage.Navigate2 InHomePage()End SubPrivate Sub Form_Load()Command6_ClickEnd SubPrivate Sub GetUrls_DblClick()On Error Resume NextDim c As Stringc = GetUrls.List(GetUrls.ListIndex)Clipboard.ClearClipboard.SetText cDim WebSite As StringWebSite = GetWebSite(UrlText.Text)If Dir(App.Path & "\History\" & WebSite & ".txt") = ""ThenOpen App.Path & "\History\" & WebSite & ".txt"For Output As #1Close #1End IfDim s As StringDim b As Booleanb = TrueOpen App.Path & "\History\" & WebSite & ".txt"For Input As #1While Not EOF(1)Input #1, sIf s = c Thenb = FalseGoTo pEnd IfWendp: Close #1If b ThenOpen App.Path & "\History\" & WebSite & ".txt"For Append As #1Print #1, cClose #1End IfEnd SubPrivate Sub HisUrls_DblClick()Dim c As Stringc = HisUrls.List(HisUrls.ListIndex)Clipboard.ClearClipboard.SetText cEnd SubPrivate Sub UrlText_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13ThenCommand3_ClickEnd IfEnd SubPrivate Sub WorkPage_BeforeNavigate2(ByVal pDisp As Object, Url As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean) On Error Resume NextMe.Caption = "正在打开页⾯"WorkPage.Silent = TrueDim WebSite As StringIf (pDisp Is WorkPage.Object) ThenUrlText.Text = UrlWebSite = GetWebSite(UrlText.Text)If Dir(App.Path & "\History\" & WebSite & ".txt") = ""ThenOpen App.Path & "\History\" & WebSite & ".txt"For Output As #1Close #1End IfDim s As StringHisUrls.ClearOpen App.Path & "\History\" & WebSite & ".txt"For Input As #1While Not EOF(1)Input #1, sHisUrls.AddItem sWendClose #1End IfEnd SubPrivate Sub WorkPage_DocumentComplete(ByVal pDisp As Object, Url As Variant)On Error Resume NextMe.Caption = "页⾯下载完成，正在解析页⾯"If (pDisp Is WorkPage.Object) ThenGetUrls.ClearDim n As IntegerDim UrlX As StringDim KeyWord As StringFor n = 0To WorkPage.Document.links.LengthUrlX = WorkPage.Document.links.Item(n)KeyWord = WorkPage.Document.links.Item(n).innertextIf Len(KeyWord) > 16ThenGetUrls.AddItem "【" & KeyWord & "】" & UrlXEnd IfNext nEnd IfMe.Caption = "页⾯解析完成"End SubPrivate Sub WorkPage_NewWindow2(ppDisp As Object, Cancel As Boolean)On Error Resume NextCancel = TrueWorkPage.Navigate2 WorkPage.Document.activeElement.hrefEnd SubConfigForm.frm ⽂件代码VERSION 5.00Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx" Begin VB.Form ConfigFormCaption = "UrlX设置"ClientHeight = 5235ClientLeft = 60ClientTop = 345ClientWidth = 4680Icon = "ConfigForm.frx":0000LinkTopic = "Form1"MaxButton = 0'FalseScaleHeight = 5235ScaleWidth = 4680StartUpPosition = 2'屏幕中⼼Begin VB.Frame Frame3Caption = "锚⽂本规则"Height = 2175Left = 0TabIndex = 4Top = 3000Width = 4695Begin MSComctlLib.Slider Slider1Height = 255Left = 120TabIndex = 5Top = 480Width = 4455_ExtentX = 7858_ExtentY = 450_Version = 393216Max = 60EndBegin bel Label1Caption = "⽂本最⼩长度"Height = 255Left = 240TabIndex = 6Top = 240Width = 1215EndBegin VB.Line Line1BorderColor = &H80000003&X1 = 0X2 = 4680Y1 = 840Y2 = 840EndEndBegin VB.Frame Frame2Caption = "链接规则"Height = 2055Left = 0TabIndex = 3Top = 840Width = 4695EndBegin VB.Frame Frame1Caption = "主页"Height = 615Left = 0TabIndex = 0Top = 120Width = 4695Begin mandButton Command1Caption = "C"Height = 255Left = 4200TabIndex = 2Top = 240Width = 375EndBegin VB.TextBox HomeTextHeight = 270Left = 120TabIndex = 1Top = 240Width = 3975EndEndEndAttribute VB_Name = "ConfigForm"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Check1_Click(Index As Integer)End SubPrivate Sub Command1_Click()OutHomePage (HomeText.Text)MsgBox HomeText.Text & " 已经成功设置成为主页！", vbOKOnly, "系统提⽰" End SubPrivate Sub Form_Load()If Dir(App.Path & "\HomePage.inf") = ""ThenOutHomePage ("/")End IfHomeText.Text = InHomePage()End SubFunction.bas ⽂件代码Attribute VB_Name = "Function"Public Sub OutHomePage(ByRef Url As String)Open App.Path & "\HomePage.inf"For Output As #1Print #1, UrlClose #1End SubPublic Function InHomePage() As StringDim Url As StringOpen App.Path & "\HomePage.inf"For Input As #1Input #1, UrlClose #1InHomePage = UrlEnd FunctionPublic Function GetWebSite(ByVal Url As String) As StringDim ReUrl As StringReUrl = ""Dim i As Integeri = 1While Not (Mid(Url, i, 1) = "/"And Mid(Url, i + 1, 1) <> "/")i = i + 1Wendi = i + 1While Mid(Url, i, 1) <> "/"ReUrl = ReUrl & Mid(Url, i, 1)i = i + 1WendGetWebSite = ReUrlEnd Function软件运⾏需要在当前⽬录新建⼀个History⽬录，因为其具有链接记忆功能（没有学习过数据库，仅仅是使⽤⽂件存储信息）。
vb中的函数,可实现弹出窗口
public sub command1_click;msgbox "hello!'end subVB中的函数，可实现弹出窗口.作用：在对话框中显示消息，等待用户单击按钮，并返回一个Integer 告诉用户单击哪一个按钮。
语法：MsgBox(prompt[, buttons] [, title] [, helpfile, context])参数说明：MsgBox 函数的语法具有以下几个命名参数：Prompt-------必需的。
字符串表达式，作为显示在对话框中的消息。
prompt 的最大长度大约为1024 个字符，由所用字符的宽度决定。
如果prompt 的内容超过一行，则可以在每一行之间用回车符(Chr(13))、换行符(Chr(10)) 或是回车与换行符的组合(Chr(13) & Chr(10)) 将各行分隔开来。
Buttons-------可选的。
数值表达式是值的总和，指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等。
如果省略，则buttons 的缺省值为0。
Title-------可选的。
在对话框标题栏中显示的字符串表达式。
如果省略title，则将应用程序名放在标题栏中。
Helpfile--------可选的。
字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。
如果提供了helpfile，则也必须提供context。
Context-------可选的。
数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。
如果提供了context，则也必须提供helpfile。
用于MsgBox函数中Button参数的常量常量值说明vbOKOnly 0 只显示“确定”按钮VbOKCancel 1 显示“确定”和“取消”按钮VbAbortRetryIgnore 2 显示“终止”、“重试”和“忽略” 按钮VbYesNoCancel 3 显示“是”、“否”和“取消”按钮VbYesNo 4 显示“是”和“否”按钮VbRetryCancel 5 显示“重试”和“取消”按钮VbCritical 16 显示“关键信息”图标VbQuestion 32 显示“警告询问”图标VbExclamation 48 显示“警告消息”图标VbInformation 64 显示“通知消息”图标vbDefaultButton1 0 第一个按钮是缺省值(缺省设置) vbDefaultButton2 256第二个按钮是缺省值vbDefaultButton3 512第三个按钮是缺省值vbDefaultButton4 768第四个按钮是缺省值vbApplicationModal 0应用程序强制返回；应用程序一直被挂起，直到用户对消息框作出响应才继续工作vbSystemModal 4096系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作vbMsgBoxHelpButton 16384将Help按钮添加到消息框VbMsgBoxSetForeground 65536指定消息框窗口作为前景窗口vbMsgBoxRight 524288文本为右对齐vbMsgBoxRtlReading 1048576指定文本应为在希伯来和阿拉伯语系统中的从右到左显示说明：(1)第一组值(0–5)描述了消息框中显示的按钮的类型与数目；第二组值(16,32,48,64)描述了图标的样式；第三组值(0,256,512,768)说明哪一个按钮是缺省值；而第四组值(0,4096)则决定消息框的强制返回性。
VBWebbrowser控件使用方法
VBWebbrowser控件使用方法WebBrowser 的事件Private Events Description BeforeNavigate2导航发生前激发，刷新时不激发CommandStateChange当命令的激活状态改变时激发。
它表明何时激活或关闭Back和Forward菜单项或按钮DocumentComplete当整个文档完成是激发，刷新页面不激发DownloadBegin当某项下载操作已经开始后激发，刷新也可激发此事件DownloadComplete当某项下载操作已经完成后激发，刷新也可激发此事件NavigateComplete2导航完成后激发，刷新时不激发NewWindow2在创建新窗口以前激发OnFullScreen当FullScreen属性改变时激发。
该事件采用VARIENT_BOOL的一个输入参数来指示IE是全屏显示方式(VARIENT_TRUE)还是普通显示方式(VARIENT_FALSE)OnMenuBar改变MenuBar的属性时激发，标示参数是VARIENT_BOOL类型的。
VARIANT_TRUE是可见，VARIANT_FALSE是隐藏OnQuit无论是用户关闭浏览器还是开发者调用Quit方法，当IE退出时就会激发OnStatusBar与OnMenuBar调用方法相同，标示状态栏是否可见。
OnToolBar调用方法同上，标示工具栏是否可见。
OnVisible控制窗口的可见或隐藏，也使用一个VARIENT_BOOL类型的参数StatusTextChange如果要改变状态栏中的文字，这个事件就会被激发，但它并不理会程序是否有状态栏TitleChange Title有效或改变时激发新加内容：提交表单form1：Private Sub Command1_Click()WebBrowser1.Document.Forms("form1").submitEnd Sub将form1中的名为u的属性设为不可用：Private Sub Command2_Click()WebBrowser1.Document.Forms("form1").u.setAttribute "disabled", "disabled"End Sub将form1中的名为u的Text框中的内容设为abc：Private Sub Command2_Click()WebBrowser1.Document.Forms("form1").u.setAttribute "value", "abc"End Sub1、获得浏览器信息：Private Sub Command1_Click()WebBrowser1.Navigate ""End SubPrivate Sub Command2_Click()Dim oWindowDim oNavSet oWindow = WebBrowser1.Document.parentWindowSet oNav = oWindow.navigatorDebug.Print erAgentSet oWindow = NothingSet oNav = NothingEnd Sub点击Command1浏览网页，点击Command2在立即窗口中输出浏览器信息。
VB15
•通过Checked属性（Boolean 类型）可将菜单项设计为复选项 的形式。
菜单设计要点
菜单项相当于控件，应分别命名。
亦可给功能相近的菜单项命以相同的
控件名，将它们设计为控件数组，并 在“索引”栏设置下标.
菜单设计要点
若有需要可以给没有下级菜单的菜 单项设计”操作菜 单)，带下划线的字母。
“打开”/“另存为”对话 框
在运行时显示“打开”对话框用： CommonDialog1.ShowOpen 或 CommonDialog1.Action=1
在运行时显示“另存”对话框用：
CommonDialog1.ShowSave
或 CommonDialog1.Action=2
文件对话框（打开、另存）需设置的属性
FileCopy 源文件名，目标文件名
“颜色”对话框
颜色对话框是当Action值为3时的通用 对话框。 重要属性 Color：用来返回或设置选定的颜色
Private Sub Command2_Click()