tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^2: WEB動画をJPEG等で静止画保存
投稿日: 2010/05/17(Mon) 15:45
投稿者あやめ
お世話さまです。

下記プログラムで
まず、ピクチャーBOXに表示しません。
どこを修正すればいいでしょうか?


Option Explicit

Private Declare Function OleDraw Lib "ole32.dll" _
   (ByVal pUnk As Object, ByVal dwAspect As DVASPECT, _
    ByVal hDCDraw As Long, lprcBounds As RECT) As Long

Private Enum DVASPECT
   DVASPECT_CONTENT = 1
   DVASPECT_THUMBNAIL = 2
   DVASPECT_ICON = 4
   DVASPECT_DOCPRINT = 8
End Enum

Private Type RECT
   Left   As Long
   Top    As Long
   Right  As Long
   Bottom As Long
End Type

Private Sub Command1_Click()
    Dim oneRect As RECT
    
    Picture1.AutoRedraw = True
    Picture1.Visible = False
        
    With oneRect
     .Left = 9120
     .Top = 3600
     .Right = .Left + 8000 - 1
     .Bottom = .Top + 6000 - 1
    End With
    
    With Picture1
      .Cls
      .Move 0, 0, 6000, 8000
      Call OleDraw(WebBrowser1.object, DVASPECT_CONTENT, .hDC, oneRect)
    End With

End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。