VB用户界面设计实验报告

1、精选优质文档-倾情为你奉上实验题目用户界面设计小组合作否姓名班级学 号一、实验目的1、学会使用对话框控件进行编程。2、了解。3、掌握4、了解鼠标和键盘事件及事件过程的编程。5、综合应用所学的知识，编写具有可视化见面的应运程序。二实验环境VB.NET及相关硬件三、实验内容与步骤1、设计一个应用程序。当单击“设置标签颜色“按钮后，弹出颜色对话框，为上面标签中的文字选择一种颜色；当单击”编辑文本文件“按钮后，弹出打开文件对话框，选择一个文本文件后调用记事本程序编辑该文件。2、设计一个菜单系统，并为菜单编写有关的程序代码。3、为实验2配置弹出菜单并编写有关的事件过程。4、选择若干个做过的实验，将他们整

2、合成一个项目，当选择某个菜单时，就弹出相应程序的窗体。四、实验过程与分析一、Public Class _7_1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ColorDialog1.ShowDialog() Label1.ForeColor = ColorDialog1.Color End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e

3、 As System.EventArgs) Handles Button2.Click Shell("C:WINDOWSsystem32notepad.exe", 1) End SubEnd Class二、Public Class _7_2 Private Sub 清除ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 清除ToolStripMenuItem.Click TextBox1.Text = "" End Sub

4、Private Sub 结束ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 结束ToolStripMenuItem.Click Me.Close() End Sub Private Sub 号ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 号ToolStripMenuItem.Click TextBox1.Font = New

5、 Font(TextBox1.Font.Name, 8) End Sub Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click TextBox1.Font = New Font(TextBox1.Font.Name, 12) End Sub Private Sub 粗体ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e

6、 As System.EventArgs) Handles 粗体ToolStripMenuItem.Click TextBox1.Font = New Font(TextBox1.Font, FontStyle.Bold) End Sub Private Sub 斜体ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 斜体ToolStripMenuItem.Click TextBox1.Font = New Font(TextBox1.Font, FontStyl

7、e.Italic) End SubEnd Class三、在实验2中继续添加下列代码Private Sub 号字体ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 号字体ToolStripMenuItem1.Click TextBox1.Font = New Font(TextBox1.Font.Name, 8) End Sub Private Sub 斜体ToolStripMenuItem2_Click(ByVal sender As System.Objec

8、t, ByVal e As System.EventArgs) Handles 斜体ToolStripMenuItem2.Click TextBox1.Font = New Font(TextBox1.Font, FontStyle.Italic) End Sub Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click TextBox1.Font = New Font(TextBox1.Fon

9、t.Name, 12) End Sub Private Sub 粗体ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 粗体ToolStripMenuItem2.Click TextBox1.Font = New Font(TextBox1.Font, FontStyle.Bold) End Sub Private Sub 打开文件ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As

10、System.EventArgs) Handles 打开文件ToolStripMenuItem.Click Dim inputdata As String OpenFileDialog1.FileName = "*.txt" OpenFileDialog1.InitialDirectory = "d:" OpenFileDialog1.Filter = "text files(*.txt)|*.txt|all files(*.*)|*.*" OpenFileDialog1.FilterIndex = 2 OpenFileDialog1

11、.ShowDialog() FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input) TextBox1.Text = "" Do While Not EOF(1) inputdata = LineInput(1) TextBox1.Text = TextBox1.Text + inputdata + vbCrLf Loop FileClose(1) End SubEnd Class四、Public Class Sy7_6 Private Sub 实验11ToolStripMenuItem_Click(ByVal sender

12、 As System.Object, ByVal e As System.EventArgs) Handles 实验11ToolStripMenuItem.Click Sy1_1.Show() End Sub Private Sub 实验12ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 实验12ToolStripMenuItem.Click Sy1_2.ShowDialog() End Sub Private Sub 实验13ToolStripMenuIte

13、m_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 实验13ToolStripMenuItem.Click Sy1_3.ShowDialog() End Sub Private Sub 实验24ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 实验24ToolStripMenuItem.Click Sy2_4.ShowDialog() End Sub Privat

14、e Sub 实验35ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 实验35ToolStripMenuItem.Click Sy3_5.ShowDialog() End Sub Private Sub 实验311ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 实验311ToolStripMenuItem.Click Sy3_1

15、1.ShowDialog() End Sub Private Sub 实验21ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 实验21ToolStripMenuItem.Click Sy2_1.ShowDialog() End Sub Private Sub 实验11ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 实验11T

16、oolStripMenuItem2.Click Sy1_1.ShowDialog() End Sub Private Sub 实验12ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 实验12ToolStripMenuItem2.Click Sy1_2.ShowDialog() End Sub Private Sub 实验13ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As S

17、ystem.EventArgs) Handles 实验13ToolStripMenuItem2.Click Sy1_3.ShowDialog() End Sub Private Sub 实验21ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 实验21ToolStripMenuItem1.Click Sy2_1.ShowDialog() End Sub Private Sub 实验24ToolStripMenuItem1_Click(ByVal sender

18、As System.Object, ByVal e As System.EventArgs) Handles 实验24ToolStripMenuItem1.Click Sy2_4.ShowDialog() End Sub Private Sub 实验35ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 实验35ToolStripMenuItem1.Click Sy3_5.ShowDialog() End Sub Private Sub 实验311ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 实验311ToolSt