Olá pessoal,

 

gostaria de saber se há possibilidade de tratar o tamanho de uma imagem que vc pegou simulando um Print Screen no VB, estou usando o seguinte  código na procedure

 

Public Sub SimularPrintScreen(ByVal vblnFullScreen As Boolean)

    If vblnFullScreen Then
       Call keybd_event(VK_SNAPSHOT, 0, 0&, 0&)
    Else
       Call keybd_event(VK_SNAPSHOT, 1, 0&, 0&)
    End If
    
    

   
    dia = Format$(Now, "dd")
    mes = Format$(Now, "mm")
    ano = Format$(Now, "yyyy")
    hora = Format$(Now, "hh-mm-ss")
    Data = CStr(dia) + "_" + CStr(mes) + "_" + CStr(ano) + "_" + CStr(hora)
    nome = CStr(GetComputer()) + "_" + CStr(Data)
    
    
   
    SavePicture Clipboard.GetData(vbCFBitmap), "ERROR_" + CStr(nome) + ".jpg"
   
   
    imagem = Clipboard.GetData(vbCFBitmap)
    imagem2 = Clipboard.GetData(vbCFBitmap)
   
    pic.Picture = Clipboard.GetData(vbCFBitmap)
    pic.ScaleHeight = 256
    pic.ScaleWidth = 192

esse código não diminui o tamanho da imagem, apenas pega o canto superior esuqerdo do Print Screen
    
    img.Picture = Clipboard.GetData(vbCFBitmap)
   
    SavePicture pic.Image, "Teste_ERROR_" + CStr(nome) + ".jpg"
    SavePicture img.Picture, "Teste2_ERROR_" + CStr(nome) + ".jpg"
   

   
como vcs podem ver eu usei uma PictureBox e uma Image, mas não consegui tratar a imagem de forma a diminuí-la ou aumentá-la, se for possível digam como tratá-la usando porcentagem com pixels

 

 

Veja se ajuda

 

    'aqui a figura é salva, é possível definir outra pasta
    SavePicture Clipboard.GetData(vbCFBitmap), "ERROR_" + CStr(nome) + ".jpg"
   
   
    imagem = Clipboard.GetData(vbCFBitmap)
    imagem2 = Clipboard.GetData(vbCFBitmap)
   
   
'    Salvar imagem com tamanho diferente em um arquivo
    pic.Picture = Clipboard.GetData(vbCFBitmap)
    pic.AutoRedraw = True
    pic.PaintPicture pic, 0, 0, 256, 192
    SavePicture pic.Image, "Teste_ERROR_" + CStr(nome) + ".jpg"

esse valor continua retornando apenas o canto superior esquero da tela
    img.Picture = Clipboard.GetData(vbCFBitmap)
   
   
    SavePicture img.Picture, "Teste2_ERROR_" + CStr(nome) + ".jpg"
   
gostaria de saber um mode fazer isso: