Visual Basic - internet

Life is soft - evento anual de software empresarial
   
Vista:

internet

Publicado por Hubert (12 intervenciones) el 26/02/2008 15:48:42
Yo uso Visual basic 6.0 y necesito saber como poner un hipervinculo en mi programa a una pagina de internet., espero que alguien me pueda ayudar. Gracias
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:internet

Publicado por alejandro (61 intervenciones) el 26/02/2008 16:11:40
Shell ("C:Archivos de programaInternet Exploreriexplore.exe http://www.lawebdelprogramador.com/")

esto funciona,pero es una mala solucion pues necesitas tener el explorer en una carpeta determinada. Seguro q a partir de aqui encuentras un metodo mejor.
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:internet

Publicado por Pere (54 intervenciones) el 26/02/2008 17:36:34
En Componentes tienes que añadir el WebBrowser (Microsoft Internet Controls)
El archivo es el Shdocvw.dll

Dim lanza as long

Puedes llamarlo de varia maneras (las direcciones son ficticias):

Lanza = RunBrowser("http://traductor.es.net/index_ca.jsp", SW_SHOWMAXIMIZED) 'SW_SHOWDEFAULT)

Lanza = RunBrowser("http://105.308.179.18/web/index2.html", SW_SHOWNORMAL)

Lanza = RunBrowser("https://www.matu-societi.uk", SW_SHOWMAXIMIZED

Espero haberte ayudado.

Un saludo
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:internet

Publicado por nesti (29 intervenciones) el 26/02/2008 23:04:41
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 Command1_Click()
ShellExecute hwnd, "open", "http://www.terra.es", vbNullString, vbNullString, conSwNormal

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