VB中Image控件如何加载网络图片

最新推荐文章于 2024-04-15 15:38:39 发布

passport_daizi

最新推荐文章于 2024-04-15 15:38:39 发布

阅读量1.2w

点赞数

分类专栏： 19 VB 文章标签： image vb 网络 integer internet function

19 VB 专栏收录该内容

14 篇文章 0 订阅

订阅专栏

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("http://img.baidu.com/img/logo-zhidao.gif")
End Sub