实验四用户界面设计.docVIP

实验题目 用户界面设计 小组合作 姓名 班级 学 号 实验目的 学会使用通用对话框控件进行编程。 掌握下拉式菜单和弹出式菜单的设计方法。 掌握创建多重窗体程序的有关技术。 了解鼠标和键盘事件及其事件过程的编写。 综合应用做学的知识，编制具有可视化界面的应用程序。 二．实验环境 硬件：装有windows操作系统的计算机一台 软件：Microsoft Visual Studio 2012 实验内容与步骤 设计一个如图的应用程序。当单击“设置标签颜色”按钮后，弹出颜色对话框，为上面标签中文字选择一种颜色；当单击“编辑文本文件”按钮后，弹出打开文件对话框，选择一个文本文件后调用记事本程序编辑该文件。 原图 “设置标签题”选择颜色 “设置标签题”效果图 “编辑文本文”效果图 代码如下： Public Class 7_1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then Label1.ForeColor = ColorDialog1.Color End If End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then Shell(Notepad.exe + + OpenFileDialog1.FileName, AppWinStyle.NormalFocus) End If End Sub End Class 2、设计一个如图所示的菜单系统，并为菜单项编写有关程序代码。 菜单1选项 菜单2选项 “8号”字体效果 “12号”字体效果 “粗体”效果 “斜体”效果 “横线” 效果设置过程 源代码： Public Class 7_2 Private Sub 清除ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 清除ToolStripMenuItem.Click TextBox1.Text = End Sub Private Sub 结束ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 结束ToolStripMenuItem.Click Me.Close() End Sub Private Sub 号ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 号ToolStripMenuItem.Click TextBox1.Font = New Font(TextBox1.Font.Name, 8) End Sub Private Sub 号ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles 号ToolStripMenuItem1.Click TextBox1.Font = New Font(TextBox1.Font.Name, 12) End Sub Private Sub 粗体ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 粗体ToolStripMenuItem.Click TextB