Programación General > Visual Basic 6.0 e inferiores

 Abrir Una Pagina Web Desde Visual

(1/1)

Yovana:
Buenas


La Situación es la siguiente tengo la ayuda de sistema en visual 6.0 hecha en paginas Web la pregunta es de una lista o de un menu que tengo en el formulario donde esta cada modulo de la ayuda como llamo la pagina para que se abra dependiendo el modulo que solicite el usuario



Gracias por su valiosa ayuda

ArKaNtOs:
se puede con la api de windows shellexecute, aqui un ejemplo que te dara ideas :)


--- Código: Text ---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 LongPrivate Const SW_SHOWNORMAL = 1 Private Sub Command1_Click()ShellExecute 0&, vbNullString, "http://foros.solocodigo.com", vbNullString, "C:\Archivos de Programas\Mozilla Firefox\firefox.exe", SW_SHOWNORMALEnd Sub  :)

Mollense:
Bueno, yo lo hago así...

En un módulo:

--- Código: Text ---Public Sub abrirWeb(url As String)    ShellExecute 0, vbNullString, url, vbNullString, vbNullString, vbNormalFocusEnd Sub 
y lo llamas así:

--- Citar ---Private Sub bt_irWeb_Click()
    abrirWeb (URL)
End Sub
--- Fin de la cita ---

Espero sea esto lo que necesitas.

Saludos

lois_:
Otra opción sería abrirla en un objeto WebBrowser, de esta forma la visualizarías en tu formulario:

--- Código: Text ---WebBrowser1.Navigate "http://mipagina.com/archivo.htm" Un saludo :)

F_Tanori:
Es mejor ShellExecute porque ejecuta una aplicacion por accion asociada


Esto tambien funciona
Solo que seria "casarse" con el Internet exporer pero es una opcion ;) en alguna ocasion puede servir :P


--- Código: Text --- Private Sub Command1_Click()    Navegador = Environ("programfiles") & "\Internet Explorer\iexplore.exe"    Shell Navegador & " http://foros.solocodigo.com/index.php", vbNormalFocusEnd Sub 
Saludos

Navegación

[0] Índice de Mensajes