欢迎来到天天文库
浏览记录
ID:5584555
大小:248.50 KB
页数:30页
时间:2017-11-13
《visualbasic程式设计》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、VisualBasic程式設計講師:戴志華hana@arbor.ee.ntu.edu.tw國立台灣大學電機工程研究所第八章圖形化使用者介面TextBox屬性EnabledMultiline多行PasswordChar不顯示輸入字元Scrollbars使用捲軸Text輸入的文字內容SelLength選取文字之長度SelStart選取文字之開始位置ToolTipText提示文字3TextBox(cont’d)事件處理函式Change內容改變Clicked滑鼠按下GotFocusLostFocusKeyDown鍵盤按下KeyUp放開鍵盤方法SetFocusText1Text2Comma
2、nd14PrivateSubCommand1_Click()If(Text1.Text="")ThenText1.Text=Text2.TextElseText1.Text=Text1.Text+vbNewLine+_Text2.TextEndIfEndSubPrivateSubForm_Click()Text2.SetFocusEndSubPrivateSubText2_LostFocus()MsgBox"不要離開我...:("Text2.SetFocusEndSubPrivateSubText2_GotFocus()MsgBox"你還是回來了...:)"EndSub5將Tex
3、tBox的內容變成反白PrivateSubCommand1_Click()Text1.SetFocusText1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub6ActiveX控制項基本控制項預設會出現ActiveX控制項要手動增加7按下右鍵選擇Components新增了MaskedEdit8MaskEdit屬性Mask輸入格式設定Text輸入的文字PromptChar提示提示字元Text1MaskEdBox1Command19MaskEdit(cont’d)PrivateSubCommand1_Click()If(Text1.Te
4、xt="")ThenText1.Text=MaskEdBox1.TextElseText1.Text=Text1.Text+vbNewLine+_MaskEdBox1.TextEndIfEndSubMask[##]######10MaskEdit(cont’d)格式設定字元#數字一定>轉大寫9數字<轉小寫A字元一定?字母一定a字元體重##9姓>AAAaaaa11ComboBox屬性List所有元素形成的陣列ListCount元素的數目ListIndex被選擇的元素的位置-1表示未選擇Sorted是否排序Style風格Text被選擇的元素的內容12PrivateSubCommand
5、1_Click()Combo1.AddItem(Text1.Text)EndSubPrivateSubForm_Click()MsgBoxCombo1.ListCountMsgBoxCombo1.ListIndexMsgBoxCombo1.List(Combo1.ListIndex)EndSub13ComboBox(cont’d)方法AddItem(字串[,位置])新增元素Clear清除所有的元素RemoveItem(數字)清除某一個元素StylevbComboDropDown可自行輸入vbComboSimple不可下拉(展開)vbComboDropDownList不可自行輸入1
6、4ListBox屬性Columns欄位的數目List所有元素形成的陣列ListCount元素的數目ListIndex被選擇的元素的位置-1表示未選擇MultiSelect是否可以一次選擇多個元素Sorted是否排序Style風格SelCount選取的總數Text被選擇的元素的內容15ListBox(cont’d)屬性Selected(數字)檢查某個元素是否有被選方法AddItem(字串[,位置])新增元素Clear清除所有的元素RemoveItem(數字)清除某一個元素StylevbListBoxStandardvbListBoxCheckBox不可使用MultiSelec16L
7、istBox(cont’d)MultiSelect0不可同時選擇多個元素1可以2予許用拖曳的方式選擇MultiSelect=0MultiSelect=217PrivateSubCommand1_Click()If(List1.ListIndex<>-1)ThenText1.Text=Text1.Text+vbNewLine+_List1.List(List1.ListIndex)EndIfEndSubPrivateSubCommand2_Click()DimiAsIntegerF
此文档下载收益归作者所有