Code:
Public Class Form1
Dim old As String
Private Sub Timer1_Tick() Handles Timer1.Tick
If RichTextBox1.Text = old Then
'do nothing
Else
WebBrowser1.DocumentText = RichTextBox1.Text
End If
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
RichTextBox1.SelectedText = "<b></b>"
RichTextBox1.SelectionStart = RichTextBox1.SelectionStart - 4
End Sub
Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem16.Click
RichTextBox1.SelectedText = "<b></b>"
RichTextBox1.SelectionStart = RichTextBox1.SelectionStart - 4
End Sub
Private Sub MenuItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem17.Click
RichTextBox1.SelectedText = "<i></i>"
RichTextBox1.SelectionStart = RichTextBox1.SelectionStart - 4
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
RichTextBox1.SelectedText = "<i></i>"
RichTextBox1.SelectionStart = RichTextBox1.SelectionStart - 4
End Sub
Private Sub MenuItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem18.Click
RichTextBox1.SelectedText = "<u></u>"
RichTextBox1.SelectionStart = RichTextBox1.SelectionStart - 4
End Sub
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
RichTextBox1.SelectedText = "<u></u>"
RichTextBox1.SelectionStart = RichTextBox1.SelectionStart - 4
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
Timer1_Tick()
old = RichTextBox1.Text
End Sub
End ClassWhen I type the first letter, the WebBrowser changes. For example, if I type S, the document's text becomes S. But if I type S then HELLO, the WebBrowser stays at S. Thanks!