Visual Basic - salvar screen

Life is soft - evento anual de software empresarial
   
Vista:

salvar screen

Publicado por luis (10 intervenciones) el 04/10/2007 20:16:51
Alguien sabe cómo se puede guardar la pantalla actual en un fichero. Por ejemplo, en un momento determinado surge un error y en la rutina que lo gestiona me interesa salvar la pantalla a fichero para más tarde analizar la situación.

Muchas gracias a todos. Luis...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ahi va un ejemplo ...

Publicado por Semper (25 intervenciones) el 04/10/2007 22:25:30
En un modulo .BAS pones lo siguiente ...

'''''''''''''''''''
Private Declare Function PrintWindow Lib "user32" ( _
ByVal hwnd As Long, ByVal hdcBlt As Long, _
ByVal nFlags As Long) As Long

Public Sub Captura_Pantalla(Formulario As Form, err As ErrObject)
Dim oPictureBox As PictureBox

Set oPictureBox = Formulario.Controls.Add("vb.PictureBox", "oPictureBox1")
oPictureBox.AutoRedraw = True
oPictureBox.BorderStyle = vbBSNone
oPictureBox.Height = Formulario.Height
oPictureBox.Width = Formulario.Width


Call PrintWindow(Formulario.hwnd, oPictureBox.hDC, 0)

SavePicture oPictureBox.Image, App.Path & "\" & Format(Now, "yyyymmdd_hhmmss") & _
"_" & Formulario.Name & _
"_Error_" & err.Number & ".bmp"

Formulario.Controls.Remove "oPictureBox1"
End Sub

'''''''''''''''''''''''''''''

El SUB generara un BMP con la pantalla indicada en el PATH de tu aplicacion.

Desde tu aplicacion, al generarse un error llamas al SUB pasandole el fomulario y el Error generado ...

Ejemplo ...

Private Sub Command1_Click()
Dim nX As Long

On Error GoTo Error_Generico

' Tus instrucciones ...

Exit Sub

Error_Generico:
Call Captura_Pantalla( Me, Err )
MsgBox "Se genero pantalla de error !"

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar