Resumen Visualizar archivos TIF

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.



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com