hDc -> файл

[Mleha]

На hDc формы имеется рисунок. Как сохранить его в файл?

[GSerg]

Эээээ... savepicture me.picture? savepicture me.image?

[Mleha]

Не тянет - пробовал.

[tyomitch]

AutoRedraw поставь в True, и сохраняй Image. Должно работать.

[Mleha]

В общем мне надо фильм со ScreenShoot - ить
При использованиии следующего кода рисунок не сохраняется(чистый фон цвета формы).
Private Sub Command2_Click()
Dim i As Long, RS As String, A$
RS = Space$(128)
A$ = "D:\Documents\Video\1.avi"
i = mciSendString("open AVIvideo!" & A$ & " alias movie parent " & Form1.hWnd & " style child", RS, 128, 0)
End Sub

Private Sub Command1_Click()
SavePicture Me.Image, "1.bmp"
End Sub

Пробовал с Autoredraw(True/False).

[tyomitch]

А ты уверен, что фильм рисуется именно на DC формы? Я - нет.

[GSerg]

Гы-гы-гы
Оверлей не принтскринится.

Если только аппаратное ускорение выключить, тогда да...

[Mleha]

В этом случае у меня получилось скринить!
код можете проверить

Private Sub Command2_Click()
Dim i As Long, RS As String, A$
RS = Space$(128)
A$ = "D:\Documents\Video\1.avi"
i = mciSendString("open AVIvideo!" & A$ & " alias movie parent " & Form1.hWnd & " style child", RS, 128, 0)
End Sub

Private Sub Command1_Click()
SavePicture Me.Image, "1.bmp"
End Sub

А при этом коде эффект как у Media Player:
Dim a As String
mciSendString "close all", 0&, 0, 0
a = pp.hwnd & " Style " & &H40000000
a = "open " & "D:\Documents\Video\1.avi" & " Type Mpegvideo Alias video parent " & a
mciSendString a, 0&, 0, 0
mciSendString "play video", 0&, 0, 0