松冈vb2010-ch03(10943 kb ).ppt

二、控制項的 Enabled 屬性與 Visible 屬性 Enabled 屬性是設定控制項在程式執行階段時是否有功能。 以按鈕控制項為例 ? Enabled = True 表按鈕有效(允許被按下)； ? Enabled = False表按鈕失效(按鈕上文字呈 浮水印狀)。 若要設定btnOk(i.e.按鈕控制項的name)在程式執行時失效，寫法： btnOK.Enabled = False Visible屬性是設定程式執行時是否能顯現。 Visible = True 表示可顯現Visible = False 表示不顯現。 在程式編輯模式，要設定 btnOk 按鈕控制項在程式執行時不能顯現，寫法： btnOK.Visible = False 豬 大 Step1 建立表單 ?專案名稱命名為『buttonEx』。 ?在表單內，建立五個按鈕控制項與一個標籤控制項， 如下圖所示： Step2 請按照下表來設定各物件的屬性： btn1 FileName : buttonEx.sln 01 Private Sub btnEnd_Click(ByVal sender As System.Object, _  ByVal e As System.EventArgs) Handles btnEnd.Click 02 End ‘隨時可按結束鈕，結束執行 03 End Sub 04 ----------------------------------------------------------------------------------- 05 Private Sub btn1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btn1.Click 06 btn1.Text = 大野狼 ‘btn1按鈕上的文字改成大野狼 07 btn1.Enabled = False ‘btn1按鈕功能失效 08 lblMsg.Text = “小心大野狼！ ‘lblMsg標籤顯示該 字串 09 End Sub 10 ----------------------------------------------------------------------------------- 11 Private Sub btn2_Click(ByVal sender As System.Object, _  ByVal e As System.EventArgs) Handles btn2.Click 12 btn2.Text = 大野狼 13 btn2.Enabled = False 14 lblMsg.Text = 小心大野狼！ 15 End Sub Step3 編輯各事件處理程序的程式碼 17 Private Sub btn3_Click(ByVal sender As System.Object, ByVal e _  As System.EventArgs) Handles btn3.Click 18 btn3.Text = 豬小弟 ‘btn3按鈕顯示豬小弟 19 btn3.Enabled = False ‘btn3按鈕功能失效 20 btn1.Visible = False ‘btn1按鈕失不顯現 21 btn2.Visible = False ‘btn2按鈕失不顯現 22 btn4.Visible = False ‘btn4按鈕失不顯現 23 lblMsg.Text = 來烤小乳豬！ ‘lblMsg標籤顯示該 字串 24 End Sub 25 -------------------------------------------------------------------------------------- 26 Private Sub btn4_Click(ByVal sender As System.Object, ByVal e _ As System.EventArgs) Handles btn4.Click 27 btn4.Text = 大野狼 28 btn4.Enabled = Fal