WebBrowserに表示したJPEGをPictureBoxに表示するには？ (ID:86052)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

サンプルが欲しいわけですね。
明確にあっているか分かりませんが、動作はするサンプルを提供します。
もっとスマートな形にして使用してください。

'定義部分
Public Type UUID
   id1    As Long
   id2    As Integer
   id3    As Integer
   id4(7) As Byte
End Type
Public Const S_OK = 0
Public Declare Function OleLoadPicturePath Lib "oleaut32.dll" (szURLorPath As Any, ByVal punkCaller As Long, _ 
                      ByVal dwReserved As Long, ByVal clrReserved As Long, riid As UUID, ppvRet As Any) As Long

----------------------------------------------------------------------------------------------------------------

’コード部分
  Dim objImg        As Object
  Dim bytB()        As Byte
  Dim IID_IPicture  As UUID
  Dim oPic          As IPicture
  
    
  Set objImg = WebBrowser1.Document.getElementsByTagName("IMG")
  
  IID_IPicture.id1 = &H7BF80980
  IID_IPicture.id2 = &HBF32
  IID_IPicture.id3 = &H101A
  IID_IPicture.id4(0) = &H8B
  IID_IPicture.id4(1) = &HBB
  IID_IPicture.id4(2) = &H0
  IID_IPicture.id4(3) = &HAA
  IID_IPicture.id4(4) = &H0
  IID_IPicture.id4(5) = &H30
  IID_IPicture.id4(6) = &HC
  IID_IPicture.id4(7) = &HAB
  
  bytB = objImg(0).src  'OleLoadPicturePathのURLはUnicodeで渡す必要がある
  If OleLoadPicturePath(bytB(0), ByVal 0&, ByVal 0&, ByVal 0&, IID_IPicture, oPic) = S_OK Then
    Set Picture1.Picture = oPic
  End If
  Set oPic = Nothing

←解決時は質問者本人がここをチェックしてください。

戻る