在窗体上画一个文本框，把它的MultiLineM性设置为True，通过菜单命令向文本框中输入信息并对文本框中的文本进行格式化。按下述要求建立菜单程序。
(1)菜单程序含有3个主菜单，分别为“输入信息”、“显示信息”和“格式'
其中“输人信息”包括两个菜单命令：“输人”、“退出”。
    “显示信息”包括两个菜单命令：“显示”、“淸除”。
    “格式”包括5个菜单命令：“正常”、“粗体”、“斜体”、“下划线”和“Fom20”。
(2)“输人”命令的操作是：显示一个输入对话框，在该对话框中输入一段文字。
(3)“退出”命令的操作是：结束程序运行。
(4)“显示”命令的操作是：在文本框中显示输人的文本。
(5)“清除”命令的操作是：清除文本框中所显示的内容。
(6)“正常”命令的操作是：文本框中的文本用正常字体(非粗体、非斜体、无下划线）显示。
(7)“粗体”命令的操作是：文本框中的文本用粗体显示。
(8)“斜体”命令的操作是：文本框中的文本用斜体显示。
(9)“下划线”命令的操作是：给文本框中的文木加上下划线。
(10)“Font20”命令的操作是：把文本框中文本字体的大小设置为20
要求：新输入的文本添加到原有文本的后面。

     解：按下述步骤操作。
(1)启动Visual Basic,在窗体上画一个文本框，并把它的MultiLine属性设置为True。
(2)设置所建立的菜单项的属性，具体如下。
    标题        名称         内缩符号
输入信息      InpInfo         无
    输入        Input             1
    退出        Exit               1
显示信息      DisInfo         无
    显示        Dispplay        1
    清除        Clean            1
格式            Format         无
    正常        Normal          1
    粗体        Bold              1
    斜体        Italic             1
    下划线     Under           1
    Font20     Font20          1

(4)编写各子菜单命令的代码如下：
Dim InpText As String   '在窗体层定义

'格式/粗体
Private Sub Bold_Click()
    Text1.FontBold = True
End Sub

Private Sub Font20_Click()
    '格式/Font20
    Text1.FontSize = 20
End Sub

'输人信息/输人
Private Sub Input_Click()
    InpT = InputBox("请输人一段文字")
    InpText = InpText & InpT
    Text1.Text = InpText
End Sub

'输人信息/退出
Private Sub Exit_Click()
    End
End Sub

'显示信息/显示
Private Sub Display_Click()
    Text1.Text = InpText
End Sub

'显示信息/淸除
Private Sub Clean_Click()
    Text1.Text = ""
End Sub

'格式/斜体
Private Sub italic_Click()
    Text1.FontItalic = True
End Sub
'格式/正常
Private Sub Normal_Click()
    Text1.FontBold = False
    Text1.FontUnderline = False
    Text1.FontItalic = False
    Text1.FontSize = 10
End Sub

Private Sub under_Click()
    '格式/下划线
    Text1.FontUnderline = True
End Sub

程序运行，点击“输入信息”－>“输入” 菜单，输入信息，如“你好，世界！” ....... 通过“格式”菜单，改变文本框文字的格式后的结果，如下图所示。

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_11.6.html