第8章控件與掌握常用單選鈕、檢查框框架滾動(dòng)條列表框

本章要

第8件與組合框、時(shí)鐘、數(shù)據(jù) 控件的常用、屬性、重要事件了解一些常用系統(tǒng)對(duì)象的使用 第8件與本章重單選鈕、檢查框、框架、滾動(dòng)條、列表框、組合框、本章難單選鈕和復(fù)選用單選鈕（OptionButton）單選鈕和復(fù)選重要屬Caption：0：—LeftJustify(缺省設(shè)置)控件 1：—RightJustify控 右邊，標(biāo)題顯示在左邊Value屬 True:單選鈕被選False:單 被選定（缺省設(shè)置Style0--Standard：標(biāo)準(zhǔn)方 1--Graphical：圖形方Style屬性設(shè)置為1Picture單選鈕和復(fù)選3.方SetFocus方法是單選鈕控件最常用的方法，可以在代碼中3.方4.事為單選鈕編寫Click事件過程，因?yàn)楫?dāng)用戶單擊單選鈕時(shí)，它單選鈕和復(fù)選[例]設(shè)計(jì)一個(gè)程序，用戶界面由四個(gè)單選鈕、一

控件和個(gè)命令按鈕組成，程序開始運(yùn)行后，用戶單擊某個(gè)單選鈕，就將它對(duì)應(yīng)的內(nèi)容(星期、日期、月份或年份)顯示

星期：weekday月：month年：year()日期：day()單選鈕和復(fù)選用檢查框（CheckBox）也稱作復(fù)選框、選擇框。一組檢查框時(shí)選擇任意多個(gè)選項(xiàng)，實(shí)現(xiàn)一種“選擇”的功能。選擇某一選項(xiàng)后，該控件將顯示√，而清除此選項(xiàng)后，√。單選鈕和復(fù)選重要屬True:False:單選被選定單選鈕和復(fù)選3.事Click事件是檢查框控件最基本的事件。用戶一般無需為檢查框編寫Click事件過程，但其對(duì)Value3.事單選鈕和復(fù)選 ，如圖所示列表框列表框和組合多個(gè)數(shù)據(jù)項(xiàng)供用戶選擇。在列表框中放入若干個(gè)項(xiàng)的名列表框和組合List數(shù)據(jù)項(xiàng)內(nèi)容。List數(shù)組的下標(biāo)從0開始，即List（0）保存ListCount該屬性記錄了列表框中的數(shù)據(jù)項(xiàng)數(shù)，該屬性只能在程序 列表框列表框和組合

列表框和組合用于存放被選中列表項(xiàng)的文本內(nèi)容。該屬性是只讀的， 列表框列表框和組合列表框列表框和組合用于指示是否能夠在列表框或組合框控件中進(jìn)行復(fù)選1：簡(jiǎn)單復(fù)選。鼠標(biāo)單擊或按下空格鍵在列表中選中或2：擴(kuò)展復(fù)選。按下Shift并單擊鼠標(biāo)將在以前選中項(xiàng)的基礎(chǔ)上擴(kuò)展選擇到當(dāng)前選中項(xiàng)。按下Ctrl鍵并單擊鼠標(biāo)表列表框列表框和組合(8)NewIndex返回最近加入列表框或組合框控件的項(xiàng)目的索引。如果在列表已沒有項(xiàng)目或刪除了一個(gè)項(xiàng)目，該屬性將返回-1返回或設(shè)置一個(gè)值，該值指定哪個(gè)項(xiàng)被顯示在列表框或組合框件頂部的位置。該屬性取值范圍從0到ListCount-1，在設(shè)計(jì)時(shí)不可用。返回一個(gè)邏輯值，當(dāng)orted屬性為re時(shí)列表框或組合框控件的項(xiàng)目自動(dòng)按字母表順序(升序)排序，為e時(shí)項(xiàng)目按加入的先后順序列表框列表框和組合2.(1)Click當(dāng)單擊某一列表項(xiàng)目時(shí)，將觸發(fā)列表框與組合框控件的Click事件。該事件發(fā)生時(shí)系統(tǒng)會(huì)自動(dòng)改變列表框與組合框控件的ListIndex、Selected、2.(1)Click(2)DblClick當(dāng)雙擊某一列表項(xiàng)目時(shí)，將觸發(fā)列表框與簡(jiǎn)單組合框控件的DblClick(2)DblClick(3)Change當(dāng)用戶通過鍵盤輸入改變下拉式組合框或簡(jiǎn)單組合框控件的文本(3)Change的正文，或者通過代碼改變了Text屬性的設(shè)置時(shí)，將觸發(fā)其Change事件。列表框和組合<列表框控件名|組合框控件名>.Additem<項(xiàng)目>[,<索引值<列表框控件名|組合框控件名>.RemoveItem<索引值該方法刪除列表框控件中的所有列表項(xiàng)。其語(yǔ)法<列表框控件名|組合框控件名獲取用戶選

Change事滾動(dòng)條的Change事件在移動(dòng)滾動(dòng)框或通過代碼改變其Value屬性值時(shí)發(fā)生。單擊滾動(dòng)條兩端的箭頭或空白處將引Scroll事當(dāng)滾動(dòng)框被重新定位，或按水平方向或垂直方向滾動(dòng)時(shí)，Scroll事件發(fā)生。拖動(dòng)滑塊時(shí)會(huì)觸發(fā)Scroll事件Scroll事件與Change事件的區(qū)別在于：當(dāng)滾動(dòng)條控件滾動(dòng)時(shí)Scroll事件一直發(fā)生，而Change事件只是在滾動(dòng)結(jié)束PrivateSubHScroll1_Change（）Label1.Caption=HScroll1.ValueText1.FontSize=HScroll1.ValueEnd[例]設(shè)計(jì)一個(gè)[例]設(shè)計(jì)一個(gè)程序，在窗體上放置三個(gè)水平滾動(dòng)條，一個(gè)文本框時(shí)鐘控1（Tie）計(jì)等。1時(shí)鐘控Interval屬取值范圍在0~64767，單位：為毫秒（0.001秒），表示計(jì)時(shí)間隔。若將Interval屬性設(shè)置為0或負(fù)數(shù)，則計(jì)時(shí)器Enabled屬設(shè)置為True，而且Interval屬性值大于0，則計(jì)時(shí)器開

時(shí)鐘控[例]設(shè)計(jì)一[例]設(shè)計(jì)一個(gè)程序，在窗體上放置三個(gè)水平滾動(dòng)條，一個(gè)文本框設(shè)Caption設(shè)Caption為"字體FrameFrame容器控件。OptionButton為了將控件分組，首先需要繪制Frame控件，然后繪制Frame里面的控件。這樣就可以把框架和里面的控件同時(shí)移動(dòng)。如果在Frame外部繪制了一個(gè)控件并試圖把它移到框 ，那么控件將在Frame的上部，這時(shí)需分別移動(dòng)Frame和控件。在框架中適當(dāng)位置拖拉出適當(dāng)大小的控件。不能使擊工具架，使用(Ctrl+V)命令粘貼到框架內(nèi)。重要屬1.Caption2Enabled屬性：缺省為False：標(biāo)題呈灰色，不允許對(duì)框架內(nèi)的所有對(duì)象進(jìn)行操作3.Visible 框架Caption屬文件系統(tǒng)控 驅(qū)動(dòng)器目目文件系統(tǒng)控文件系統(tǒng)控驅(qū)動(dòng)器列表框（DriveListBox）控件，通常只顯示當(dāng)前Drive屬性是驅(qū)動(dòng)器列表框控件最重要和常用的屬性，該屬性在設(shè)計(jì)object.Drive字符串表達(dá)式例如 文件系統(tǒng)控在程序運(yùn)行時(shí)，當(dāng)選擇一個(gè)新的驅(qū)動(dòng)器或通過代碼改變Drive屬性的設(shè)置時(shí)都會(huì)觸發(fā)驅(qū)動(dòng)器列表框的change事件發(fā)生列表框列表框（DirListBox）控件 戶選擇其中一 為當(dāng)

文件系統(tǒng)控 列表框控件的最常用的屬性，用于返回或設(shè)使用格式：Object.Path[=<字符串表達(dá)式 例如，Dir1.Path="C:\Mydir"。說明：Path屬性也可以直接設(shè)置限定的網(wǎng)絡(luò)路徑 文件系統(tǒng)控 文件系統(tǒng)控文件列表框文件列表框（FileListBox）Path屬性指定的中的文件定位并列舉出來。該控件用來顯示所選 文件系統(tǒng)文件系統(tǒng)控例如：要從文件列表框（File1）中獲得全路徑的文件名IfRight(file1.path,1)="\"ThenFname$=file1.path&file1.filenameFname$=file1.path&"\"&End文件系統(tǒng)控設(shè)置形式為 Object.Pattern[=其中value是一個(gè)用來指定文件類型的字符串表達(dá)式，并可使File1.Pattern="*.txtFile1.Pattern="*.txt;*.Doc“File1.Pattern="???.txt“

文件系統(tǒng)控SubfilFile_Click(MsgBoxfilFile.FileNameEndSubSubFile1_DblClick(DimFnameAsIfRight(file1.path,1)="\"Fname=file1.path&Fname=file1.path&"\"&file1.filenameEndIfRetVal (Fname ‘End文件系統(tǒng)控說明：要使驅(qū)動(dòng)器、 SubDir1_Change()filFile.Path=SubDir1_Change()filFile.Path=Dir1.PathEndDir1.Path=End數(shù)據(jù)控?cái)?shù)據(jù)控件（Data控件）是VisualBasic中最常見的控件，在工具箱中的圖標(biāo)為 二、數(shù)據(jù)控件常用屬 1.Connect屬Connect屬性指定數(shù)據(jù)控件所要連接的數(shù)據(jù)庫(kù)類型 的數(shù)據(jù)庫(kù)類型，VisualBasic可識(shí)別的數(shù)據(jù)有 2）BorlanddBASE、 3）BorlandParadox的DB文件；NovellBtrieve的DDF文件Excel的XLS文件Lotus的WKS文件OpenDataBaseConnectivity(ODBC)數(shù)據(jù)庫(kù)2.DatabaseName屬 例如，下面語(yǔ)句設(shè)置了 的數(shù)據(jù)庫(kù)名稱 33RecordSourceRecordSource屬性確定具體 Recordset BOFAction、EOFAction 當(dāng)RecordSource在運(yùn)行時(shí)被改變后，必須使用激活