【正文】 過程： Private Sub Form1_Click(ByVal sender As Object, _ ByVal e As ) Handles = = = = = (d:\) = (d:\) = (d:\) = (d:\) End Sub 【 例 】 編寫程序，交換兩個圖片框中的圖形。 在傳統(tǒng)的程序設(shè)計中，交換兩個變量的值是十分普通的操作，通常要引入第三個變量進行交換。交換兩個圖片框中圖形的操作與此類似。 首先在窗體上建立三個圖片框 PictureBox PictureBox PictureBox3，其中PictureBox3的大小和位置任意，然后編寫如下事件過程： Private Sub Form1_Load(ByVal sender As , _ ByVal e As ) Handles = = = = (d:\) = (d:\) End Sub Private Sub Form1_Click(ByVal sender As Object, _ ByVal e As ) Handles 39。 交換兩個圖片中的圖形 = = = 39。 隱藏第三個圖片框 = False End Sub 按鈕控件 ? 按鈕是 Visual ，它提供了用戶與應(yīng)用程序交互的最簡便的方法。在工具箱中，按鈕的圖標如圖 。其默認名稱和標題（ Text屬性）為 ButtonX（其中 X為 3...）。 屬性和事件 ? 1. Text屬性 ? 2. FlatStyle屬性 ? 3. Image屬性 ? 4. BackGroundImage屬性 ? 5. ImageAlign屬性 ? 6. TextAlign屬性 應(yīng)用舉例 在應(yīng)用程序中，按鈕的應(yīng)用十分廣泛，以前我們曾多次見過這方面的例子。 有時候，為了防止誤操作，可以讓按鈕暫時失去作用或消失。例如，想要復(fù)制數(shù)據(jù)或文件，但在某個時刻數(shù)據(jù)或文件不存在，此時就需要使“復(fù)制”按鈕暫時失去作用或消失。這種功能可以用 Enabled和 Visible屬性來實現(xiàn)。例如： 設(shè)置 = True 使按鈕生效 設(shè)置 Button1Enabled = False 使按鈕失去作用 設(shè)置 = False 使按鈕消失 設(shè)置 = True 使按鈕重新出現(xiàn) 用 Enabled屬性可以檢查一個按鈕是否有效，例如： If Then = Button is enabled Else = Button is disabled End If 上述過程測試按鈕 Button1是否可用。如果可用，則其 Enabled屬性為 True，即 =True，過程中條件語句的“條件”為真，否則為假。 【 例 】 編寫程序，模擬交通信號燈的切換。 信號燈有三種，分別為紅、黃、綠，在某個時刻只能亮一個，程序?qū)⒛M這種操作。在窗體上畫三個圖片框和兩個按鈕，其屬性設(shè)置如下： ━━━━━━━━━━━━━━━━━━━━━━━ 控件 屬性 設(shè)置值 ─────────────────────── 窗體 Text 信號燈 圖片框 Image Name PictureBox1 SizeMode AutoSize 圖片框 Image Name PictureBox 2 SizeMode AutoSize 圖片框 Image Name PictureBox 3 SizeMode AutoSize 按鈕 Text 切換信號燈 Name Button1 按鈕 Text 結(jié)束程序 Name Button2 ━━━━━━━━━━━━━━━━━━━━━━━ 編寫如下的事件過程： Private Sub Form1_Load(ByVal sender As , _ ByVal e As ) Handles = False = False End Sub Private Sub Button1_Click(ByVal sender As , _ ByVal e As ) Handles If = True Then = False = True ElseIf = True Then = False = True Else = False = True End If End Sub Private Sub Button2_Click(ByVal sender As , _ ByVal e As ) Handles End End Sub 選擇控件 —復(fù)選框和單選按鈕 ? 在應(yīng)用程序中，有時候需要用戶作出選擇，這些選擇有的很簡單，有的則比較復(fù)雜。為此， Visual 標準控件，包括復(fù)選框、單選按鈕、列表框和組合框。這一節(jié)介紹復(fù)選框和單選按鈕，下一節(jié)介紹列表框和組合框。 ? 在工具箱中，復(fù)選框和單選按鈕的圖標如圖 。其默認名稱分別為 CheckBoxX和 RadioButtonX（其中 X為 3...）。 ? 在應(yīng)用程序中，復(fù)選框和單選按鈕用來表示狀態(tài)，可以在運行期間改變其狀態(tài)。復(fù)選框用“ √”表示被選中，可以同時選擇多個復(fù)選框。與此相反，在一組單選按鈕中，只能選擇其中的一個，當(dāng)打開某個單選按鈕時，其他單選按鈕都處于關(guān)閉狀態(tài)，這與收（錄）音機上按鈕的作用類似，因此也稱收（錄）音機按鈕（ RadioButton）。單選按鈕一般用分組框進行分組。 復(fù)選框和單選按鈕的屬性和事件 ? 以前介紹的大多數(shù)屬性都可用于復(fù)選框和單選按鈕，包括： Enabled、 Font、 Size（ Height， Width）、Location（ X， Y）、 Name、 Text、 Visible等。和按鈕一樣，對復(fù)選框和單選按鈕可以使用 Image、ImageAlign和 TextAlign屬性。 1. CheckedState屬性（用于復(fù)選框） 2. Checked屬性（用于復(fù)選框和單選按鈕） 3. Apperence屬性（用于復(fù)選框和單選按鈕） 4. FlatStyle屬性（用于復(fù)選框和單選按鈕） 應(yīng)用舉例 【 例 】 編寫程序，用單選按鈕選擇旅游路線，并在文本框中顯示出來。 為了簡單起見，我們只給出三條路線。這需要在窗體上建立一個文本框和三個單選按鈕，其屬性設(shè)置如下： ━━━━━━━━━━━━━━━━━━━━━━━━━━ 控件 屬性 設(shè)置值 ────────────────────────── 文本框 Name TextBox1 Text 空白 14 單選按鈕 1 Name RadioButton1 Text 西安 成都 昆明 單選按鈕 2 Name RadioButton2 Text 上海 杭州 廣州 單選按鈕 3 Name RadioButton3 Text 哈爾濱 沈陽 大連 ━━━━━━━━━━━━━━━━━━━━━━━━━━ 在窗體層聲明如下變量并賦初值： Dim S As String = 選擇的路線是 : 為三個單選按鈕編寫事件過程如下： Private Sub RadioButton1_Click(ByVal sender As Object, _ ByVal e As ) Handles = S amp。 End Sub Private Sub RadioButton2_Click(ByVal sender As Object, _ ByVal e As ) Handles = S amp。 End Sub Private Sub RadioButton3_Click(ByVal sender As Object, _ ByVal e As ) Handles = S amp。 End Sub 選擇控件 —列表框和組合框 ? 利用列表框，可以選擇所需要的項目，而組合框可以把一個文本框和列表框組合為單個控制窗口。在工具箱中，列表框和組合框的圖標如圖 。列表框和組合框的默認名稱分別為 ListBoxX和 ComboBoxX（ X為 3...）。 列表框 ? 列表框支持的標準 屬性包括： Enabled、 Font、Size（ Height， Width）、Location（ X， Y）、Visible等。此外，列表框還具有以下特殊屬性 ? （ 1） Items ? （ 2） Items. Count ? （ 3） SelectedIndex ? （ 4） SelectionMode ? （ 5） GetSelected ? （ 6） Sorted ? （ 7） Text ? （ 8） MultiColumn ? （ 9） ColumnWidth 列表框事件 ? 列表框接收 Click、 DblClick、 GotFocus和LostFocus事件。但有時不用編寫 Click事件過程代碼，而是當(dāng)單擊一個按鈕或發(fā)生 DblClick事件時，讀取 Text屬性。此外，列表框還可以接收 SelectedIndexChanged事件，當(dāng)在列表框中改變選擇項目時觸發(fā)該事件。 列表框方法 ? 列表框可以使用 、 、 ，用來在運行期間修改列表框的內(nèi)容。 （ 1） 該方法用來在列表框中插入一行文本，其格式為： 列表框名 .(項目字符串 ) “項目字符串”的文本內(nèi)容放入列表框的尾部（假定 Sorted屬性的值為 False）。該方法只能單個地向表中添加項目。例如： ()) 將把文本框 TextBox1中的文本添加到列表框 ListBox1中。 （ 2） 該方法用來清除列表框中的全部內(nèi)容，格式為： 列表框名 . 執(zhí)行 ， 0。 （ 3） 用該方法可以刪除列表框中指定的項目，格式為： 列表框 .(表項字符串 ) 例如：