把图片从网上下载后,把PICTURE的picture属性指向它就行了。
解决方案 »
- [VB6+Access]查询到一个表的某些记录后如何与另一个表相关记录进行联合显示到datagrid上?
- 怎么让vb保存工程文件后不显示“add this project to sourcesafe”
- 你的礼物我很喜欢,谢谢
- 怎样把当前时间格式化为字符传?要这种类型的 “2004-10-02 02:25:53”,马上给分
- mousePointer
- 我在excel中建立了一个公式,但太长了,想把它自定义为一个自定义函数,请教大家有没有好的解决办法啊?
- 如何获得大于指定字符串的最大字符串??????????
- 如何用VB程序向已打开的其他程序窗口中的文本框内输入已定的字符串?
- 在VB中运行GetEnvironmentVariable需要引用什么东西?
- 请教数据库问题,如何知道ADO执行的SQL是否成功执行?
- 各位大侠帮忙分析一下,VB能实现这个功能吗?
- vb中可以使用多线程吗,how?
Public Function DownloadFile(url As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, url, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
Dim url As String
url = "http://www.csdn.net/images/ad/dby2001_468_60.gif"
Dim tmpFile As String
tmpFile = "D:\temp\download.gif"
DownloadFile url, tmpFile
Set Picture1.Picture = LoadPicture(tmpFile)
End Sub