• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

esquima

[vb.2005]Imprimir form

10 mensagens neste tópico

e guarda-se automaticamente para um ficheiro em formato de imagem?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

se é a unica maneira, entao  simmm lol :) e que na parte de imprimir nao percebo mesmo nada

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

depende, tipo é para uma coisa pessoal ou para divulgares ao people? eu, se fosse um programa para uso pessoal e que fosse compativel com este metodo, fazia:

um sendkeys para a tecla de printscreen, abria o paint atraves do ShellEx, fazia ctrl+v, fazia o atalho para guardar, fazia um sendkeys para o nome + um enter para guardar, e depois um sendkeys para fechar o paint... :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ah, pois, isso é mais complicado :)

encontrei uma coisa pode ser que te ajude... talvez :)

    Const SRCCOPY As Integer = &HCC0020
    Public Function BitBlt(ByVal hdcDest As IntPtr, ByVal nXDest As Integer, ByVal nYDest As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hdcSrc As IntPtr, ByVal nXSrc As Integer, ByVal nYSrc As Integer, ByVal dwRop As Integer) As Integer
    End Function

    Private Sub mniPrintScreen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniPrintScreen.Click
        Snapshot("\save.bmp", Me.CreateGraphics, Me.btnModule1A.Bounds)
    End Sub

    Private Sub Snapshot(ByVal filename As String, ByVal gx As Graphics, ByVal rect As Rectangle)
        Try
            ' Create compatible graphics
            Dim bmp As Bitmap = New Bitmap(rect.Width, rect.Height)
            Dim gxComp As Graphics = Graphics.FromImage(bmp)

            ' Blit the image data
            BitBlt(gxComp.GetHdc(), 0, 0, rect.Width, rect.Height, gx.GetHdc(), rect.Left, rect.Top, SRCCOPY)
            bmp.Save(filename, System.Drawing.Imaging.ImageFormat.Bmp)

            ' Cleanup
            bmp.Dispose()
            gxComp.Dispose()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
        End Try
    End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

eu realmente também não xD

mas tenta procurar no google por "vb.net take and save screenshot"

;)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora