原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第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 实训指导
实训1：菜单设计参考代码
实训2：标准对话框控件的应用参考代码
实训3：多窗体程序设计参考代码
实训4：多文档界面程序及工具栏和状态栏的设计应用参考代码
父窗体参考代码：
标准模块代码：
“开业登记”子窗体代码：
“变更修改”、“工商年检”、“歇业注销”子窗体代码与“开业登记”类似，不再赘述。
VB.NET程序设计实验指导
第 9 页 共 9 页
Public Class Form1
Public Sub ShowStatus()
Me.ToolStripStatusLabel1.Text = 当前打开了 totalFrm 个子窗体
End Sub
Private Sub OpenChildForm(ByVal childForm As Form, ByVal parentForm As Form)
Dim isOpened As Boolean = False
Dim forms() As Form
forms = parentForm.MdiChildren
For Each myform As Form In forms
If myform.GetType().Equals(childForm.GetType()) Then
myform.Activate()
isOpened = True
End If
Next
If isOpened Then
childForm.Close()
Else
childForm.MdiParent = Me
childForm.Show()
totalFrm += 1
End If
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.ShowStatus()
End Sub
Private Sub 开业登记ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 开业登记ToolStripMenuItem.Click
Dim frm As New 开业登记
OpenChildForm(frm, Me)
Me.ShowStatus()
End Sub
Private Sub 变更修改ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 变更修改ToolStripMenuItem.Click
Dim frm As New 变更修改
OpenChildForm(frm, Me)
Me.ShowStatus()
End Sub
Private Sub 歇业注销ToolStripMenuItem_Click(ByVal sen
文档评论（0）