Visual Basic - Abrir una página web con un botón

Life is soft - evento anual de software empresarial
 
Vista:

Abrir una página web con un botón

Publicado por Akos (5 intervenciones) el 25/08/2005 07:10:25
No es que quiera molestar, pero es que me urge saber con precisión cómo puedo hacer que un botón en Visual Basic 6.0 al pulsarlo se abra una ventana del Internet Explorer.

Si es posible, alguien ilustremelo graficamente ya que vengo iniciando con este lenguaje de programación
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:Abrir una página web con un botón

Publicado por jlcastro (186 intervenciones) el 25/08/2005 09:35:12
Tienes que agregar a tu proyecto el siguiente control desde:
Herramientas\Proyecto\Componentes\Controles
Agrega el control ( Microsoft Internet Controls )

Agrega el siguiente codigo en el boton que tu quieres
Te abrira la lawebdelprogramador, Cambia la direcion por la que tu quieras

Private Sub Command1_Click()
ShellExecute hwnd, "open", "www.lawebdelprogramador.com",
vbNullString, vbNullString, conSwNormal
End Sub

Espero Te Sirva
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:Abrir una página web con un botón

Publicado por miguel (1042 intervenciones) el 25/08/2005 17:23:48
Puedes hacer tambien de esta manera:

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
Const SW_NORMAL = 1
Private Sub cmdLinkNBA_Click()
Dim X
X = ShellExecute(Me.hwnd, "Open", "http://www.nba.com", &O0, &O0, SW_NORMAL)
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

RE:Abrir una página web con un botón

Publicado por Akos (5 intervenciones) el 29/08/2005 06:36:17
Disculpa Miguel, pero a tu código no le entendí más que la URL.

JLCastro, gracias por tu ayuda, ahora mismo lo voy a provar. Toco madera
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:Abrir una página web con un botón

Publicado por Akos (5 intervenciones) el 30/08/2005 01:54:36
Oyes JLCastro, en tu codigo me marca un error de sintaxis en la linea:

ShellExecute hwnd, "open", "www.lawebdelprogramador.com",

Y la linea:
Private Sub Command1_Click() Me la marca de amarillo.

Ya le puso lo de los complementos de internet y aun asi no jala
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:Abrir una página web con un botón

Publicado por Low (102 intervenciones) el 30/08/2005 08:19:11
Es que el codigo que te dio no son dos lineas sino una...
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:Abrir una página web con un botón

Publicado por Akos (5 intervenciones) el 31/08/2005 02:06:16
Ahora más confundido estoy
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
sin imagen de perfil

RE:Abrir una página web con un botón

Publicado por Raúl Santiago (178 intervenciones) el 31/08/2005 02:32:01
Amigo te voy a explicar un poquito más en detalle lo que te explicaron, ya para qeu entiendas.

Lo primero es incluir el control qeu te va a dejar manejar el explorer, qeu se puede hacer como te explicaron arriba o declarando esta función

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

solo copiarla

lo otro es saber la forma de la página, mejor dicho debajo de la sentencia anterior pegas

Const SW_SHOWNORMAL = 1

Los dos en la parte general del programa

Ahora en el evento click de algo, puede ser un botón o un label o cualquier otro evento haces la función qeu te abre la página web

ShellExecute Me.hWnd, "open", "http://www.rsmunoza.tk", "", "C:\\", SW_SHOWNORMAL

y listo.

Lo qeu te decian de que es solo un renglón de código es que mira que aquí se ve la primera declaración como si fueran varios renglones pero en sí es uno, igualmente este llamado es solo en un renglón de código, no lo pongas en varios porqeu no va a funcionar así

Espero qeu así lo entiendas mejor, Saludos
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:Abrir una página web con un botón

Publicado por Akos (5 intervenciones) el 01/09/2005 22:09:35
Ah!!!!!!!!!1, vaya, ahora si le entendí. Voy a hacer la cala y despues digo si funciono
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:Abrir una página web con un botón

Publicado por agustin (1 intervención) el 31/07/2008 03:22:55
disculpen

yo he leido e intentado de hacer todas estas respuestas anteriores.. y no he podido

yo quiero hace un boton en visual basic 6.0 que al apretarlo me abra una pagina web...
pero vuelvo a repetirlo. he provado las anteriores respestas y no he podido..

de ante mano gracias si alguien me podria ayudar
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:Abrir una página web con un botón

Publicado por rodlemor (1 intervención) el 17/10/2017 16:53:36
System.Diagnostics.Process.Start("www.paginaquequieresmostrar.com")
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:Abrir una página web con un botón

Publicado por saul (1 intervención) el 29/05/2019 18:26:28
gracias man me funciono.

nota: para los que no les funciona, quitenle el "http:" a mi tampoco me funcionaba, pero le borre y solo deje hasta el www y funciono bien
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:Abrir una página web con un botón

Publicado por Daniel (4 intervenciones) el 18/10/2019 22:13:25
Hola a todos!
A mí me funcionó con el http...
Lo que veo que por ahí no está explicado, quizá porque lo den por obvio... es que esta declaración va en la sección General - Declaraciones del formulario que tengas el botón de comando.

1
2
3
4
5
6
7
8
9
10
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
 
    Const SW_NORMAL = 1
 
Luego, en el botón de comando que tengas:
 
Dim X
X = ShellExecute(Me.hwnd, "Open", "http://www.lawebdelprogramador.com", &O0, &O0, SW_NORMAL)

EXCELENTE! A mí me sirvió.

Saludos!
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