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

タイトル ： Re^2: WEB動画をJPEG等で静止画保存
投稿日： 2010/06/03(Thu) 20:20
投稿者： あやめ

色々やりましたが解決できません。

ソースを載せます。よろしくお願いします。

’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
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 udtRect As RECT
    
    Picture1.AutoRedraw = True
    Picture1.Visible = True
    
    With udtRect
    
        .Left = 0
        .Top = 0
        .Right = Me.ScaleX(WebBrowser1.Width, Me.ScaleMode, vbPixels)
        .Bottom = Me.ScaleY(WebBrowser1.Height, Me.ScaleMode, vbPixels)
      
    End With
  
    With Picture1
       .Cls
       .Move 0, 0, 8000 - 1, 6000 - 1
       Call OleDraw(WebBrowser1.object, DVASPECT_CONTENT, .hDC, udtRect)

    End With

End Sub

Private Sub Form_Load()  '
    WebBrowser1.Navigate "http://192.168.1.111"
End Sub
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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