Faça seu próprio navegador? Existe algum erro? Sem mencionar gigantes como o IE, até mesmo o compacto Opera, a maioria de nós, pessoas comuns, nunca conseguiremos fazer isso. Mas se você tiver a versão profissional VB5.0 instalada em sua máquina, as coisas serão muito mais fáceis. Quer experimentar? Bem, vamos lá!
O protagonista do programa é um controle ActiveX: WebBrowser. Claro, ele não está incluído na caixa de ferramentas VB por padrão. Temos que adicioná-lo manualmente. O método é: clique com o botão direito na caixa de ferramentas, selecione "Partes..." no menu de atalho que aparece e certifique-se de que esteja. selecionado na caixa de diálogo pop-up, guia "Controles", encontre Microsoft Internet Controls, marque a pequena caixa na frente dele e depois OK. Neste ponto você encontrará mais dois pequenos ícones na caixa de ferramentas. Entre eles, o controle representado pelo ícone do globo é o WebBrowser que precisamos.
Como muitas pessoas não estão muito familiarizadas com o controle WebBrowser e não há conteúdo sobre ele na ajuda do VB (não encontrei mesmo), é necessário apresentar suas propriedades, métodos e eventos. cobrimos apenas aqueles usados no programa de:
Propriedade: LocationURL Retorna a URL da página WEB exibida pelo controle.
Método: Navegue pelas transferências para o URL especificado ou abra o arquivo HTML especificado.
Evento: 1． DownloadBegin Dispara quando a operação de download é iniciada.
2. DownloadComplete É acionado quando uma operação de download é concluída, encerrada ou falha.
3. O controle ProgressChange WebBrowser rastreia o progresso da operação de download e aciona esse evento periodicamente. A sintaxe é: Sub WebBrowser_ProgressChange (ByVal Progress As Long, ByVal ProgressMax As Long). O argumento Progress é a quantidade total de dados baixados atualmente e o argumento ProgressMax é a quantidade total de dados a serem baixados.
4. TitleChange é acionado quando o título do documento atual é alterado.
Além do controle WebBrowser, o programa também precisa de um controle Label: Label1; um controle ComboBox: combo1, usado para exibir o endereço URL; um controle StatusBar: um controle ProgressBar: ProgressBar1, usado para exibir o progresso do download (StatusBar; control e o controle ProgressBar são O controle ActiveX é um membro do Microsoft Windows Common Controls 5.0. O método de adicioná-lo à caixa de ferramentas é o mesmo do controle WebBrowser. Os valores das propriedades desses controles usam valores padrão.
Aqui está a listagem do programa:
| Opção Explícita Subformulário privado_Load() Me.Caption="Meu Explorador" Label1.Caption = "URL" Combo1.Text = "" Combo1.Top = Etiqueta1.Altura Combo1.Esquerda = 0 WebBrowser1.Top = Combo1.Top + Combo1.Height WebBrowser1.Esquerda = 0 Formulário_Redimensionar StatusBar1.Style = sbrSimple ProgressBar1.Zorder Finalizar sub |
| Subformulário privado_Resize() Em caso de erro, vá para a Combo1.Largura = Formulário1.Largura - 100 WebBrowser1.Largura = Combo1.Largura WebBrowser1.Height = Form1.Height - Combo1.Height - 1000 ProgressBar1.Top = Me.Height - StatusBar1.Height - 330 ProgressBar1.Left = 0,25 * StatusBar1.Width ProgressBar1.Largura = 0,75 * Me.Largura - 250 um: Finalizar sub |
| Sub Combo Privado1_Click() `Vá para o URL especificado WebBrowser1.Navigate Combo1.Text Finalizar sub Private Sub Combo1_KeyDown (KeyCode como inteiro, Shift como inteiro) Escureça eu enquanto Dim existia como booleano Se KeyCode = 13 então Se Esquerda(Combo1.Text, 7) <> "http://"Então Combo1.Text = "http://"+ Combo1.Text Terminar se WebBrowser1.Navigate Combo1.Text Para I = 0 Para Combo1.ListCount - 1 Se Combo1.List(I) = Combo1.Text Então existia = Verdadeiro Sair para Outro existia=Falso Terminar se Próximo Se não existisse então Combo1.AddItem (Combo1.Texto) Terminar se Terminar se Finalizar sub |
| SubWebBrowser1_DownloadBegin() privado `Quando o download começa, a barra de status exibe "Agora vinculando..." StatusBar1.SimpleText = "Agora vinculando..." Finalizar sub |
| Sub WebBrowser1_DownloadComplete() privado `Quando o download for concluído, a barra de status exibirá "Link concluído" StatusBar1.SimpleText = "Link finalizado" ProgressBar1.Value = 0 Finalizar sub |
| Sub privado WebBrowser1_ProgressChange (ByVal Progress As Long, ByVal ProgressMax Enquanto) `A barra de progresso muda quando o download está em andamento Se ProgressMax = 0, então saia do Sub ProgressBar1.Max = ProgressMax Se Progresso <> -1 E Progresso <= ProgressMax Então ProgressBar1.Value = Progresso Terminar se Finalizar sub |
| Sub privado WebBrowser1_TitleChange (ByVal texto como string) Combo1.Text = WebBrowser1.LocationURL Finalizar sub |