screenshot

[vbman]

Знаю, что можно быстро делать снимки экрана с помощью DirectDraw, но не знаю как реализовать это в непосредственно в коде. Помогите пожайлуста!

[Yurich]

Лови:
Dim RC as RECT
Dim dds4Back As DirectDrawSurface4 (измени по своей задаче)
Dim ScreenShotsCount As Integer

If ScreenShotsCount > 15 Then Exit Sub
With RC
.Top = 0
.Left = 0
.Bottom = 600
.Right = 800
End With
dds4Back.BltToDC Me.hDC, RC, RC
SavePicture Me.Image, "ScShot" & Format(Str(ScreenShotsCount), "##") & ".bmp"
ScreenShotsCount = ScreenShotsCount + 1

[vbman]

На строке

Код: Выделить всё

dds4Back.BltToDC Me.hDC, RC, RC

выдаёт ошибку:
Object variable or With block variable not set

[Yurich]

Без паники! Все получится.
Ты обратил внимание на слова "(измени по своей задаче)"
Этот пример для директ3д, для директдрав должно быть

Dim "Имя поверхности" As DirectDrawSurface7

Эта строка фактически не нужна (только для примера)! Если картинка на экране, значит поверхность уже давно создана (ессно в режиме директдрав). Используй её.

Имя поверхности.BltToDC Me.hDC, RC, RC

[vbman]

OK! Спасибо Yurich!