Visual Basic - Ayuda con Picturebox

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda con Picturebox

Publicado por Juan (5 intervenciones) el 10/10/2006 19:47:32
Hola, tengo un problema con un picture box, yo le estoy cargando una imagen que capture desde una capturadora de video, pero antes de guardarla tengo que agregarle un texto, lo hago con print, el tema es que cuando hago un savepicture no me guarda lo que puse en el print, alguien sabe como puedo hacer para que me guarde las dos cosas como imagen? gracias
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
sin imagen de perfil
Val: 119
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:Ayuda con Picturebox

Publicado por Christian (713 intervenciones) el 11/10/2006 05:38:51
Hola amigo la idea es la siguiente metes un picture con tu imagen dentro de ese picture un label transparente en donde escribis lo que quieras y en un segundo picture capturas el picture 1 con su contenido , vavava basta de palabra el codigo y ya ........

Dim Ret As Long
Dim WindowRect As RECT
Dim WindowhWnd As Long
Dim nHeight As Long, nWidth As Long

Private Declare Function BitBlt Lib "GDI32" (ByVal hDCDest As Long, ByVal XDest As Long, ByVal YDest As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hDCSrc As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As Long) As Long

Private Declare Function GetWindowDC Lib "user32" (ByVal hWnd As Long) As Long

Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Sub CaptureWindow(WindowhWnd As Long, Output As PictureBox)

Output.Cls 'Clear the picturebox
Ret = GetWindowRect(WindowhWnd, WindowRect) 'Get the windows co-ordinates
nWidth = WindowRect.Right - WindowRect.Left 'Get the windows Width
nHeight = WindowRect.Bottom - WindowRect.Top ' Get the windows height
Ret = BitBlt(Output.hDC, 0, 0, nWidth, nHeight, GetWindowDC(WindowhWnd), 0, 0, vbSrcCopy) 'Get the windows image and copy it To the Picturebox
End Sub

Private Sub Command1_Click()

CaptureWindow Picture1.hWnd, Picture2
End Sub

Private Sub Text1_Change()
Label1.Caption = Text1.Text
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