Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: Powa en 31 Agosto 2009, 16:54 PM

Título: [Ayuda] Mi otro programa
Publicado por: Powa en 31 Agosto 2009, 16:54 PM
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.
Título: Re: [Ayuda] Mi otro programa
Publicado por: .;. 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
Título: Re: [Ayuda] Mi otro programa
Publicado por: Powa en 31 Agosto 2009, 17:28 PM
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!