vb Image 图片控件 网络

如何在Image 图片控件显示网上的图片

?

可以用OleLoadPicturePath 这个API来实现。

Private Type TGUID

Data1 As Long

Data2 As Integer

Data3 As Integer

Data4(0 To 7) As Byte

End Type

'// 用来加载Internet上的图片

Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long

'// 从Internet上加载图片

Public Function LoadPicture(ByVal strFileName As String) As Picture

Dim IID As TGUID

With IID

.Data1 = &H7BF80980

.Data2 = &HBF32

.Data3 = &H101A

.Data4(0) = &H8B

.Data4(1) = &HBB

.Data4(2) = &H0

.Data4(3) = &HAA

.Data4(4) = &H0

.Data4(5) = &H30

.Data4(6) = &HC

.Data4(7) = &HAB

End With

On Error GoTo LocalErr

OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadPicture

Exit Function

LocalErr:

Set LoadPicture = VB.LoadPicture(strFileName)

Err.Clear

End Function

Private Sub Command1_Click()

Image1.Picture = LoadPicture("")

End Sub