为什么不能通过 Fontdialog Colordialog 设置其中的文字字体和颜色


Private Sub 所有文字颜色设置ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 所有文字颜色设置ToolStripMenuItem.Click
On Error GoTo errhandler
ColorDialog1.ShowDialog()
Dim thebox As RichTextBox
thebox.ForeColor = ColorDialog1.Color
errhandler:
Exit Sub '单击取消
End Sub

Private Sub 选取得字体设置ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 选取得字体设置ToolStripMenuItem.Click
On Error GoTo errhandler
FontDialog1.ShowDialog()
Dim thebox As RichTextBox
Form2.RichTextBox1.SelectionFont = FontDialog1.Font
errhandler:
Exit Sub '单击取消
End Sub

[此贴子已经被作者于2007-10-21 19:19:50编辑过]