Criando um editor HTML com o controle WebBrowser (VB6)

Só para você sentir o poder do controle WebBrowser , vamos usá-lo para criar um editor/visualizador HTML com o mínimo de código.

É isso mesmo !!!.

Inicie um novo projeto no Visual Basic 6 e monte um formulário como exibido a seguir:

Você vai ter que referenciar o controle WebBrowser no projeto.

O código relacionado a este projeto é exibido a seguir:

Option Explicit

Private Sub Command1_Click()
'Limpa a caixa de texto
Text1.Text = ""
End Sub

Private Sub Command2_Click()
'torna o texto selecionado em negrito
Text1.SelText = "<B>" & Text1.SelText & "</B>"
End Sub

Private Sub Command3_Click()
'torna o texto selecionado em italico
Text1.SelText = "<I>" & Text1.SelText & "</I>"
End Sub

Private Sub Command4_Click()
'torna o texto selecionado sublinhado
Text1.SelText = "<U>" & Text1.SelText & "</U>"
End Sub

Private Sub Command5_Click()
'alinha a esquerda
Text1.SelText = "<DIV ALIGN=left>" & Text1.SelText & "</DIV>"
End Sub

Private Sub Command6_Click()
'alinha centralizado
Text1.SelText = "<CENTER>" & Text1.SelText & "</CENTER>"
End Sub

Private Sub Command7_Click()
'alinha o texto a direita
Text1.SelText = "<DIV ALIGN=right>" & Text1.SelText & "</DIV>"
End Sub

Private Sub Form_Load()
'carrega uma pagina em branco no web browser
WebBrowser1.Navigate App.Path & "\EMPTY.htm"
End Sub

Private Sub Text1_Change()

    'limpa o controle Web Browser
    WebBrowser1.Document.Script.Document.Clear
    
    'Escreve o conteudo do text1.text no web browse
    WebBrowser1.Document.Script.Document.Write Text1.Text
    
    'fecha o web browser
    WebBrowser1.Document.Script.Document.Close
    
    'sai
    Exit Sub

End Sub

Como o código é auto explicativo vamos ver projeto em tempo de execução, o qual exibe o seguinte resultado:

Conforme você vai digitando o seu script HTML com as tags pertinentes à linguagem na caixa de texto o controle WebBrowser exibe o resultado em HTML.

Simples e útil.

Pegue o projeto aqui : edithtml.zip (2,52 Kb)

Até a próxima dica...

Veja os Destaques e novidades do SUPER DVD Visual Basic (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Quer aprender C# ??

Quer aprender os conceitos da Programação Orientada a objetos ?

Quer aprender o gerar relatórios com o ReportViewer no VS 2013 ?

  Gostou ?   Compartilhe no Facebook   Compartilhe no Twitter

Referências:

José Carlos Macoratti