本工程需要Microsoft Internet Transfer Control 6.0控件
'-----------------------窗体上一个inet、一个picture、一个command
Private Sub Command1_Click()
Dim Buff() As Byte
Inet1.URL = "https://passport.baidu.com/?verifypic"
Buff() = Inet1.OpenURL(, icByteArray)
p = App.Path + "\temp.jpg"
Open p For Binary As #1
For i = 0 To UBound(Buff)
Put #1, , Buff(i)
Next
Close #1
Picture1.Picture = LoadPicture(p)
Kill p
End Sub
转载于:https://www.cnblogs.com/luyichuan/archive/2012/05/02/2479285.html
本文介绍如何使用VBA编程中的Microsoft Internet Transfer Control 6.0控件从指定URL下载图片,并将其保存到本地磁盘,最后在应用程序中显示该图片。此过程涉及创建一个包含inet和picture控件的窗体,以及一个用于触发下载和显示操作的command按钮。
8366

被折叠的 条评论
为什么被折叠?



