VB用戶界面設計實驗報告

1、精選優(yōu)質文檔-傾情為你奉上實驗題目用戶界面設計小組合作否姓名班級學 號一、實驗目的1、學會使用對話框控件進行編程。2、了解。3、掌握4、了解鼠標和鍵盤事件及事件過程的編程。5、綜合應用所學的知識，編寫具有可視化見面的應運程序。二實驗環(huán)境VB.NET及相關硬件三、實驗內容與步驟1、設計一個應用程序。當單擊“設置標簽顏色“按鈕后，彈出顏色對話框，為上面標簽中的文字選擇一種顏色；當單擊”編輯文本文件“按鈕后，彈出打開文件對話框，選擇一個文本文件后調用記事本程序編輯該文件。2、設計一個菜單系統(tǒng)，并為菜單編寫有關的程序代碼。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中繼續(xù)添加下列代碼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