ABRIR TIF NO VB6

WCOSTA 18/12/2009 13:24:00
#330022 Resposta escolhida

Dá uma olhada neste exemplo http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=4923

ALEXANDRE2708 18/12/2009 15:14:55
#330033

Citação:

WCOSTA escreveu:
Dá uma olhada neste exemplo http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=4923

Eu já tinha baixado esse código. Quando executo o programa aparece :

[Ô]run-time error [Ô]429[Ô]
activex component can[ô]t create object[Ô]

o q faço????

WCOSTA 21/12/2009 10:26:46
#330151

Passa o código ai, para analizar.

ALEXANDRE2708 21/12/2009 16:01:48
#330220

Ai vai o código :

Option Explicit
Private m_img As GDIPImage
Private m_destPoints() As POINTL

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub File1_Click()
On Error GoTo errorHandler
If (m_img Is Nothing) Then
Set m_img = New GDIPImage
End If
m_img.FromFile Dir1 & [Ô]\[Ô] & File1
Dim gfx As New GDIPGraphics
Picture1.Picture = LoadPicture([Ô][Ô])
gfx.FromHDC Picture1.hDC
gfx.DrawImagePointLv m_img, 0, 0
gfx.Dispose
Image1.Picture = Picture1.Image
Exit Sub
errorHandler:
MsgBox [Ô]Ocorreu um erro ao carregar este arquivo: [Ô] & Err.Description, vbInformation
Set m_img = Nothing
Exit Sub
End Sub

Private Sub Form_Load()
Dir1.Path = [Ô]C:\[Ô]
File1.Pattern = [Ô]*.tif;*.png;*.bmp;*.dib;*.gif;*.jpg;*.wmf;*.emf;*.ico[Ô]
If Not (GDIPlusCreate()) Then
MsgBox [Ô]GDI+ Falhou na Inicialização[Ô], vbExclamation
Else
ReDim m_destPoints(0 To 2) As POINTL
End If
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If Not m_img Is Nothing Then
m_img.Dispose
Set m_img = Nothing
End If
GDIPlusDispose
End Sub

Private Sub Form_Unload(Cancel As Integer)
If Not m_img Is Nothing Then
m_img.Dispose
Set m_img = Nothing
End If
GDIPlusDispose
End Sub

WCOSTA 21/12/2009 21:35:30
#330236

Dá uma olhada neste exemplo aqui: http://www.vbaccelerator.com/home/vb/Code/vbMedia/Using_GDI_Plus/GDIPlus_Helper/GDIPlus_Wrapper.asp