VB下载文件
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 Long) As Long
Private Sub Command1_Click()
Dim Url As String, Filepath As String
Url = "http://www.baidu.com/"
Filepath = "c:\baidu.htm"
Call URLDownloadToFile(0&, Url, Filepath, 0&, 0&)
End Sub
相关文档：
该方法不需要使用API及第三方控件
这里使用的是VB的UserControl控件的AsyncRead方法
步骤如下:
1、添加一个用户控件，设置InvisibleAtRuntime属性为true，目的是运行时该控件不显示用户界面，就象Timer控件一样。
2、到自定义控件的代码窗口，添加如下代码
Option Explicit
'下载结果枚举
Public Enum Downloa ......
工作需要，针对java文件，作了一个行数统计的工具。统计的主要代码如下：
Set srcIn = fso.OpenTextFile(fileNm, ForReading)
Do While Not srcIn.AtEndOfStream
buf = srcIn.ReadLine
&nbs ......
如何让幻灯片在vb的框架里播放
'Microsoft PowerPoint 9.0(Office 2000的，如果是97则是8.0) Object Library)
''Microsoft PowerPoint 11.0(Office 2003) Object Library)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '延时API声明
Private Sub Form_Load()
Dim ppt As New PowerPoint. ......
VB6里面的安装内容中有JET （IISAM）部件，安装时加以选择,你可以修复安装你的VB6。具体做法如下：
1、重新启动VB安装程序，选取工作站工具和组件=》添加、删除程序=》数据访问=》更改选项=》选中Jet IIsam
2、重装VB，安装时选自定义，全部选中。 ......
http://tieba.baidu.com/f?kz=580219489
http://www.anqn.com/vb/154/8974.shtml
http://www.codefans.net/soft/5089.shtml
http://www.mndsoft.com/blog/article.asp?id=1121
http://topic.csdn.net/t/20020113/14/474848.html
直接运行网页中的JavaScript：
function alllefttab()
WebBrowser1.Document.par ......
