VB第七章常用控件.ppt

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