Objeto OLE

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Utilizei a função abaixo para visualizar as fotos em um formulário.
Num campo texto armazeno somente o nome da foto.
Agora preciso fazer o mesmo procedimento para visualizar um desenho no CAD,
mas, não dá certo como devo fazer? Obrigada qualquer ajuda é urgente....pois
pelo método OLE é muito demorado.

Private Sub Form_Current()
Dim strFunc As String
If Not IsNull(GMFOTO) Then
strFunc = "C:\Imagens\" & CStr(Me.GMFOTO) & ".JPG"
If FileDIR(strFunc) Then
imgFoto.Picture = strFunc
Else
imgFoto.Picture = "C:\IMAGENS\SEMFOTO.JPG"
End If
End If
End Sub

Function FileDIR(strPath As String, Optional lngType As Long) As Integer

On Error Resume Next
FileDIR = Len(Dir(strPath, lngType)) > 0
End Function
 
Utilizei a função abaixo para visualizar as fotos em um formulário.
Num campo texto armazeno somente o nome da foto.
Agora preciso fazer o mesmo procedimento para visualizar um desenho no CAD,
mas, não dá certo como devo fazer? Obrigada qualquer ajuda é urgente....pois
pelo método OLE é muito demorado.

Private Sub Form_Current()
Dim strFunc As String
If Not IsNull(GMFOTO) Then
strFunc = "C:\Imagens\" & CStr(Me.GMFOTO) & ".JPG"
If FileDIR(strFunc) Then
imgFoto.Picture = strFunc
Else
imgFoto.Picture = "C:\IMAGENS\SEMFOTO.JPG"
End If
End If
End Sub

Function FileDIR(strPath As String, Optional lngType As Long) As Integer

On Error Resume Next
FileDIR = Len(Dir(strPath, lngType)) > 0
End Function
Click to expand...

Eu acredito que FileDir retornará sempre verdadeiro (- 1). Eu penso que de o
que você necessita é:

Private Sub Form_Current()
Dim strFunc As String
If Not IsNull(GMFOTO) Then
strFunc = "C:\Imagens\" & CStr(Me.GMFOTO) & ".JPG"
If FileDIR(strFunc) <> 0 Then ' Testar o valor aqui
imgFoto.Picture = strFunc
Else
imgFoto.Picture = "C:\IMAGENS\SEMFOTO.JPG"
End If
End If
End Sub

Function FileDIR(strPath As String, Optional lngType As Long) As Integer
On Error Resume Next
' Ajustar o valor de FileDir ao comprimento do trajeto
FileDIR = Len(Dir(strPath, lngType))
End Function

Cortesia da tradução de Google.

Eu espero que este ajude,

RD
 
Oi RD.
Já consegui resolver meu problema estou salvado meu desenho do Cad em wmf e
assim posso carregar o desenho com a mesma função abaixo só trocando o "jpg"
por "wmf". Obrigada pela atenção.

"RD" escreveu:
 
Back
Top