SS

USUARIO.EXCLUIDOS 06/09/2007 15:47:30
#234545
Fazendo um programa em VB, que apertando uma tecla atalho, ele tira uma SCREN SHOT, e grava no diretorio desejado, isso seria possivel ?
USUARIO.EXCLUIDOS 06/09/2007 16:00:59
#234548 Resposta escolhida
Ola DonFlyer,

Faz o seguinte:

Private Declare Sub keybd_event Lib "user32" _
        (ByVal bVk As Byte, ByVal bScan As _
        Byte, ByVal dwFlags As Long, ByVal _
        dwExtraInfo As Long)


Private Sub cmdPegarImagem_Click() 'Pega a imagem da tela ATIVA e salva na memoria..como se a pessoa tivesse pressionado o PrintScreen
  Picture1.AutoSize = True
  keybd_event vbKeySnapshot, 1, 0&, 0&
  DoEvents
  Picture1.Picture = Clipboard.GetData(vbCFBitmap)
End Sub


Private Sub cmdGravar_Click()'Grava a Imagem no endereço passado.
  SavePicture Picture1.Image, "C:\Teste.BMP"
End Sub
USUARIO.EXCLUIDOS 06/09/2007 16:03:01
#234550
ae kara tranquilo ;P, vamo ve .
USUARIO.EXCLUIDOS 06/09/2007 16:07:37
#234554
Ae meu velho, mais como eu tiro a ss pra grava direto ?
Tipo eu to precisano de um botão atalho, que vamos dizer apertaçe F2
ai ele gravaria a imagem direto .
USUARIO.EXCLUIDOS 06/09/2007 16:11:15
#234558 
Private Declare Sub keybd_event Lib "user32" _
        (ByVal bVk As Byte, ByVal bScan As _
        Byte, ByVal dwFlags As Long, ByVal _
        dwExtraInfo As Long)


Public Sub ScreenShot() 'Pega a imagem da tela ATIVA e salva na memoria..como se a pessoa tivesse pressionado o PrintScreen
  Picture1.AutoSize = True
  keybd_event vbKeySnapshot, 1, 0&, 0&
  DoEvents
  Picture1.Picture = Clipboard.GetData(vbCFBitmap)
  SavePicture Picture1.Image, "C:\foto.bmp"
End Sub


Ai no evento preview do form vc coloca true

Então define no form_KeyPress se for igual a tecla pressionada chama a função.
USUARIO.EXCLUIDOS 06/09/2007 16:23:29
#234560
Vai ficar algo parecido com isso abaixo:

Private Declare Sub keybd_event Lib "user32" _
        (ByVal bVk As Byte, ByVal bScan As _
        Byte, ByVal dwFlags As Long, ByVal _
        dwExtraInfo As Long)



[c]Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 112 Then
  ScreenShot
End If
End Sub


Public Sub ScreenShot() 'Pega a imagem da tela ATIVA e salva na memoria..como se a pessoa tivesse pressionado o PrintScreen
  keybd_event vbKeySnapshot, 1, 0&, 0&
  DoEvents
  SavePicture Clipboard.GetData(vbCFBitmap), "C:\foto.bmp"
End Sub

[/c]
USUARIO.EXCLUIDOS 06/09/2007 16:27:54
#234563
Sim cara mais eu só não intendi uma coisa, eu fiz tdu sertinho, mais cara como vo tira a foto ? qual botão ? que comando ?
Como faço pra tira a foto, pra i no c: ? quando compila o programa ?
USUARIO.EXCLUIDOS 06/09/2007 16:29:51
#234564
If KeyAscii = 112 Then ' Nessa parte eu defini com a tecla "P"

PAra vc mudar o botao procura por Tabela Ascii no google vc vai pegar todos os valores dos botoes em ASCII entao e so mudar o 112 para o numero do botao que vc precisa.
USUARIO.EXCLUIDOS 06/09/2007 16:35:16
#234567
Valew cara, mais uma vez você tiro minha duvido, muito obrigado.
Tópico encerrado , respostas não são mais permitidas
Voltar