Retroceder   Foros del Web > Temas generales de computación > Programación > Visual Basic

Respuesta
 
Herramientas Desplegado
Antiguo 31-mar-2005, 15:23   #1 (permalink)
FedericoC ha deshabilitado el karma
 
Fecha de Ingreso: junio-2004
Mensajes: 101
Problema al guardar imagenes...

Hola gente, tengo un problema y creo que ustedes me lo van a poder solucionar...
El problema es este:
Necesito guardar en ina imagen (.bmp), un formulario, osea, que incluya los picture box, label´s.etc. ¿Alguien sabe como puedo hacer?.
El otro problema es que yo no se cuantas imagenes/labels, va a haber en el formulario.
Muchas gracias...
FedericoC está desconectado   Responder Citando
Antiguo 31-mar-2005, 17:14   #2 (permalink)
vbx3m está en el buen camino
 
Avatar de vbx3m
 
Fecha de Ingreso: febrero-2005
Ubicación: Venezuela
Mensajes: 524
Enviar un mensaje por MSN a vbx3m Enviar un mensaje por Yahoo  a vbx3m
Cool

Para guardar el formulario prueba con esto:

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_SNAPSHOT = &H2C


Private Sub Command1_Click()
Clipboard.Clear
Call keybd_event(VK_SNAPSHOT, 1, 0, 0)
DoEvents
Picture1.Picture = Clipboard.GetData()
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
With Commondialog1
.DialogTitle = "Guardar imagen"
.Filter = "Bitmap (*.bmp)|*.bmp"
.CancelError = True
.Flags = &H2
.ShowSave
SavePicture Picture1.Picture, .FileName
End With
End Sub

Me avisas que tal...
__________________
ホルヘ・ラファエル・マルティネス・レオン
vbx3m está desconectado   Responder Citando
Respuesta

No hay votos aún.


Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder temas
No puedes subir archivos adjuntos
No puedes editar tus mensajes

BB code is Activado
Caritas están Activado
[IMG] está Activado
Código HTML está Desactivado


La Zona horaria es GMT -6. Ahora son las 06:30.


Message Board Statistics

LinkBacks Enabled by vBSEO 3.1.0

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93