SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: J-Lo en Jueves 25 de Septiembre de 2008, 19:07

Título: Una mano con control...
Publicado por: J-Lo en Jueves 25 de Septiembre de 2008, 19:07
(No sabía dónde postearlo...)

Hola, vereis;

tengo un formulario con un text box y un button...

Lo que quiero intentar saber es como hacer entrar a una URL escrita en el textbot, en el button1 tengo esto:

Código: Text
  1.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.  
  3.         Dim Web As String
  4.  
  5.         Web = "Web escrita en el textbox"
  6.  
  7.         Shell("Explorer " & Web)
  8.     End Sub
  9.  
Me he exprimido al máximo... y sigo pensando que es algo fácil, aunque ahora no me doy cuenta... Necesito que alguien me ayude... gracias al que lo intente  ^_^
Título: Re: Una mano con control...
Publicado por: m0skit0 en Viernes 26 de Septiembre de 2008, 08:52
Pregunta fundamental: ¿dónde quieres que se abra la URL? ¿En el Internet explorer? ¿En el explorador de Windows? ¿En el mismo formulario?
Título: Re: Una mano con control...
Publicado por: Jimbenit en Martes 30 de Septiembre de 2008, 16:03
Seria interesante ver como se abre en el mismo formulario. :mellow:
Título: Re: Una mano con control...
Publicado por: m0skit0 en Martes 30 de Septiembre de 2008, 17:02
Cita de: "Nilson Yair"
Seria interesante ver como se abre en el mismo formulario. :mellow:

En este caso tenemos 2 opciones:

1) Control WebBrowser en Microsoft Internet Controls
2) Winsockets + protocolo HTTP + parser de HTML (un navegador, vamos...)

Le segunda opción es desde luego la más difícil y gratificante (suelen ir parejo).
Título: Re: Una mano con control...
Publicado por: J-Lo en Martes 30 de Septiembre de 2008, 22:01
Quiero que se abra en el webrowser prefeterminado del que use el programa
Título: Re: Una mano con control...
Publicado por: m0skit0 en Miércoles 1 de Octubre de 2008, 09:44
Entonces con Shell no te vale, vas a tener que usar la librería shell32.dll, concretamente la función ShellExecute. La declaramos así:

Código: Visual Basic
  1.  
  2. Public 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
  3.  
  4.  

Usarla:

Código: Visual Basic
  1.  
  2.     ShellExecute 0, "open", Web, vbNullString, vbNullString, 1
  3.  
  4.  

Un saludo.