vbnet程序设计实验指导.docVIP

VB.NET程序设计实验指导 第 PAGE 9 页 共 NUMPAGES 9 页 第6章 应用程序界面设计 6.2 习题参考答案 一、选择题 1. B 2. C 3. A 4. C 5. A 6. D 7. B 8. C 二、填空题 1. 减号 2. F1，F10 3. 筛选说明1|筛选模式1|筛选说明2|筛选模式2|…… 4. ShowDialog 5. Me 6. LayoutMdi 7. 相应菜单项 8. StatusStrip 三、简答题 1. 弹出式菜单是独立于菜单栏而显示在窗体上的浮动菜单，其菜单项取决于按下鼠标右键时指针所处的位置，通常包含的是对该对象最常用的操作命令，因此也称为上下文菜单。 2. 参看教材p159 6.1.3节。 3. 将窗体和文本框的ContextMenuStrip属性分别修改为不同的菜单名。 4. ColorDialog允许用户使用系统提供的调色板自定义颜色，而FontDialog不可以。 5. 如果打开窗体后，还可操作别的窗体，则打开的是非模式窗体，反之为模式窗体。。 6. 参看教材p180最后一段。 7. 参看教材p183。 8. 参看教材p191 6.5.3节。 6.3 实训指导 Public Class Form1 Public Class Form1 Private fileName As String Private Sub ShowStatus() Me.ToolStripStatusLabel1.Text = 字符总数： Me.TextBox1.Text.Length Space(4) Me.ToolStripStatusLabel2.Text = 段落总数： Me.TextBox1.Lines.Length Space(6) Me.ToolStripStatusLabel3.Text = 今天是： Today() End Sub Private Sub 自动换行WToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 自动换行WToolStripMenuItem.Click If 自动换行WToolStripMenuItem.Checked = True Then 自动换行WToolStripMenuItem.Checked = False TextBox1.WordWrap = False Else 自动换行WToolStripMenuItem.Checked = True TextBox1.WordWrap = True End If End Sub Private Sub 退出XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出XToolStripMenuItem.Click Me.Close() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ShowStatus() 自动换行WToolStripMenuItem.Checked = True 剪切TToolStripMenuItem.Enabled = False 复制CToolStripMenuItem.Enabled = False 剪切ToolStripMenuItem.Enabled = False 复制ToolStripMenuItem.Enabled = False End Sub Private Private Sub 关于记事本AToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 关于记事本AToolStripMenuItem.Click MsgBox(有待完善的简易记事本，版本.0, , 关于记事本) End Sub