本文目录
哪里有VB源码下载
http://www.anqn.com/vb/index.shtml
http://www.bianceng.cn/VBjc/Vb.HTM
http://www.cc.whu.edu.cn/wlkt/VB.htm
http://www.moon-soft.com/download/sort/1_1.htm
http://mydown.yesky.com/tests/507220111350824960.html
哪里有VB源码打包下载
上面是广告，不要点击
要下载去
http://www.baidu.com/baidu?word=VB%D4%B4%C2%EB%B4%F2%B0%FC%CF%C2%D4%D8&tn=max2_cb
就有了
vb文件保存源码下载
CommonDialog1.Filter = “bmpfile|*.bmp“
CommonDialog1.FileName = ““
CommonDialog1.ShowSave
If CommonDialog1.FileName 《》 ““ Then
SavePicture Picture1.Image, CommonDialog1.FileName
End If
-vb源码下载
VB下载网页源码
使用 URLDownloadToFile 这个API可以实现你想要的功能。
’// 定义
’// 下载网络上的一个文件到本地
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
’// 下载一个文件到本地
Public Function DownloadFile(ByVal strURL As String, ByVal strFile As String) As Boolean
Dim lngReturn As Long
lngReturn = URLDownloadToFile(0, strURL, strFile, 0, 0)
If lngReturn = 0 Then DownloadFile = True
End Function
Private Sub Command1_Click()
Debug.Print DownloadFile(“http://zhidao.baidu.com/question/12376048.html“, “D:\1.html“)
End Sub
-vb源码下载
vb下载的源码怎么用
你下载的这段代码 只是一个VB窗体的控件定义代码
而且是不完整的.
只能通过这段代码能弄出一个自定义的程序界面而已
一点实际的功能都没有的
你如果还是想研究一下看看的话
那么去下载一个VB精简版 安装上
然后把上面这段代码 复制到记事本里
在结尾处补上欠缺的几行代码
End
Attribute VB_Name = “Form1“
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
保存为 Form1.frm
双击这个文件 就可以看到效果了.
最终效果如图:
谁有VB程序下载网址
VB新势力-vb下载 vb6下载 vb教程 vb源码 vb试题 vb源代码 vb控件 vb源程序 vb书籍 vb工具 vb6.0下载vb.net教程vb.net源码
http://www.vbaspnew.com/
测试过，可以下载
-vb源码下载
哪有vb源代码下载
http://iask.sina.com.cn/ishare/browse_file.php?fileid=231301
一些共享VB源代码,包含计算鼠标形程,屏保制作,漫谈ActiveX控件之VB
实践篇,做自己的计划任务定时关机等等.资料来源趣味编程(二)所附光
盘.
-vb源码下载
用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
’//调用
然后在代码里直接调用：
Call URLDownloadToFile(0, “网页地址“, “保存到本地文件名和地址“, 0, 0)
如
Call URLDownloadToFile(0, “http://www.baidu.com/“, “c:\1.htm“, 0, 0)
相当于另存为
声明：
Private Declare Function DoFileDownload Lib “shdocvw.dll“(ByVal lpszFile As String) As Long
’//调用
然后在代码里直接调用：
Dim gourl As String
AdUrl = StrConv(“网页地址“, vbUnicode)
Call DoFileDownload(gourl)
-vb源码下载
