任務(wù)八利用動畫美化系統(tǒng)界面.ppt

VB.NET程序設(shè)計,任務(wù)八 利用動畫美化系統(tǒng)界面,本章學(xué)習(xí)目標(biāo)： 掌握Timer控件的使用 掌握VB.NET中的標(biāo)準(zhǔn)對話框的使用,目標(biāo),在應(yīng)用程序的界面上增加動畫將會使得應(yīng)用程序更加美化，更吸引用戶。 同時使用標(biāo)準(zhǔn)對話框?qū)褂脩舾奖愕牟僮飨到y(tǒng)。,問題的引入,任務(wù)： 在登陸錄窗體上設(shè)置一個能自動從左向右移動的標(biāo)題,任務(wù),標(biāo)題能不斷地從左向右移動,任務(wù)： 在職員窗體中增加一個顯示員工照片的信息。當(dāng)單擊“照片”按鈕時能從硬盤上選擇相應(yīng)的照片,任務(wù),職員照片,Timer控件稱為計時器，是應(yīng)用程序中控制定時事件的控件，通常用于設(shè)計按固定的時間間隔所執(zhí)行的操作。,Timer控件的相關(guān)知識,Timer 控件的常用屬性、事件：,Timer控件的常用屬性和事件,Timer控件實例,在窗體標(biāo)簽上動態(tài)顯示當(dāng)前的系統(tǒng)時間。,在窗體上添加一個Timer和Label控件，設(shè)置Timer的Enabled屬性為True。InterVal屬性為1000,Private Sub Timer1_Tick(ByVal sender As Object,ByVal e As EventArgs) Handles _ Timer1.Tick label1.Text = DateTime.Now.ToString() End Sub,隨堂實訓(xùn),在登陸錄窗體上設(shè)置一個能自動從左向右移動的標(biāo)題,PictureBox控件稱為圖片框控件，可顯示多種格式的圖片。,PictureBox控件的相關(guān)知識,PictureBox控件的常用屬性、事件：,Image屬性用于顯示圖片。該屬性可以通過屬性窗口設(shè)置，也可以在代碼中設(shè)置,PictureBox控件圖片的加載,通過屬性設(shè)置只要通過單擊該屬性右側(cè)的省略號，選擇要顯示的圖片,通過代碼設(shè)置，使用Image類的FromFile方法進行設(shè)置，其語法格式如下： PictureBox1.Image = Image.FromFile(“圖片文件路徑名”),PictureBox控件實例,在窗體上添加一個Button和一個PictureBox控件，當(dāng)單擊Button控件時在PictureBox控件中顯示C盤的leaf.gif文件,Private Sub Button1_Click(ByVal sender As Object,ByVal e As EventArgs) Handles Button1.Click PictureBox1.Image = Image.FromFile(“c:leaf.gif”) End Sub,MessageBox消息框,MessageBox 是一個預(yù)定義對話框，它將與應(yīng)用程序相關(guān)的信息顯示給用戶,MessageBox消息框(續(xù)),調(diào)用 MessageBox 類的 Show 方法顯示消息框 public static DialogResult Show(string text, string caption, MessageBoxButtons Buttons, MessageBoxIcon icon); 其中參數(shù)text在消息框中顯示的文本，caption在標(biāo)題欄中顯示的文本，buttons指定在消息框中顯示的哪些按鈕。icon指在消息框中顯示的圖標(biāo)。 例如:,MessageBox.Show (“計算完成”, “計算器程序“, MessageBoxButtons.OKCancel, MessageBoxIcon.Asterisk);,指定若干常數(shù)，用以定義 MessageBox 上將顯示哪些按鈕,MessageBoxButton枚舉,指定定義要顯示的圖標(biāo),MessageBoxIcon枚舉,指定定義要顯示的圖標(biāo),MessageBoxIcon枚舉(續(xù)),指定標(biāo)識符以指示對話框的返回值,DialogResult枚舉,MessageBox對話框?qū)嵗?在窗體上添加一個Button和TextBox控件，當(dāng)單擊Button顯示一個對話框，在TextBox上顯示用戶在對話框上的選擇,Private Sub Button1_Click(ByVal sender As Object,ByVal e As EventArgs) Handles Button1.Click Dim dr As DialogResult dr = MessageBox.Show (“計算完成”, “計算器程序“, _ MessageBoxButtons.OKCancel, MessageBoxIcon.Asterisk); If dr = DialogResult.OK Then TextBox1.Text = “確定” ElseIf dr = DialogResult.Cancel Then TextBox1.Text = “取消” End If End Sub,OpenFileDialog 組件是一個預(yù)先配置的對話框它與 Windows 操作系統(tǒng)所公開的“打開文件”對話框相同 可使用 ShowDialog 方法在運行時顯示該對話框 調(diào)用ShowDialog方法后，對于用戶的選擇會相應(yīng)地返回一個DialogResult枚舉值 使用 Multiselect 屬性可使用戶選擇多個要打開的文件,OpenFileDialog控件,FileName屬性用于獲取用戶所選擇的文件(包含完整路徑) Filter 屬性設(shè)置當(dāng)前文件名篩選字符串，該字符串確定出現(xiàn)在對話框的“文件類型”框中的選擇 設(shè)置Filter屬性的格式為： 描述符1|過濾符1|描述符2|過濾符2| 其中描述符是將要顯示在對話框”文件類型”下拉列表中的文字說明，可隨意指定。過濾符是由通配符和實際文件擴展名組成的，如*.*表示所有文件。 Word文檔|*.doc|文本文件|*.txt 表示在對話框中只顯示擴展名為.doc、.txt文件。,OpenFileDialog控件,OpenFileDialog控件實例,在窗體上添加一個Button、TextBox、OpenFileDialog控件，當(dāng)單擊Button顯示一個打開對話框，在TextBox上顯示用戶所選擇的文件名及路徑（參考代碼如下：）,Private Sub Button1_Click(ByVal sender As Object,ByVal e As EventArgs) Handles Button1.Click Dim dr As DialogResult dr = OpenFileDialog1.ShowDialog() If dr = DialogResult.OK Then TextBox1.Text = OpenFileDialog1.FileName End If End Sub,Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then Me.TextBox1.Text = Me.OpenFileDialog1.FileName End If End Sub,或,隨堂實訓(xùn),如圖所示，當(dāng)單擊”照片”按鈕時，顯示出打開對話框，選擇相應(yīng)的圖片后，將在圖片框中顯示出所選擇的圖片,SaveFileDialog控件,Windows 窗體 SaveFileDialog 組件是一個預(yù)先配置的對話框，它與 Windows 使用的標(biāo)準(zhǔn)“保存文件”對話框相同 使用 SaveFileDialog 組件時，必須編寫文件保存邏輯。 使用 ShowDialog 方法在運行時顯示該對話框,FontDialog控件,FontDialog 是標(biāo)準(zhǔn)的 Windows“字體”對話框，用于公開系統(tǒng)上當(dāng)前安裝的字體 默認(rèn)情況下，該對話框顯示以下項 字體、字體樣式和字體大小的列表框 刪除線和下劃線等效果的復(fù)選框 腳本的下拉列表以及字體外觀的示例 若要顯示字體對話框，可以調(diào)用ShowDialog 方法,FontDialog控件的常用屬性,ColorDialog控件,ColorDialog控件允許用戶從調(diào)色板選擇顏色以及將自定義顏色添加到該調(diào)色板 “顏色”對話框允許使用系統(tǒng)提供的“調(diào)色板”自定義顏色。而“字體”對話框不行 Color屬性用于設(shè)置或獲取所選擇的顏色,實例,在窗體上添加一個Button、TextBox、FontDialog、ColorDialog控件，當(dāng)單擊Button分別顯示“字體”和“顏色”對話框，在TextBox上的文本字體和前景色也改變,Private Sub Button1_Click(ByVal sender As Object,ByVal e As EventArgs) Handles Button1.Click Dim dr As DialogResult dr = FontDialog1.ShowDialog() If dr = DialogResult.OK Then TextBox1.Font= Font