Visual Basic - Dando um Complemento no Browser com TabControl

Neste poste você terá os códigos necessários para deixar seu browser(navegador para a internet) mais completo.

Iniciando a Programação

Public Class Form1
    Dim int As Integer = 0

    Private Sub Loading(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserProgressChangedEventArgs)
        ToolStripProgressBar1.Maximum = e.MaximumProgress
        ToolStripProgressBar1.Value = e.CurrentProgress
    End Sub
=========================================================================


    Private Sub Done(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs)
        TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle
        TextBox1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString

        ToolStripStatusLabel1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString
    End Sub






Form1

        Dim Browser As New WebBrowser
        TabControl1.TabPages.Add("New Page")
        Browser.Name = "Web Browser"
        Browser.Dock = DockStyle.Fill
        TabControl1.SelectedTab.Controls.Add(Browser)
        AddHandler Browser.ProgressChanged, AddressOf Loading
        AddHandler Browser.DocumentCompleted, AddressOf Done
        int = int + 1
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()




Voltar
        
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
    
 Avançar
        
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
   

 Parar
        
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Stop()
    
 Pagina Inicial
        
CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
   

 Recarregar
       
 CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
    


  Ir

        

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(TextBox1.Text)
    

  Google   

CType(TabControl1.SelectedTab.Controls.Item(0),WebBrowser).Navigate("www.google.com")

  Ir TextBox2

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(TextBox2.Text)

  

   Timer1

ToolStripStatusLabel1.Text = CType(TabControl1.SelectedTab.Controls.Item(0), 

WebBrowser).StatusText

Códigos para ToolStripMenuItem

Nova Janela

        Dim f As New Form1
        f.Show()
    

   Fechar Janela

        

Me.Close()
    

  Nova Aba

        

        Dim Browser As New WebBrowser
        TabControl1.TabPages.Add("New Page")
        TabControl1.SelectTab(int)
        Browser.Name = "Web Browser"
        Browser.Dock = DockStyle.Fill
        TabControl1.SelectedTab.Controls.Add(Browser)
        AddHandler Browser.ProgressChanged, AddressOf Loading
        AddHandler Browser.DocumentCompleted, AddressOf Done
        int = int + 1
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
    

   

Fechar Aba

        If Not TabControl1.TabPages.Count = 1 Then
            TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex)
            TabControl1.SelectTab(TabControl1.TabPages.Count - 1)
            int = int - 1
        End If

     Configurar Pagina
        

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPageSetupDialog()

   Visualizar Impressão

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPrintPreviewDialog()

   

   Imprimir 

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPrintPreviewDialog()

   Propiedade da Pagina
        

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).ShowPropertiesDialog()
  

     Fechar
       

 Close()

Desfazer
        

CType(TabControl1.SelectedTab.Controls.Item(0),WebBrowser).Document.ExecCommand("Undo", False, vbNull)
  

    Refazer
      

CType(TabControl1.SelectedTab.Controls.Item(0),WebBrowser).Document.ExecCommand("Redo", False, vbNull)


     Copiar
        

CType(TabControl1.SelectedTab.Controls.Item(0),WebBrowser).Document.ExecCommand("Copy", False, vbNull)
    

     Colar
        

CType(TabControl1.SelectedTab.Controls.Item(0),WebBrowser).Document.ExecCommand("Paste", False, vbNull)

    Excluir
        

CType(TabControl1.SelectedTab.Controls.Item(0),WebBrowser).Document.ExecCommand("Cut", False, vbNull)
    

   Selecionar Tudo
        

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Document.ExecCommand("SelectAll", True, vbNull)
    

    Voltar
        

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
    

    Avançar
        

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
    

   PaginaInicial        

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()

    

   Recarregar Página
        

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
 
  Relogio
        

Relogio.Show()

   Cronometro
        

Cronometro.Show()

  

Introdução do Visual Basic

Para começar a programar no Visual Basic (Visual Studio) é interessante saber um pouco da sua história 


1.1 O Conceito de Programação no Computador


Vamos entender alguns conceitos básicos de programação. De acordo com Webopedia, um programa de computador é uma lista organizada de instruções que, quando executado, faz com que o computador se comportar de uma maneira predeterminada. Sem programas, os computadores são inúteis. Portanto, a programação significa projetar ou criar um conjunto de instruções para pedir ao computador para realizar certas tarefas que normalmente são muito mais rápido do que os seres humanos podem fazer.

Muita gente acha que CPU de computador é uma coisa muito inteligente, que na realidade é um objeto mudo e inanimados que não podem fazer nada sem ajuda humana. Os microchips de uma CPU só pode compreender dois estados elétricos distintos, a saber, os estados ligado e desligado, ou 0 e 1 códigos no sistema binário. Assim, a CPU só entende uma combinações de 0 e 1 códigos, uma linguagem que chamamos de linguagem de máquina. Linguagem de máquina é extremamente difícil de aprender e não é para nós leigos para dominá-lo facilmente. Felizmente, temos muitos programadores inteligentes que escreveu intérpretes e compiladores que podem traduzir a linguagem humana-como programas como o BASIC em linguagem de máquina para que o computador pode executar as instruções inseridos pelos utilizadores.Linguagem de máquina é conhecida como a linguagem primitiva, enquanto intérpretes e compiladores como o Visual Basic são chamados de linguagem de alto nível.Algumas das linguagens de alto nível ao lado do computador Visual Basic são Fortran, Cobol, Java, C, C + +, Turbo Pascal, e etc . 




1.2 O que é Visual Basic?

VISUAL BASIC é uma linguagem de programação de alto nível que evoluiu a partir da versão anterior chamado DOS BASIC. BASIC significa Beginners  All-purpose Symbolic Instruction Code; traduzindo significa Código de instrução simbólica com finalidade para os iniciantes. É uma linguagem de programação muito fácil de aprender. O código de olhar muito como o Inglês.Empresas de software diferentes, produzidos diferentes versões do BASIC, como o Microsoft QBASIC, QuickBasic, GWBASIC, BASICA IBM e assim por diante.No entanto, as pessoas preferem usar o Microsoft Visual Basic de hoje, pois é uma linguagem de programação bem desenvolvida e recursos de suporte estão disponíveis em todos os lugares. Agora, há muitas versões do VB existentes no mercado, o mais popular e ainda amplamente utilizado por muitos VB programadores não é outro senão o Visual Basic. Temos também VB.net, VB2005, VB2008 e as últimas VB2010.Ambos Vb2008 e VB2010 são totalmente orientada a objetos da linguagem de programação (OOP).

Visual Basic é uma linguagem de programação Visual e eventos dirigidos. Estas são as principais divergências do BASIC de idade. Em BASIC, a programação é feita em um ambiente de somente texto e o programa é executado sequencialmente. Em VB, a programação é feita em um ambiente gráfico. No BASIC velho, você tem que escrever o código do programa para cada objeto gráfico que você deseja exibi-lo na tela, incluindo a sua posição e sua cor. No entanto, em VB, você só precisa arrastar e soltar qualquer objeto gráfico em qualquer lugar no formulário, e você pode mudar a sua cor a qualquer momento usando as janelas de propriedades.

Por outro lado, porque o usuário pode clicar em um determinado objeto de forma aleatória, de modo que cada objeto tem que ser programado de forma independente para ser capaz de resposta a essas ações (eventos). Portanto, um programa VB é composto de muitos sub-programas, cada um tem seu próprio código de programa, e cada um pode ser executado de forma independente e ao mesmo tempo, cada um pode ser ligados entre si de uma forma ou de outra.

1.3 Que programas você pode criar com o Visual Basic 6?

Com VB, você pode criar qualquer programa, dependendo do seu objetivo. Por exemplo, se você é um professor universitário ou faculdade, você pode criar programas educativos que ensinam de negócios, economia, engenharia, ciência da computação, contabilidade, gestão financeira, sistema de informação e muito mais para tornar o ensino mais eficaz e interessante.

Se você está no negócio, você também pode criar programas de negócios, como o sistema de gerenciamento de inventário, ponto-de-venda, sistema de folha de pagamento, programação financeira, bem como programa de contabilidade para ajudar a gerenciar o seu negócio e aumentar a produtividade.Para aqueles de vocês que gostam de jogos e trabalhando como programador de jogos, você pode criar esses programas também.De fato, não há limite para o que programa você pode criar!Há muitos programas como neste tutorial, por isso você deve gastar mais tempo com o tutorial para aprender como criar esses programas.

1.4 O Visual Basic 6 Ambiente de Desenvolvimento Integrado


Antes que você pode programar em VB, você precisa instalar o Visual Basic 6 no seu computador. 


Download Visual Basic 2008 Express Edition

No arranque, Visual Basic irá mostrar uma caixa de diálogo você pode optar por iniciar um novo projeto, abrir um projeto existente ou selecionar uma lista de programas abertos recentemente.Um projeto é uma coleção de arquivos que compõem o seu pedido.Existem vários tipos de aplicações que poderíamos criar, no entanto, deve se concentrar na criação de programas EXE Standard (EXE significa programa executável). Agora, clique no ícone do EXE padrão para entrar no ambiente de programação Visual Basic.




                                                              
                                                            CONTINUAR >>