松冈vb2010-ch03(10943 kb ).ppt

下载文档 降价啦

1
0
约1.5万字
约 81页
2017-08-21 发布于天津
举报
版权申诉
保障服务

松冈vb2010-ch03(10943 kb ).ppt

1、本文档共81页，可阅读全部内容。
2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

松冈vb2010-ch03(10943 kb )

二、控制項的 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