タイトル : 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 |