1. Introdução
Como todos sabemos, o Visual Basic 5.0 (VB5.0) fornece ferramentas e mecanismos completos necessários para implementar programas avançados do Windows, e suas funções poderosas foram reconhecidas pela maioria dos desenvolvedores de software. O Explorer desempenha outro papel importante no rápido desenvolvimento dos atuais; Internet. Seu efeito indelével e sua capacidade de processar HTML impressionam todos os usuários. Se o VB5.0 e o Explorer forem combinados, isso não será apenas a cereja do bolo, mas ainda mais poderoso. Teoricamente, o VB5.0 fornece vários aspectos de conhecimento para a Internet, e o Explorer pode usar o VBScript para estender suas funções. No entanto, na implementação real, os programadores encontrarão problemas de um tipo ou de outro. . Seguindo este método, os usuários podem chamar o Explore em qualquer lugar do programa VB5.0 para facilitar o uso de "arquivos de ajuda" ou "hiperlinks".
2. Método de implementação
Primeiro selecione "Projeto/Componentes" no menu VB5.0, depois selecione os dois controles MicrosoftInternetcontrols e MicrosoftcommonDialogControl5.0 para adicionar os ícones WebBrowser e Commodialog à barra de ferramentas e, em seguida, Por fim, no formulário Form1, conforme mostrado na Figura 1, introduza dois Labels, um Text, três Commands e um CommoDialog. As legendas dos três comandos são "Browse", "Open HTM" e "Cancel", que são utilizadas. para escrever. É conveniente nomear o Commodialog como cd.
No programa é gerado um alvo do tipo Internet Explorer ii. Ao chamar o método ii.Navigatetext1, navNoreadfromcache, o nome do arquivo HTML é dado por text1.text, ou seja, a URL é dada através de Text1. não só pode usar VB5 .0 pode abrir a janela do Explorer livremente, e o URL e a aparência da janela também são determinados pelo VB5.0. Para torná-lo mais claro, remova StandardButtons, AddressBar, Links e TextLabels em View/options/general do Explorer.
Dentre eles, a URL pode ser inserida diretamente ou selecionada através da navegação.
3. Procedimento
Dimii
PRivateSubCommand1_Click()
Cd.Flags=&H200
Cd.Filter="Arquivos HTML(*.htm)|*.htm|Arquivos de texto"&_
"(*.txt)|*.txt|Todos os arquivos(*.*)|*.*"
Cd.ShowOpen
Text1=Cd.nome do arquivo
Command2.Visible = Verdadeiro
Fim Sub
PrivateSubCommand2_Click()
Setii=GetObject("","INTERNETEXPLORER.application")
ii.NavigateText1,navNoReadFromCache
ii.Visível=1
ii.Topo=0
ii.Esquerda=0
ii.Largura=Formulário1.Largura
ii.Height=Tela.Altura
Fim Sub
PrivateSubCommand3_Click()
Texto1=""
Descarregar-me
Fim Sub
PrivateSubForm_Load()
Form1.Top=Tela.Altura/4
Formulário1.Esquerda=0
Form1.Largura=Tela.Largura
Form1.Height=Tela.Altura/2
Form1.BackColor=QBColor(2)
Label1.BackStyle=0
Label1.FontName="Heold"
Label1.FontSize=14
Label1.ForeColor=QBColor(7)
Label2.BackStyle=0
Label2.Caption="HTML"
Label2.FontName = "brushscript"
Label2.FontSize=24
Command2.Visible=Falso
Fim Sub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Então
Setii=GetObject("","INTERNETEXPLORER.APPLICATION")
ii.NavigateText1,navNoReadFromCache
ii.Visível=1
ii.Topo=0
ii.Esquerda=0
ii.Largura=Formulário1.Largura
ii.Height=Tela.Altura
FimSe
FimSub->