Gravar Imagem Em 800x600

[Andersonjb]

E ai pessoal, firmeza? O negocio e o seguinte: estou capturando a tela do desktop e gravando num arquivo de imagem. Só que o problema é que eu não consigo redimensionar a imagem na resolução que eu quero.

Olhem o código:

Declarando as API's

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 Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Capturando Imagem e Salvando:

        Picture1.AutoRedraw = True
        Picture1.Height = Screen.Height
        Picture1.Width = Screen.Width
        h = GetDC(GetDesktopWindow())
        BitBlt Picture1.hDC, 0, 0, 800, 600, h, 0, 0, vbSrcCopy
        SavePicture Picture1.image, Img_Modif

Img_Modif é o endereço da minha imagem.

Bem, alguém tem alguma idéia de como eu possa redimensionar a minha imagem?

Ah, só uma outra coisa:

Eu tentei mexer em alguns parâmetros da Função GetDC, no caso, as duas seguintes que contem o "0,0", e elas não mudaram a resolução, a apenas cortaram a imagem, salvando com a mesma resolução e com o resto que foi cortado em branco.

[Graymalkin]

Utilize a função StretchBlt ao invés de BitBlt.

Abraços,

Graymalkin

[Andersonjb]

Deu certo, valeu Gray!

Agora só um pouquinho por fora do assunto:

Não existe algum site em Portuga (Português) de API's não? Poxa, pra quem não manja muito de inglês que nem eu, é complicado...

Falows!

[Graymalkin]

Que eu saiba não tem algo assim. O melhor guia de funções da API Win32 que conheço é o API-Guide: http://www.devhood.com/tools/tool_details.aspx?tool_id=563

(Ele é em Inglês - mas tem Russo e Holandês também [se você achar mais fácil que Inglês]... :D :P)

Abraços,

Graymalkin