VB第七章常用控件.ppt

第七章 常用控件,張琴,主要內(nèi)容,單選按鈕和復(fù)選框 框架 列表框和組合框 滾動(dòng)條和Slide控件 時(shí)鐘 ProgressBar進(jìn)度條控件 UpDown控件 Animation控件 SSTab控件 鼠標(biāo)器和鍵盤,VB的控件,標(biāo)準(zhǔn)控件-全部出現(xiàn)在工具箱中，20個(gè) ActiveX控件-使用前需要添加到工具箱中 ActiveX部件：是可以重復(fù)使用的編程代碼和數(shù)據(jù)，是由用ActiveX技術(shù)創(chuàng)建的一個(gè)或多個(gè)對(duì)象所組成。 ActiveX部件文件：擴(kuò)展名OCX，在Windows的SYSTEM目錄下。 包括ActiveX控件、 ActiveX文檔、 ActiveX DLL、 ActiveX EXE四種，其中控件是有界面的，加載到工具箱上有圖標(biāo)；而dll/exe沒有。 可插入對(duì)象- Windows應(yīng)用程序的對(duì)象；可添加到工具箱上，同標(biāo)準(zhǔn)控件一樣使用。例如：Microsoft Excel工作表。,常用的ActiveX控件,1.單選按鈕和復(fù)選框,屬性 Caption 標(biāo)題 Alignment 0-控件鈕在左邊，標(biāo)題顯示在右邊。 1-控件鈕在右邊，標(biāo)題顯示在左邊。 Value 單選鈕(邏輯型) 檢查框（數(shù)值型） True：選定 0-Unchecked：未被選定 False：未選定 1-Checked：選定 2-Grayed：灰色，禁止選擇 Style 0-Standard：標(biāo)準(zhǔn)方式 1-Graphical：圖形方式,事件 Click事件 由于單擊時(shí)單選按鈕和復(fù)選框均自動(dòng)改變狀態(tài)，故不需要編寫過程。,例：用單選按鈕和復(fù)選框設(shè)置文本框的字體,2.框架Frame,用于將控件分組，特別是一個(gè)界面上需要多組單選按鈕的時(shí)候。 屬性 Caption屬性：框架標(biāo)題 Enabled屬性： False：標(biāo)題呈灰色，不允許對(duì)框架內(nèi)的對(duì)象進(jìn)行操作。 Visible屬性： True：框架及其控件可見。 False：框架及其控件被隱藏起來。 事件支持Click、DblClick事件，但是一般不需要編寫框架的事件過程,例：,3.列表框和組合框,二者共有的屬性,(P：可在程序中設(shè)置或引用，D：可在設(shè)計(jì)狀態(tài)設(shè)置。) List ：PD 字符型數(shù)組，存放列表框的項(xiàng)目，下標(biāo)是從0開始。 ListCount：P 項(xiàng)目的數(shù)量，ListCount-1是最后一項(xiàng)的下標(biāo)。 ListIndex：P 被選中的項(xiàng)目的序號(hào)，沒有項(xiàng)目被選中時(shí)為-1 Sorted：D True：按字母順序排列。False：按加入先后順序排列。 Text：P 列表項(xiàng)中被選定項(xiàng)目的內(nèi)容， 注意：List1.List(List1.ListIndex) List1.Text 二者表示相同含義,列表框獨(dú)有的屬性,Selected：P 邏輯數(shù)組 Selected(i)的值為True表示第i+1項(xiàng)被選中。 MultiSelect 0-None：禁止多項(xiàng)選擇。 1-Simple：簡單多項(xiàng)選擇。 2-Extended：擴(kuò)展多項(xiàng)選擇。,組合框獨(dú)有的屬性,style,方法,AddItem 對(duì)象.AddItem item , index RemoveItem 對(duì)象. RemoveItem index Clear 對(duì)象. Clear,事件,列表框：Click、DblClick。 組合框：Click，只有簡單組合框才有DblClick事件。 一般不需要編寫Click事件過程。 通常在單擊命令按鈕或發(fā)生DblClick事件時(shí)才讀取Text屬性,例7.4,4.滾動(dòng)條和Slide控件,附加在窗體或其它控件上 1.協(xié)助觀察數(shù)據(jù) 2.確定位置 3.數(shù)據(jù)輸入,滾動(dòng)條：標(biāo)準(zhǔn)控件，位于工具箱中 Slider控件：位于MicroSoft Windows Common Control 6.0部件中，使用之前需要手動(dòng)添加引用,二者共有的屬性,Max：滑塊位于最大位置時(shí)代表的值 （-32 76832 767） Min：滑塊位于最小位置時(shí)代表的值 （-32 76832 767） SmallChange：最小變動(dòng)值，單擊滾動(dòng)條兩端箭頭時(shí)移動(dòng)的增量值。 LargeChange：最大變動(dòng)值，單擊滾動(dòng)條空白處時(shí)移動(dòng)的增量值。 Value：滑塊所處位置所代表的值。,Slider控件的其它屬性,TickStyle：控件的顯示樣式 TickFrequency：控件上刻度的疏密，如果為1代表每隔一個(gè)單位就有一個(gè)刻度點(diǎn) TextPosition：設(shè)置當(dāng)前刻度值的提示,事件,Scroll：拖動(dòng)滑塊時(shí)會(huì)觸發(fā)Scroll事件。 Change：Value屬性改變時(shí)觸發(fā)Change事件。,5.時(shí)鐘,時(shí)鐘控件以Interval為時(shí)間間隔產(chǎn)生 Timer事件-鬧鐘 程序運(yùn)行時(shí)時(shí)鐘控件并不顯示在窗體上 屬性 Interval屬性 單位：ms(0.001s)，1秒是1000ns。 Interval0：屏蔽計(jì)時(shí)器。 Enabled屬性 True：有效計(jì)時(shí) False：停止時(shí)鐘工作 事件 Timer,6. ProgressBar控件,在執(zhí)行一個(gè)耗時(shí)較長的操作時(shí)通常會(huì)用一個(gè)進(jìn)度條顯示事務(wù)處理的進(jìn)程 位于Microsoft Windows Common Control 6.0部件中 屬性 Max、Min：進(jìn)度條的界限 Value：進(jìn)度條當(dāng)前到達(dá)的值 使用value/(max-min+1)決定當(dāng)前進(jìn)度條被填充的多少,7.UpDown控件,位于Microsoft Windows Common Control-2 6.0 通常與其它控件 “捆綁”在一起使用 設(shè)置UpDown控件的合作者名稱和屬性，將UpDown控件與伙伴控件關(guān)聯(lián)起來,8.Animation控件,用于顯示無聲的AVI視頻文件 位于Microsoft Windows Common Control-2 6.0 四個(gè)重要的方法： Open 打開視頻文件 Play 播放視頻文件 Stop 停止播放 Close 關(guān)閉視頻文件,9.SSTab控件,選項(xiàng)卡 位于Microsoft Tabbed Dialog Control 6.0 重要屬性： Style：選項(xiàng)卡樣式； Tabs： 選項(xiàng)卡總數(shù)； TabsPerRow：每一行選項(xiàng)卡的數(shù)目； Rows：選項(xiàng)卡總行數(shù)； TabOrientation：選項(xiàng)卡的位置； ShowFocusRect：決定選項(xiàng)卡上的焦點(diǎn)矩形是否可視； Tab：當(dāng)前選項(xiàng)卡的序號(hào)。序號(hào)從0開始，如果Tab為1， 則第 二個(gè)選項(xiàng)卡為當(dāng)前活動(dòng)的選項(xiàng)卡,10.鼠標(biāo)和鍵盤,鼠標(biāo)和鍵盤是兩種最重要的與計(jì)算機(jī)進(jìn)行交互的工具 VB應(yīng)用程序可以響應(yīng)多種鼠標(biāo)和鍵盤事件,鼠標(biāo)事件,Click DblClick MouseDown按下鼠標(biāo)按鈕時(shí)觸發(fā) MouseUp抬起鼠標(biāo)按鈕時(shí)觸發(fā) MouseMove鼠標(biāo)移動(dòng)時(shí)觸發(fā) 編程時(shí)需要注意這些鼠標(biāo)事件需要被什么對(duì)象識(shí)別，即鼠標(biāo)事件發(fā)生在哪些對(duì)象上,以窗體為例,Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single),參數(shù),Button：表示用戶按下或釋放了那個(gè)鍵，b2b1b0(b0=1表示用戶操作了左鍵；b1=1表示右鍵；b2=1表示中鍵) 1vbLeftButton 單擊左鍵 2vbRightButton 單擊右鍵 4vbMiddleButton 單擊中鍵 Shift：包含了鍵盤上shift,ctrl,alt鍵的信息b2b1b0 (b0=1表示用戶按下shift鍵；b1=1表示ctrl；b2=1表示alt) 1vbShiftMask shift鍵被按下 2vbCtrlMask ctrl鍵被按下 4vbAltMask alt鍵被按下 X,Y：鼠標(biāo)當(dāng)前位置的坐標(biāo)值,思考：,如果鼠標(biāo)左鍵右鍵同時(shí)按下，button取值應(yīng)該是多少？ b0=1 b2=1 = button and 111B=011B Button=3 如果鍵盤上ctrl和alt鍵同時(shí)按下，shift取值應(yīng)該是多少？ b1=1 b2=1 = shift and 111B=101B shift=5,鍵盤事件,KeyPress：按下并釋放了一個(gè)會(huì)產(chǎn)生ASCII碼的鍵時(shí)觸發(fā) KeyDown：按下任意一個(gè)鍵時(shí)觸發(fā) KeyUp：釋放任意一個(gè)鍵時(shí)觸發(fā),鍵盤事件過程,KeyPress事件過程 Sub Form_KeyPress(KeyAscii As Integer) Sub object_KeyPress(index As Integer,KeyAscii As Integer) KeyUp事件過程 Sub Form_KeyUp(keycode As Integer, shift As Integer) Sub object_KeyUp(index As Integer,keycode As Integer, shift As Integer) KeyDown事件過程 Sub Form_KeyDown(keycode As Integer, shift As Integer) Sub object_KeyDown(index As Integer,keycode As Integer, shift As Integer),參數(shù),KeyAscii：字符的ASCII碼 KeyCode：鍵盤上鍵的掃描碼（物理鍵的編碼，同一個(gè)鍵只有一個(gè)掃描碼） Shift：與鼠標(biāo)事件過程參數(shù)的定義相同,ASCII碼與掃描碼的區(qū)別,默認(rèn)情況下，窗體是不接收KeyPress,KeyDown,KeyUp事件的，需要將窗體的KeyPreview屬性設(shè)成true，窗體才能夠響應(yīng)鍵盤事件。,例1,？窗體KeyPreview為False時(shí) 在文本框中輸入“1”時(shí)，實(shí)際上得到的是什么。,Sub Form_KeyPress(KeyAscii AsInteger) KeyAscii = KeyAscii + 1 End Sub,Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = KeyAscii + 1 End Sub,將窗體的KeyPreview屬性設(shè)為true,例2-修改輸入數(shù)據(jù),只接收大寫字符 將KeyPreview設(shè)置為True時(shí)： Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = Asc(“a“) And KeyAscii = Asc(“z“) Then KeyAscii = KeyAscii + Asc(“A“) - Asc(“a“) End If End Sub,如果把它改為某個(gè)控件的事件過程，效果一樣嗎？,例3-限制輸入數(shù)據(jù),文本框只能接收“0”“9”的數(shù)字字符 Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii asc(9) Then KeyAscii = 0 End If End Sub,例4,編寫一個(gè)程序，按下alt+F5組合鍵的時(shí)候終止程序運(yùn)行。 首先需要將窗體的KeyPreview設(shè)為true 對(duì)窗體的KeyDown事件進(jìn)行編程,拖放,Drag and Drop技術(shù) 可以用鼠標(biāo)將一個(gè)對(duì)象“拖”到另外的地方再“放”下 理解為兩個(gè)操作： 發(fā)生在源對(duì)象上的“拖”操作 發(fā)生在目標(biāo)對(duì)象上的“放”操作,例子,將圖形框拖放到窗體上的其他位置，如果被拖動(dòng)到“取消拖放”標(biāo)簽上則取消對(duì)圖形框的拖放。,第一步,設(shè)置picture控件的DragMode屬性 1自動(dòng)拖放模式。程序運(yùn)行期間，用戶只要將鼠標(biāo)指針置于需要拖放的對(duì)象上，按下左鍵，然后拖動(dòng)鼠標(biāo)，源對(duì)象的圖標(biāo)就可以跟隨鼠標(biāo)移動(dòng)。 0手工拖放模式。必須在MouseDown事件中用Drag方法實(shí)現(xiàn)對(duì)源對(duì)象的拖動(dòng)。 Sub Picture1_MouseDown(button as interger,shift as integer,x as single,y as single) Picture1.drag 1 End sub,第二步,編寫窗體的DragDrop事件過程 當(dāng)源對(duì)象被拖動(dòng)到某個(gè)地方釋放鼠標(biāo)的時(shí)候，本身并不會(huì)移動(dòng)到新的位置，但是會(huì)在目標(biāo)對(duì)象上引發(fā)DragDrop事件。需要在該事件過程中使用Move方法實(shí)現(xiàn)源對(duì)象的移動(dòng)。 Sub Form_DragDrop(source as control,x as single,y as single) Source.move(x-source.width/2),(Y-source.height/2) 將源對(duì)象的中心置于鼠標(biāo)指針的位置 End sub Source表示被拖放的源對(duì)象，x y表示鼠標(biāo)指針的位置。,第三步,編寫“取消拖放”標(biāo)簽的DragOver事件過程 Sub label1_DragOver(source as control,x as single,y as single) source.drag 0 End sub 對(duì)象的Drag方法：對(duì)象名.Drag 參數(shù) 0：取消拖放操作； 1(省略)：啟動(dòng)拖放操作； 2：結(jié)束并停止拖放拖放操作并釋放控件。,第四步,拖動(dòng)時(shí)隨鼠標(biāo)移動(dòng)的只是代表源控件的一個(gè)邊框。如果希望拖動(dòng)的是某個(gè)圖標(biāo)而不只是一個(gè)邊框，就需要對(duì)源對(duì)象的DragIcon屬性進(jìn)行設(shè)置。,自動(dòng)拖放,手工拖放,OLE拖放,OLE Drag and Drop 將數(shù)據(jù)從一個(gè)控件或者應(yīng)用程序中移動(dòng)到另一個(gè)控件或應(yīng)用程序