• Home
 · 
• Internet/HTML
 · 
• A very simple html editor. Web-browser displays the results of your html code as you type in textbo

A very simple html editor. Web-browser displays the results of your html code as you type in textbo

A very simple html editor. Web-browser displays the results of your html code as you type in textbox.

API Declarations


Add a richtextbox named RichTextBox1.
Add a web-browser named WebBrowser1.
In Project Referances, add a referance to "Microsoft HTML Object Library."
Copy the code below to your form.



Rate A very simple html editor. Web-browser displays the results of your html code as you type in textbo

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

'For the following, add a referance to
'Microsoft HTML Object Library

Private WithEvents docHTML As HTMLDocument

Private Sub Form_Load()
 With WebBrowser1
    .Navigate ":About" 'activate webbrowser
    .Top = 0
    .Left = 0
    .Width = Screen.Width - 6
    .Height = (Screen.Height / 2) - 6
End With
With RichTextBox1
    .Top = (Screen.Height / 2) - 3
    .Left = 0
    .Height = (Screen.Height / 2) - 6
    .Width = Screen.Width - 6
End With
End Sub

Private Sub RichTextBox1_Change()
Dim Obj As Object
    On Error Resume Next
    docHTML.open
    'if dochtml not active,create it
    If Err.Number = 91 Then Set docHTML = WebBrowser1.Document: docHTML.open
    On Error GoTo 0
    Set Obj = docHTML 'create object to write in
    Obj.write RichTextBox1.Text 'copy textbox into webdocument
    docHTML.Close
    Set Obj = Nothing
End Sub

Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer)
'---------capture tab key-----------
If KeyCode = 9 Then
    RichTextBox1.Text = RichTextBox1.Text & vbTab
    KeyCode = 35 'apply end key to textbox
End If
End Sub