资源描述：
《vb.用户界面设》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、14实验七用户界面设计2012年5月24日姓名：学号：班级：成绩：一、实验目的：1．学会使用通用对话框控件进行编程。2．掌握下拉式菜单和弹出式菜单的设计方法。3．综合应用所学的知识，编制具有可视化界面的应用程序。二、实验内容：1．理论教材p308第1-4题，操作可参照实验教材中P108页。第1题的书上提示：Shell("notepad.exe"+""+OpenFileDialog1.FileName,1)2．理论教材p308第2-4题（请用一个项目程序完成），操作可参照实验教材中P108-109页。“打开文件”代码：O
2、penFileDialog1.FileName="*.txt"OpenFileDialog1.Filter="文本文件
3、*.txt
4、所有文件
5、*.*"OpenFileDialog1.ShowDialog()FileOpen(1,OpenFileDialog1.FileName,OpenMode.Input)DoWhileNotEOF(1)TextBox1.Text&=LineInput(1)&vbCrLfLoopFileClose(1)1．附加题：理论教材p305第4题。将此实验报告和代码文件一起打包压缩交上来。三、实
6、验步骤及结果：PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickIfColorDialog1.ShowDialog()=Windows.Forms.DialogResult.OKThenLabel1.ForeColor=ColorDialog1.ColorEndIfEndSubPrivateSubButton2_Click(ByValsenderA
7、sSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickIfOpenFileDialog1.ShowDialog()=Windows.Forms.DialogResult.OKThenShell("notepad.exe"+""+OpenFileDialog1.FileName,AppWinStyle.NormalFocus)EndIfEndSubEndClassPublicClassForm1PrivateSub清除ToolStripMenuItem_C
8、lick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles清除ToolStripMenuItem.ClickTextBox1.Text=""EndSubPrivateSub结束ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles结束ToolStripMenuItem.ClickEndEndSubPrivateSub号ToolStripMe
9、nuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles号ToolStripMenuItem.Click,c8.Click,H8.ClickTextBox1.Font=NewFont(TextBox1.Font.Name,8)EndSubPrivateSub号ToolStripMenuItem1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles号Too
10、lStripMenuItem1.Click,c12.Click,H12.ClickTextBox1.Font=NewFont(TextBox1.Font.Name,12)EndSubPrivateSub粗体ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles粗体ToolStripMenuItem.Click,ct.Click,CT2.ClickTextBox1.Font=NewFont(TextBox1.F
11、ont.Name,TextBox1.Font.Size,TextBox1.Font.StyleOrFontStyle.Bold)EndSubPrivateSub斜体ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles斜
