Mensaje enviado por "Migue" <informatica@svmontalt.infomail.es>
Si utilizas el control de Imaging de Kodak prueba con esto :
Private Sub btnZoomMas_Click()
On Error Resume Next
'Incrementa el zoom sobre la imagen
ImgEdit1.Zoom = ImgEdit1.Zoom + 10
ImgEdit1.Refresh
If Err = 380 Then
MsgBox "La imagen ya no no puede aumentar más", vbCritical
End If
End Sub
Private Sub btnZoomMenos_Click()
On Error Resume Next
'Decrementa el zoom sobre la imagen
ImgEdit1.Zoom = ImgEdit1.Zoom - 10
'ImgEdit1.ForceTiffSingleStrip
ImgEdit1.Refresh
If Err = 380 Then
MsgBox "La imagen ya no puede disminuir más", vbCritical
End If
End Sub
-----Mensaje original-----
De: Marger [mailto:marteaga@xerox.com.ni]
Enviado el: dimarts, 18 / setembre / 200 23:14
Para: visualbasic-esp@yahoogroups.com
Asunto: (VB-ESP) Visualizar Archivos TIF
Hola amigo:
Necesito mostrar archivos TIF en una aplicación VB6.0, si alguien Sabe como o conoce un control
He peobado el WANG y el de KODAK pero no puedo hacer que las imagenes sean lo suficientemente grandes como para poder visualizarlas.
Saludes y Gracias.