Как 'сфотографировать' webbrowser, расположенный за границами формы?

Мир Вам!
На форме есть WebBrowser, расположенный за границами формы (т.е. не видим пользователю).
Вопрос: Можно ли как-либо его 'сфотографировать' (вернее его содержимое). Ну, а получившуюся картинку уже отображать уменьшенной там в несколько раз. Главный вопрос как 'сфотографировать'?

0

Мелькания картинки не избежать, увы.
[code]
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Declare Function GetDC Lib 'user32.dll' ( _
ByVal hWnd As Long) As Long
Private Declare Function ReleaseDC Lib 'user32.dll' ( _
ByVal hWnd As Long, _
ByVal hdc As Long) As Long
Private Declare Function GetDesktopWindow Lib 'user32.dll' () As Long
Private Declare Function BitBlt Lib 'gdi32.dll' ( _
ByVal hDestDC As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal hSrcDC As Long, _
ByVal xSrc As Long, _
ByVal ySrc As Long, _
ByVal dwRop As Long) As Long
Private Declare Function FindWindowEx Lib 'user32.dll' Alias 'FindWindowExA' ( _
ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long
Private Declare Function CreateCompatibleBitmap Lib 'gdi32.dll' ( _
ByVal hdc As Long, _
ByVal nWidth As Long, _
ByVal nHeight As Long) As Long
Private Declare Function CreateCompatibleDC Lib 'gdi32.dll' ( _
ByVal hdc As Long) As Long
Private Declare Function DeleteObject Lib 'gdi32.dll' ( _
ByVal hObject As Long) As Long
Private Declare Function SelectObject Lib 'gdi32.dll' ( _
ByVal hdc As Long, _
ByVal hObject As Long) As Long
Private Declare Function GetWindowRect Lib 'user32.dll' ( _
ByVal hWnd As Long, _
ByRef lpRect As RECT) As Long
Private Declare Function OpenClipboard Lib 'user32.dll' ( _
ByVal hWnd As Long) As Long
Private Declare Function SetClipboardData Lib 'user32.dll' ( _
ByVal wFormat As Long, _
ByVal hMem As Long) As Long
Private Declare Function EmptyClipboard Lib 'user32.dll' () As Long
Private Declare Function CloseClipboard Lib 'user32.dll' () As Long
'
Private Sub Form_Load()
WebBrowser1.Left = -10000 ' << уводим за пределы формы
WebBrowser1.Navigate 'www.ya.ru'
End Sub
'
Private Function GetWebBrowserHWND() As Long
Dim lHwnd As Long

' определяем хэндл ЭУ WebBrowser:
lHwnd = FindWindowEx(Me.hWnd, ByVal 0&, 'Shell Embedding', vbNullString)
lHwnd = FindWindowEx(lHwnd, ByVal 0&, 'Shell DocObject View', vbNullString)
GetWebBrowserHWND = FindWindowEx(lHwnd, ByVal 0&, 'Internet Explorer_Server', vbNullString)
End Function
'
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
' фотографируем окно вебброузера
Dim mDC As Long, mBitmap As Long, wbrWidth As Long, wbrHeight As Long
Dim rct As RECT, wbrHwnd As Long, tmpDC As Long

wbrHwnd = GetWebBrowserHWND()

tmpDC = GetDC(GetDesktopWindow())

mDC = CreateCompatibleDC(tmpDC)

GetWindowRect wbrHwnd, rct
wbrWidth = rct.Right - rct.Left
wbrHeight = rct.Bottom - rct.Top

mBitmap = CreateCompatibleBitmap(tmpDC, wbrWidth, wbrHeight)
SelectObject mDC, mBitmap

' LockWindowUpdate wbrHwnd
WebBrowser1.Left = 0
DoEvents
BitBlt mDC, 0, 0, wbrWidth, wbrHeight, GetDC(wbrHwnd), 0, 0, vbSrcCopy
WebBrowser1.Left = -10000
' LockWindowUpdate 0&

OpenClipboard Me.hWnd
EmptyClipboard
SetClipboardData vbCFBitmap, mBitmap
CloseClipboard

DeleteObject mBitmap
DeleteObject mDC
ReleaseDC G

Интересный способ. Спасибо.
Но вот проблеммка одна размер формы гораздо меньше размеров WebBrowser'a, т.е. в картинке получается кусок формы и еще то, что на рабочем столе... обломчик вот...
А сфотографировать WebBrowser не выводя в видимую область никак нельзя?

0

Нельзя, похоже.
Пикчербокс - можно, если у него AutoRedraw = True. А вот WebBrowser - у меня не вышло.

Хорошо, т.е. плохо ))
А если копать с другой стороны....
Можно ли в WebBrowser'e сделать Zoom? т.е. нужно открытую станичку уменьшить в n раз (причем не только шрифты а и картинки и т.д.)...

0