Question

VB.net问题，跪求代码

Answer 1

1.在窗体上添加FontDialog和ColorDialog控件

2.分别在菜单“字体”和“颜色”添加以下两段代码代码

    Private Sub 字体ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 字体ToolStripMenuItem.Click

        FontDialog1.ShowDialog()

        RichTextBox1.Font = FontDialog1.Font

    End Sub

    Private Sub 颜色ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 颜色ToolStripMenuItem.Click

        Dim dialogResult As DialogResult = ColorDialog1.ShowDialog()

        RichTextBox1.ForeColor = Me.ColorDialog1.Color

    End Sub

3.调试如图

Answer 2

按缺省值，菜单“字体”名为“字体ToolStripMenuItem”，菜单“颜色”名为“颜色ToolStripMenuItem”，窗体上另加 FontDialog1 和 ColorDialog1控件，代码如下:

Private Sub 字体ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 字体ToolStripMenuItem.Click
FontDialog1.ShowDialog()
TextBox1.Font = FontDialog1.Font
End Sub

Private Sub 颜色ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 颜色ToolStripMenuItem.Click
ColorDialog1.ShowDialog()
TextBox1.ForeColor = ColorDialog1.Color
End Sub

追问

不好了，我忘记上面那个标题栏目怎么弄了

追答

晕 采纳的那个抄我的？

追问

这让我很为难，知道吗？
为了弥补我的过错，
要不再答个题，我用30分悬赏，把你损失补给你，可以吗？
http://zhidao.baidu.com/question/515203269.html?quesup2
应该不难的

Answer 3

新建一个窗体，在窗体是上单击右键会有一个菜单编辑器出来，建立如图的菜单。
使用common dialog控件
分别输入commondialog控件的action的值

追问

难道不要代码？