Проблемма с сохранением картинки

[Sirik]

У меня есть одна проблемма:
я скопировал содержимое экрана в Picture1, потом мне надо эту картинку сохранить на диск. У меня при этом возникает ошибка.
Когда же я вставил в Picture1 любую картинку (путём копирование через буфер обмена - всё ок), а с функцией BitBlt ничего не получается.
Вот код, помогите кто чем может!!! Очень надо.

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

  Dim hDesk, hDeskDC
 
  hDesk = GetDesktopWindow()
  hDeskDC = GetDC(hDesk)
  BitBlt Picture1.hDC, 0, 0, Width, Height, hDeskDC, 0, 0, SRCCOPY

  SavePicture Picture1.Picture, "c:\Picture.bmp"


P.S. Функция BitBlt описана и константа как:

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

Public Declare Function BitBlt Lib "gdi32" (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

Public Const SRCCOPY = &HCC0020


[_Мика_]

Ну правильно Когда вы рисуете в PictureBox с помощью HDC то какртинки в нем нету т.е Picture1.Picture=0 образно!!!
SavePicture Picture1.Image, "c:\Picture.bmp"

[Sirik]

_Мика_, БОЛЬШОЕ спасибо!!!
Правильно Picture1.Picture=0, только я не мог понять почему!
Теперь всё понятно. Ещё раз спасибо

[Sirik]

Теперь ещё один вопрос:
я копирую всю область рабочего стола, а сохраняется на диск только та часть, которая "влезла" в Picture1!!!
Проблемма в том, что не могу Picture1 "растянуть" на весь экран, тем более эта опирация должна происходить без ведома пользователя.
Может кто-то чтонибудь посоветует???

[Sirik]

Я сам разобрался, спасибо всем!!!

[Шурик]

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

Set pic = Picture1.Picture
SavePicture pic, "......\123.bmp"


[_Мика_]

Picture1.AutoRedraw=True

[A.A.Z.]

AutoSize
AutoRedraw - автоперерисовка, а не авторазмер

[_Мика_]

Да нет A.Z.Z. у него просто пикчер маленький, он снимает скрин и потом сохраняет а поскольку авторедро не стоит то сохраняется только видимая часть