Visual Basic - Abrir web desde una etiqueta

Life is soft - evento anual de software empresarial
 
Vista:

Abrir web desde una etiqueta

Publicado por Gelmin Martinez (4 intervenciones) el 02/12/2004 22:15:28
Hey alguien save como puedo abrir una pagina web desde una etiqueta en visual basic o sea quiero insertar una etiqueta que sea un link a una pagina web y cuando den clic en ella que se abra el internet y me muestre esa pagina.... Saludos Gelmin Martinez (Nicaragua)
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 web desde una etiqueta

Publicado por Iván Calderón (76 intervenciones) el 02/12/2004 22:25:03
Con la instruccion shell lo puedes hacer, lo unico es determinar donde este el navegador algo asi:
private sub lblvinculo_click()
dim res
res=shell("C:\Archivos de programa\Internet Explorer\IEXPLORE.EXE www.tupagina.com",vbmaximedfocus)
'Claro suponiendo q esa sea la ubicacion del navegador
'espero te sirva
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 web desde una etiqueta

Publicado por Gelmin Martinez (4 intervenciones) el 02/12/2004 22:33:50
ok voy a probar, pero no me gusta mucho esa solucion porque si el explorer no esta en esa direccion no va a funcionar...pero bueno gracias por tu tiempo ok Saludos Gelmin Martinez (Nicaragua)
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 web desde una etiqueta

Publicado por POLA (522 intervenciones) el 03/12/2004 15:09:30
Puedes utilizar la siguiente API:

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

Luego en el evento Click de tu etiqueta pones lo siguiente:

Dim Web As Long
Web = ShellExecute(Me.hwnd, "OPEN", Label1.Caption, "", "C:\", 1)

Espero te sirva. Saludos Pola
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 web desde una etiqueta

Publicado por Luis Atondo (28 intervenciones) el 03/12/2004 18:24:57
'podrias utiliar esta funcion
Public ie As Internetexplorer

sub Abrir Iexprorer()
pagina = Trim(Label1.Caption)
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate2 pagina
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