Api - Paintdesktop

[TotZ]

Saudações

Em um formulário com o seguinte código:

Private Declare Function PaintDesktop Lib "user32" (ByVal hdc As Long) As Long

Private Sub Command1_Click()
PaintDesktop Picture1.hdc
End Sub


Private Sub Form_Activate()
Picture1.Top = 0
Picture1.Left = 0

Picture1.Height = Form1.Height
Picture1.Width = Form1.Width

Picture1.BorderStyle = 0
End Sub

Ao se clicar no Command1, a Picture1 (que ocupa todo o formulário) fica com a imagem que está sendo usa como papel de parede no momento.

Gostaria de praticamente tirar um "PrintScreen" da tela atrás do Form e joga-la picture. Ou seja, quero que além do papel de parede, também sejam mostrados os ícones da área de trabalho e o menu iniciar.

Como faço isso?

Obrigado.

[Graymalkin]

Experimente o seguinte:

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

Private Sub Command1_Click()
    BitBlt Picture1.hDC, 0, 0, 12000, 9000, GetWindowDC(GetDesktopWindow()), 0, 0, vbSrcCopy
End Sub

Seria isso?

Abraços,

Graymalkin

[TotZ]

Experimente o seguinte:

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

Private Sub Command1_Click()
    BitBlt Picture1.hDC, 0, 0, 12000, 9000, GetWindowDC(GetDesktopWindow()), 0, 0, vbSrcCopy
End Sub

Seria isso?

Abraços,

Graymalkin

Caro Graymalkin,

Essa solução é muito próxima da que eu desejava, contudo o próprio formulário aparece na picture. Isso acarreta em deixar a imagem totalmente cinza (a cor do form) quando o formulário está maximizado e sem borda.

Não há uma adaptação desse código para que o formulário não seja mostrado?

Obrigado.

[Graymalkin]

Talvez se você sumir com ele da tela (Visible = False), mas não testei. Experimente aí e dê um retorno.

Abraços,

Graymalkin

[TotZ]

Talvez se você sumir com ele da tela (Visible = False), mas não testei. Experimente aí e dê um retorno.

Abraços,

Graymalkin

Desculpe a demora para responder...

Com relação a tentar fazer com que o formulário ficasse invisível, funcionaria perfeitamente se não fosse um detalhe:

Quando a tela é minimizada, a Picture1 volta a ficar cinza. A imagem não se conserva. Isso pode ser facilmente observado se você rodar o código, arrastar o formulário até que metade dele estiver "para fora da área de exibição da tela" e depois voltar. A parte que foi coberta estará cinza.

Tentei colocar: "form1.picture = Picture1.picture" e "form1.picture = Picture1.image". Contudo, parece que o VB não entende que existe uma imagem ali.

Alguma sugestão?

[Graymalkin]

Já experimentou mudar a propriedade AutoRedraw da PictureBox para True?

Abraços,

Graymalkin

[Guest Guest]

Já experimentou mudar a propriedade AutoRedraw da PictureBox para True?

Já havia tentado.

Por padrão, o AutoRedraw vem False. Se eu setar para True depois de

BitBlt Picture1.hDC, 0, 0, 12000, 9000, GetWindowDC(GetDesktopWindow()), 0, 0, vbSrcCopy

não faz nenhum efeito, ou seja o problema ainda persiste.

Se eu ponho depois, aparece a seguinte mensagem de erro:

"Run-time error '480':

Can´t create a AutoRedraw image"

Alguma idéia?

[TotZ]

O post acima é meu.

Tinha esquecido do Login

[Graymalkin]

Acredito que você teria que definir AutoRedraw como True antes de desenhar na mesma. Experimente mudar nas propriedades do próprio controle e não via código.

Abraços,

Graymalkin

[TotZ]

Acredito que você teria que definir AutoRedraw como True antes de desenhar na mesma. Experimente mudar nas propriedades do próprio controle e não via código.

Como eu disse, se a propriedade AutoRedraw estiver definida com True (mesmo quando altero no próprio controle) antes da função ser executada, ao tentar desenhar a imagem na Picture1 aparece o tal erro "Can´t create a AutoRedraw image"

Não tenho mais idéias do que fazer

[Graymalkin]

Acredito que você teria que definir AutoRedraw como True antes de desenhar na mesma. Experimente mudar nas propriedades do próprio controle e não via código.

Como eu disse, se a propriedade AutoRedraw estiver definida com True (mesmo quando altero no próprio controle) antes da função ser executada, ao tentar desenhar a imagem na Picture1 aparece o tal erro "Can´t create a AutoRedraw image"

Não tenho mais idéias do que fazer

Aqui não dá este erro não, e a imagem se conserva na PictureBox. Experimente colocar o seguinte código no evento Load do form:

   Me.Visible = False
   BitBlt Picture1.hDC, 0, 0, 12000, 9000, GetWindowDC(GetDesktopWindow()), 0, 0, vbSrcCopy
   SavePicture Picture1.Image, "c:\teste.bmp"

Depois abra o arquivo c:\teste.bmp e veja se o conteúdo está correto.

Abraços,

Graymalkin

[TotZ]

Aqui não dá este erro não, e a imagem se conserva na PictureBox. Experimente colocar o seguinte código no evento Load do form:

   Me.Visible = False
   BitBlt Picture1.hDC, 0, 0, 12000, 9000, GetWindowDC(GetDesktopWindow()), 0, 0, vbSrcCopy
   SavePicture Picture1.Image, "c:\teste.bmp"

Depois abra o arquivo c:\teste.bmp e veja se o conteúdo está correto.

Executei a rotina e foi salva uma imagem de 77 x 29 pixels e toda cinza.

Acho que não funcionou...

[Graymalkin]

A picturebox tem que ter o tamanho da tela. E aqui funcionou.

Abraços,

Graymalkin