VB.用户界面设.docVIP

14实验七 用户界面设计 2012年 5 月 24 日 姓名： 学号： 班级： 成绩： 一、实验目的： 学会使用通用对话框控件进行编程。 掌握下拉式菜单和弹出式菜单的设计方法。 综合应用所学的知识，编制具有可视化界面的应用程序。 二、实验内容： 理论教材p308第1-4题，操作可参照实验教材中P108页。 第1题的书上提示： Shell(notepad.exe + + OpenFileDialog1.FileName, 1) 理论教材p308第2-4题（请用一个项目程序完成），操作可参照实验教材中P108-109页。 “打开文件”代码： OpenFileDialog1.FileName = *.txt OpenFileDialog1.Filter = 文本文件|*.txt|所有文件|*.* OpenFileDialog1.ShowDialog() FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input) Do While Not EOF(1) TextBox1.Text = LineInput(1) vbCrLf Loop FileClose(1) 附加题：理论教材p305第4题。 将此实验报告和代码文件一起打包压缩交上来。 三、实验步骤及结果： Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then Label1.ForeColor = ColorDialog1.Color End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.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 Public Class Form1 Private Sub 清除ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 清除ToolStripMenuItem.Click TextBox1.Text = End Sub Private Sub 结束ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 结束ToolStripMenuItem.Click End End Sub Private Sub 号ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 号ToolStripMenuItem.Click, c8.Click, H8.Click TextBox1.Font = New Font(TextBox1.Font.Name, 8) End Sub Private Sub 号ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 号ToolStripMenuItem1.Click, c12.Click, H12.Click TextBox1.Font = New Font(TextBox1