[Ayuda] Mi otro programa

Iniciado por Powa, 31 Agosto 2009, 16:54 PM

0 Miembros y 1 Visitante están viendo este tema.

Powa

Hola a todos, bueno quisiera saber como se hace que para que cuando uno haga click en una imagen lo lleve a un link por ejemplo, la imagen del logo de Google haga click y abra el navegador (pretemitado) y luego lleve a Google.

¿Se puede? Gracias.

Saludos.

.;.

Buscas la accion de la imagen.

Bueno te dejo el code:

Option Explicit

Private 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

Private Sub Image1_Click()
Dim X
X = ShellExecute(Me.hwnd, "Open", "http://www.google.com", &O0, &O0, 0)
End Sub

Powa

Cita de: P4|3L0 en 31 Agosto 2009, 17:10 PM
Buscas la accion de la imagen.

Bueno te dejo el code:

Option Explicit

Private 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

Private Sub Image1_Click()
Dim X
X = ShellExecute(Me.hwnd, "Open", "http://www.google.com", &O0, &O0, 0)
End Sub


Muchicimas gracias, me sirvio.

Saludos.

¡TEMA CERRADO!