Visual Basic para Aplicaciones - Mostrar imagen desde FTP en un form en VBA

Life is soft - evento anual de software empresarial
   
Vista:

Mostrar imagen desde FTP en un form en VBA

Publicado por BioK (11 intervenciones) el 16/07/2008 07:46:06
Hola tengo que modificar un plug in para Corel, necesito mostrar en el form una Imagen que tengo que obtenerla desde un FTP. Y cuando haces click en la imagen (tambien podria ser un .gif o hasta un flash) tendria que direccionar a una pagina web, abrir el Browser con la pagina web X. Estuve buscando que en VB se podria llegar a hacer quizas con el objeto WebBrowser, pero en VBA ni idea. Cualquier aporte, idea, sugerencia sera muy bien venida. Muchas Gracias. Saludos a todos en la WebDelProgramador. BioK
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Mostrar imagen desde FTP en un form en VBA

Publicado por BioK (11 intervenciones) el 17/07/2008 17:16:08
Bueno ya lo solucione asique aca les dejo el codigo de lo que hice si a algiuen le interesa.

Creamos Un modulo y adentro ponemos este codigo.

Declare Function shellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Declare Function URLDownloadToFile _
Lib "urlmon" _
Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Sub Descargar(Url As String)

Call URLDownloadToFile(0, Url, "C:imagen.gif", 0, 0)

End Sub


Public Sub launchBrowser(Url As String)
shellExecute 0, vbNullString, Url, vbNullString, vbNullString, 5
End Sub

'esta Subrutica descarga el archivo de la URL, lo carga en el objeto Image1, lo borra del disco con Kill, y luego muestra el form
Public Sub NombreDelMacros()
Call Descargar("http://URLdescarga/archivo.gif")
fComp.Image1.Picture = LoadPicture("C:imagen.gif")
Kill ("C:imagen.gif")
form.Show
End Sub

despues en el Form ponemos un objeto Image, y este codigo en el evento Click

Private Sub Image1_Click()
launchBrowser ("URLdestino")
End Sub

**** Con esto ejecutamos, nos carga en el Image la imagen que tenemos en http://URLdescarga/archivo.gif y cuando hacemos click en la imagen nos abre el browser por defecto y nos direcciona a "URLdestino". Espero esto le sirva a alguien. Saludos. BIOK <<-_->>
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Mostrar imagen desde FTP en un form en VBA

Publicado por BioK (11 intervenciones) el 17/07/2008 17:19:58
Jajaj me olvide de cambiar el fComp.Image1....... es particular de lo que yo estaba haciendo. Ahi tendria que ir el nombre de su Form. lo aclaro por si hay algun dormido por ahi que quiere probar y no le anda y no sabe porque jaja...

Public Sub NombreDelMacros()
Call Descargar("http://URLdescarga/archivo.gif")
form.Image1.Picture = LoadPicture("C:imagen.gif")
Kill ("C:imagen.gif")
form.Show
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar