要 先设置 下的类型 才可以比如你要 保存的是MP3 只要 在 text2后面加个 2.MP3
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 LongPrivate Sub Command1_Click()DoEventsOn Error Resume NextURLDownloadToFile 0, Text1, Text2, 0, 0End SubPrivate Sub Text2_Change()Text2 = "C:\Documents and Settings\Administrator\桌面\"End Sub
你可以去网上搜索一下这种小程序的。
4,vb60企业版程序无法打开了
贴图看不到。
估计是你的安装程序不完整或有问题。
建议你御载原程序后重新安装。
御载后要记得重启并将原安装文件夹删除。建议重装office 这是由于office组件的缺失造成的
重新安装office就可以了 你先卸载VB6,之后重新按装。我是2008+VB6,先装2008,后装VB6,一直没有问题,反之,出现过你说的情况在出现那个提示时,你放入OFFICE2003的安装盘,试一下
浏览2003光盘中的那个TMP~~~,你找一下吧
如果再不行,
我感觉也是只能重新安装一下VB6了
下载企业版:VB6.0
http://soft.qhdedu.net/vb2009/Pvb60.rar
http://soft.qhdedu.net/vb2009/sp6.rar
前者是VB6的地址
后者是补丁六的地址
序列号:全是数字1visual studio 2005和vb6.0企业版都是微软的软件,有可能是你在卸载visual studio 2005时候,把一些基础公共的文件也给删掉啦。建议你重新安装vb6.0企业版。