Visual Basic 2008 从零开始学习手册第九章常用控制项(ㄧ).pptVIP

‘ FileName : RadioButtonDeom.sln 01 Public Class Form1 02 03 Private Sub Form1_Load ByVal sender As System.Object, ByVal e _ As System.EventArgs Handles MyBase.Load 04 rdbHp.Checked True 05 picNb.Image New Bitmap hp.jpg 06 picNb.SizeMode PictureBoxSizeMode.AutoSize 07 picNb.BorderStyle BorderStyle.Fixed3D 08 End Sub 10 11 Private Sub rdbHp_CheckedChanged ByVal sender As System. Object, _ ByVal e As System.EventArgs Handles rdbHp.CheckedChanged 12 picNb.Image New Bitmap hp.jpg 13 End Sub 14 15 16 Private Sub rdbBenq_CheckedChanged ByVal sender As System.Object, ByVal _ e As System.EventArgs Handles rdbBenq.CheckedChanged 17 picNb.Image New Bitmap benq.jpg 18 End Sub 19 20 21 Private Sub rdbAcer_CheckedChanged ByVal sender As System.Object, ByVal _ e As System.EventArgs Handles rdbAcer.CheckedChanged 22 picNb.Image New Bitmap acer.jpg 23 End Sub 24 25 26 Private Sub btnOk_Click ByVal sender As System.Object, ByVal e As System. _ EventArgs Handles btnOk.Click 27 If rdbHp.Checked Then 28 lblHp.Text Integer.Parse lblHp.Text + 1 .ToString 29 ElseIf rdbBenq.Checked Then 30 lblBenq.Text Integer.Parse lblBenq.Text + 1 .ToString 31 ElseIf rdbAcer.Checked Then 32 lblAcer.Text Integer.Parse lblAcer.Text + 1 .ToString 33 End If 34 End Sub 35 36 End Class 9.4.2 CheckBox 核取方塊控制項 核取方塊控制項，每個選項都可以任意選取彼此互不影響，複選性選項可用它來設計。 CheckBox 核取方塊控制項除可顯示文字外，上面也可顯示圖片。 一. CheckBox 常用屬性 二. CheckBox 常用事件 當 ThreeState 屬性 False，按核取方塊控制項時依序觸動 CheckedChanged、CheckStateChanged 和 Click 事件。 判斷核取方塊勾選狀態程式碼，寫在其中一個事件中皆可。 當 ThreeState True，若勾選狀態為「未確定」，不會觸動 CheckedChanged事件。 1. CheckedChanged事件為核取方塊控制項預設事件。當核取方塊控制項的 Checked屬性值改變時，觸發此事件。 2. CheckStateChanged事件當核取方塊控制項的CheckState屬性值改變時，觸發此事件。 3. Click事件當核取方塊控制項被滑鼠點選時，觸發此事件。 三. 如何在 GroupBox 內建立核取方塊 【範例演練】 設計相機易購網程式。在「機型」GroupBox選項只能單選，在「配件」GroupBox選項可多選，只要有選取會隨時更新「購買總金額：」。各機型和配件單價如下圖表單所示。 範例：CheckBoxDemo.sln 設計輸出入介面 ‘ FileName : CheckBoxDemo.sln 01 Public Class Form1 02 03 Dim priceDsc, priceM1