¿Crear tu propio navegador? ¿Hay algún error? Sin mencionar gigantes como IE, incluso el compacto Opera, la mayoría de nosotros, la gente común, nunca podremos hacerlo. Pero si tienes instalada la versión profesional VB5.0 en tu máquina, las cosas serán mucho más fáciles. ¿Quieres probarlo? Bueno, ¡vamos!
El protagonista del programa es un control ActiveX: WebBrowser. Por supuesto, no está incluido en la caja de herramientas de VB de forma predeterminada. Tenemos que agregarlo manualmente. El método es: haga clic derecho en la caja de herramientas, seleccione "Partes ..." en el menú contextual que aparece y asegúrese de que así sea. seleccionado en la pestaña "Controles" del cuadro de diálogo emergente, busque Controles de Internet de Microsoft, marque la pequeña casilla que se encuentra frente a él y luego Aceptar. En este punto encontrarás dos pequeños íconos más en la caja de herramientas. Entre ellos, el control representado por el ícono del globo es el WebBrowser que necesitamos.
Dado que muchas personas no están muy familiarizadas con el control WebBrowser y no hay contenido al respecto en la ayuda de VB (de todos modos no lo encontré), es necesario introducir sus propiedades, métodos y eventos. solo cubrimos los utilizados en el programa de:
Propiedad: LocationURL Devuelve la URL de la página WEB mostrada por el control.
Método: Navegue por las transferencias a la URL especificada o abra el archivo HTML especificado.
Evento: 1． DownloadBegin Se activa cuando comienza la operación de descarga.
2. DownloadComplete Se activa cuando una operación de descarga se completa, finaliza o falla.
3. El control ProgressChange WebBrowser rastrea el progreso de la operación de descarga y activa este evento periódicamente. La sintaxis es: Sub WebBrowser_ProgressChange (ByVal Progress As Long, ByVal ProgressMax As Long). El argumento Progress es la cantidad total de datos descargados actualmente y el argumento ProgressMax es la cantidad total de datos que se descargarán.
4. TitleChange se activa cuando cambia el título del documento actual.
Además del control WebBrowser, el programa también necesita un control Label: Label1; un control ComboBox: combo1, usado para mostrar la dirección URL; un control StatusBar: StatusBar1 un control ProgressBar: ProgressBar1, usado para mostrar el progreso de la descarga (StatusBar; El control y el control ProgressBar son El control ActiveX es miembro de Microsoft Windows Common Controls 5.0. El método para agregarlo a la caja de herramientas es el mismo que el control WebBrowser. Los valores de propiedad de estos controles usan valores predeterminados.
Aquí está la lista del programa:
| Opción explícita Subformulario privado_Load() Me.Caption="Mi Explorador" Etiqueta1.Caption = "URL" Combo1.Texto = "" Combo1.Arriba = Etiqueta1.Altura Combo1.Izquierda = 0 WebBrowser1.Top = Combo1.Top + Combo1.Altura WebBrowser1.Izquierda = 0 Cambiar tamaño de formulario StatusBar1.Style = sbrSimple ProgressBar1.Zorder Subtítulo final |
| Subformulario privado_Resize() En caso de error Ir a un Combo1.Ancho = Formulario1.Ancho - 100 WebBrowser1.Ancho = Combo1.Ancho WebBrowser1.Altura = Formulario1.Altura - Combo1.Altura - 1000 ProgressBar1.Top = Me.Height - StatusBar1.Height - 330 ProgressBar1.Left = 0,25 * StatusBar1.Width ProgressBar1.Width = 0,75 * Me.Width - 250 a: Subtítulo final |
| Subcombo privado1_Click() `Ir a la URL especificada Navegador web1.Combo de navegación1.Texto Subtítulo final Subcombo privado1_KeyDown (código clave como número entero, cambio como número entero) Atenúelo mientras Dim existía como booleano Si código clave = 13 entonces Si queda(Combo1.Text, 7) <> "http://"Entonces Combo1.Texto = "http://"+ Combo1.Texto Terminar si Navegador web1.Combo de navegación1.Texto Para I = 0 A Combo1.ListCount - 1 Si Combo1.List(I) = Combo1.Text Entonces existió = Verdadero Salir por Demás existió = falso Terminar si Próximo Si no existió entonces Combo1.AddItem (Combo1.Texto) Terminar si Terminar si Subtítulo final |
| Navegador web secundario privado1_DownloadBegin() `Cuando comienza la descarga, la barra de estado muestra "Ahora vinculando..." StatusBar1.SimpleText = "Ahora vinculando..." Subtítulo final |
| Navegador web secundario privado1_DownloadComplete() `Cuando se completa la descarga, la barra de estado muestra "Enlace finalizado". StatusBar1.SimpleText = "Enlace finalizado" Barra de progreso1.Valor = 0 Subtítulo final |
| Private Sub WebBrowser1_ProgressChange (ByVal Progreso siempre, ByVal ProgressMax Mientras) `La barra de progreso cambia cuando la descarga está en curso Si ProgressMax = 0, entonces salga de Sub ProgressBar1.Max = ProgresoMax Si Progreso <> -1 y Progreso <= ProgresoMax Entonces ProgressBar1.Value = Progreso Terminar si Subtítulo final |
| Private Sub WebBrowser1_TitleChange (texto ByVal como cadena) Combo1.Texto = WebBrowser1.UbicaciónURL Subtítulo final |