1. Introducción
Como todos sabemos, Visual Basic 5.0 (VB5.0) proporciona herramientas y mecanismos completos necesarios para implementar programas avanzados de Windows, y sus potentes funciones han sido reconocidas por la mayoría de los desarrolladores de software. Explorer desempeña otro papel importante en el rápido desarrollo de la actualidad; Internet Su efecto indeleble, su capacidad para procesar HTML impresiona a todos los usuarios. Si se combinan VB5.0 y Explorer, esto no sólo será la guinda del pastel, sino que será aún más potente. En teoría, VB5.0 proporciona varios aspectos de experiencia para Internet y Explorer puede usar VBScript para ampliar sus funciones. Sin embargo, en la implementación real, los programadores encontrarán problemas de un tipo u otro. Ahora damos un ejemplo que se ha depurado con éxito. Siguiendo este método, los usuarios pueden llamar a Explore en cualquier lugar de su programa VB5.0 para facilitar el uso de "archivos de ayuda" o "hipervínculos".
2. Método de implementación
Primero seleccione "Proyecto/Componentes" en el menú VB5.0, luego seleccione los dos controles MicrosoftInternetcontrols y MicrosoftcommonDialogControl5.0 para agregar los íconos WebBrowser y Commodialog a la barra de herramientas, y luego Finalmente, en el formulario Form1, como se muestra en la Figura 1, introduzca dos etiquetas, un texto, tres comandos y un CommoDialog. Los títulos de los tres comandos son "Examinar", "Abrir HTM" y "Cancelar", que se utilizan. para escribir es conveniente nombrar el Commodialog como cd.
En el programa se genera un destino ii de tipo Internet Explorer Al llamar al método ii.Navigatetext1, navNoreadfromcache, el nombre del archivo HTML lo proporciona text1.text, es decir, la URL se proporciona a través de Text1. no solo puedo usar VB5 .0 puede abrir la ventana del Explorador libremente, y la URL y la apariencia de la ventana también están determinadas por VB5.0. Para hacerlo más claro, elimine los botones estándar, la barra de direcciones, los enlaces y las etiquetas de texto en Vista/opciones/general del Explorador.
Entre ellos, la URL se puede ingresar directamente o seleccionar mediante la navegación.
3. Procedimiento
Dimii
PRIvateSubCommand1_Click()
Banderas Cd=&H200
Cd.Filter="Archivos HTML(*.htm)|*.htm|Archivos de texto"&_
"(*.txt)|*.txt|Todos los archivos(*.*)|*.*"
Cd.MostrarAbierto
Texto1=Cd.nombre de archivo
Command2.Visible=Verdadero
FinSub
PrivadoSubCommand2_Click()
Setii=GetObject("","INTERNETEXPLORER.aplicación")
ii.NavigateText1,navNoReadFromCache
ii.Visible=1
ii.Arriba=0
ii.Izquierda=0
ii.Ancho=Forma1.Ancho
ii.Altura=Altura.de.la pantalla
FinSub
PrivadoSubCommand3_Click()
Texto1=""
Descargarme
FinSub
PrivadoSubForm_Load()
Formulario1.Arriba=Pantalla.Altura/4
Formulario1.Izquierda=0
Formulario1.Ancho=Pantalla.Ancho
Formulario1.Altura=Pantalla.Altura/2
Formulario1.BackColor=QBColor(2)
Etiqueta1.BackStyle=0
Label1.FontName="Soporte"
Etiqueta1.FontSize=14
Etiqueta1.ForeColor=QBColor(7)
Etiqueta2.BackStyle=0
Etiqueta2.Caption="HTML"
Label2.FontName="pincel"
Etiqueta2.FontSize=24
Command2.Visible=Falso
FinSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
SiKeyAscii=13Entonces
Setii=GetObject("","INTERNETEXPLORER.APLICACIÓN")
ii.NavigateText1,navNoReadFromCache
ii.Visible=1
ii.Arriba=0
ii.Izquierda=0
ii.Ancho=Forma1.Ancho
ii.Altura=Altura.de.la pantalla
Fin si
FinSub->