USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Print Screen
Miro SA
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 22/04/2009 15:36 hs            
Ae..pessoal blz:?..alguem sabe como posso fazer o seuinte:
 
preciso dar um printscreen somente na imagem de um formulário q tem 1024 X 768 e preciso colocar essa imagem em um picturebox no tamanho de 320 X 240 é possivel?
 
Abraços
   
Treze
não registrado
ENUNCIADA !
Postada em 22/04/2009 18:48 hs   
copie todo texto abaixo, cole no bloco de notas e salve em uma pasta com a extensão frm.
 
ex: Form1.frm
 
VERSION 5.00
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   3960
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7650
   LinkTopic       =   "Form1"
   ScaleHeight     =   3960
   ScaleWidth      =   7650
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdSalvar
      Caption         =   "Salvar Arquivo"
      Height          =   855
      Left            =   5880
      TabIndex        =   2
      Top             =   3000
      Width           =   1695
   End
   Begin VB.CommandButton cmdCompleta
      Caption         =   "Janela Ativa"
      Height          =   855
      Left            =   5880
      TabIndex        =   1
      Top             =   1080
      Width           =   1695
   End
   Begin VB.CommandButton cmdAtiva
      Caption         =   "Toda tela"
      Height          =   855
      Left            =   5880
      TabIndex        =   0
      Top             =   120
      Width           =   1695
   End
   Begin VB.Image imgMiniatura
      Height          =   3735
      Left            =   120
      Stretch         =   -1  'True
      Top             =   120
      Width           =   5655
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_SNAPSHOT = &H2C
Private Sub cmdAtiva_Click()
'This calls the print screen for Active Window
Call keybd_event(vbKeySnapshot, 0, 0, 0)
DoEvents
'to get it from the clipboard
imgMiniatura.Picture = Clipboard.GetData()
End Sub
Private Sub cmdCompleta_Click()
'This calls the print screen for Entire Screen
Call keybd_event(vbKeySnapshot, 1, 0, 0)
DoEvents
'to get it from the clipboard an place on form
imgMiniatura.Picture = Clipboard.GetData()
End Sub
Private Sub cmdSalvar_Click()
    SavePicture imgMiniatura.Picture, InputBox("Local de Arquivo")
End Sub
teste veja se é isto
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página