程序設(shè)計語言VB6.0課件第10章其他控件及其應(yīng)用

第10章其他控件及其應(yīng)用學(xué)習(xí)重點組合框與滾動條的常用屬性、方法和事件。文件管理控件。

公共對話框。10.1組合框與滾動條10.2文件管理控件10.3公共對話框本章內(nèi)容1．組合框（1）常用屬性

組合框除了表2-15介紹的公共屬性外，最重要的是Syle屬性。列表框也具有該屬性，但兩者的取值及含義是不同的。組合框中該屬性可以取0（默認(rèn)值）、1和2，分別表示如下3種樣式，如圖所示。（2）方法

列表框中介紹的方法同樣適合組合框。（3）事件

組合框響應(yīng)的事件依賴于它的Style屬性值。當(dāng)Style為0或1時，能進(jìn)行文本輸入，因此可以接收Change、KeyPress事件。當(dāng)Style為0或2時，可以進(jìn)行單擊組合框中下拉箭頭操作，因而能夠接收Click、DropDown事件。只有當(dāng)Style為1時，才能接收DblClick事件。10.1組合框與滾動條例10-1PrivateSubForm_Load() Combo1.AddItem"研究生"Combo1.AddItem"本科"Combo1.AddItem"大專"Combo1.AddItem"大專以下"EndSubPrivateSubCombo1_click()Text1.Text="你的學(xué)歷是"&Combo1.TextEndSubPrivateSubCombo1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then Text1.Text="你的學(xué)歷是"&Combo1.TextEndIfEndSub1．常用屬性2滾動條

屬性名功能說明屬性名功能說明Name滾動條名稱SmallChange滑塊滾動的小增量值Max滾動條的最大值LargeChange滑塊滾動的大增量值Min滾動條的最小值Value當(dāng)前滑塊的位置（1）Change事件

該事件在滾動后發(fā)生，只要滑塊位置發(fā)生變化，即當(dāng)Value屬性值發(fā)生變化時，觸發(fā)該事件。（2）Scroll事件

該事件在拖動滾動滑塊時發(fā)生，在單擊兩端箭頭或滾動條空白處時不發(fā)生。當(dāng)拖動操作結(jié)束，滑塊位置變化，再產(chǎn)生Change事件。2．事件10.1組合框與滾動條例10-2編程實現(xiàn)利用滾動條的移動改變字體的大小。PrivateSubForm_Load() PrivateSubH1_Change()Label2.FontSize=H1.Value Label1.Caption="字體大?。?&H1.ValueEndSub Label2.FontSize=H1.Value EndSub要求：當(dāng)滾動條移動時，將當(dāng)前Value屬性值顯示在標(biāo)簽1中，并同步改變標(biāo)簽2的字體大小。滾動條的Name屬性設(shè)為H1，Min屬性設(shè)為5，Max屬性設(shè)為30，SmallChange屬性和LargeChange

屬性都設(shè)為1。10.2文件管理控件VisualBasic中提供了3種能直接瀏覽系統(tǒng)的磁盤、目錄結(jié)構(gòu)和文件情況的文件系統(tǒng)控件，即驅(qū)動器列表框（DriveListBox）、目錄列表框（DirListBox）和文件列表框（FileListBox）。可利用這3種控件建立與文件管理器類似的窗口界面。10.2.1驅(qū)動器列表框

1．Drive屬性用來設(shè)置或返回所選擇的驅(qū)動器名。Drive屬性不能在屬性窗口中設(shè)置，只能在程序運行時，對驅(qū)動器列表框選擇操作設(shè)置，或在程序代碼中用語句設(shè)置。使用格式如下：驅(qū)動器列表框名.Drive[=驅(qū)動器名]其中，驅(qū)動器名是字符串形式的指定所選擇的驅(qū)動器，例如，"A:"或"a:"，"C:\"或"c:"等；默認(rèn)情況下，Drive屬性表示驅(qū)動器列表框中選中的驅(qū)動器。從驅(qū)動器列表框中選擇驅(qū)動器或用代碼修改Drive屬性并不能使計算機系統(tǒng)自動改變當(dāng)前驅(qū)動器，必須通過ChDrive語句來實現(xiàn)，使用格式如下：ChDriveDrive1.Drive同樣，ChDrive語句不會改變驅(qū)動器列表框中的選項，僅修改系統(tǒng)的當(dāng)前驅(qū)動器號。2．Change事件每次重新選擇驅(qū)動器列表框中的選項或修改驅(qū)動器列表框的Drive屬性時都會觸發(fā)Change事件。示例代碼如下：PrivateSubDrive1_Change()

ChDriveDrive1.Drive '改變計算機系統(tǒng)當(dāng)前驅(qū)動器EndSub10.2.1驅(qū)動器列表框

10.2.2目錄列表框

目錄列表框中按目錄結(jié)構(gòu)層次逐層排列，層層縮進(jìn)的方式顯示了從根目錄開始到當(dāng)前目錄這條路徑間的所有目錄，以及當(dāng)前目錄的下屬所有的第一級子目錄。對于每一個顯示的列表項都有一個索引值標(biāo)識，圖中當(dāng)前目錄的索引值為-1，向上依次為-2、-3……，向下的每一個第一級子目錄索引值依次為0、1、2……。通過雙擊某個列表項（目錄），可顯示其所有子目錄或關(guān)閉顯示，并使該目錄成為當(dāng)前目錄。10.2.2目錄列表框

1．Path屬性用來設(shè)置或返回目錄列表框中突出顯示的當(dāng)前目錄信息。雙擊某列表項目錄，將該列表項目錄作為當(dāng)前目錄賦予Path屬性，同時將其索引值ListIndex屬性設(shè)置為-1，并重新設(shè)置目錄列表框中的顯示內(nèi)容。此時，Dir1.Path屬性和Dir1.List(Dir1.ListIndex)屬性值相同?？梢允褂谜Z句來修改當(dāng)前的目錄，如Dir1.Path="D:\123"。同樣，修改目錄文件夾的Path屬性，只會改變目錄列表框中的顯示及目錄列表框的選中目錄，并不能真正改變系統(tǒng)中當(dāng)前驅(qū)動器的當(dāng)前文件夾；ChDir語句能改變系統(tǒng)當(dāng)前驅(qū)動器的當(dāng)前文件夾，使用以下語句將目錄列表框中的當(dāng)前目錄設(shè)置為系統(tǒng)當(dāng)前文件夾：ChDirDir1.Path在應(yīng)用程序中，也可用Application系統(tǒng)對象（對象名為App）將當(dāng)前目錄設(shè)置成應(yīng)用程序的可執(zhí)行文件所在的目錄。ChDriveApp.Path '設(shè)置當(dāng)前驅(qū)動器ChDirApp.Path '設(shè)置當(dāng)前目錄1．Path屬性一般地，在同一個窗體中將目錄列表框和驅(qū)動器列表框聯(lián)合起來使用表示驅(qū)動器和目錄信息，并且希望在目錄列表框中顯示驅(qū)動器列表框的當(dāng)前驅(qū)動器中的目錄信息。這時，可以在驅(qū)動器列表框的Change事件中設(shè)置目錄列表框的當(dāng)前目錄，示例代碼如下：PrivateSubDrive1_Change() '實現(xiàn)目錄列表框與驅(qū)動器列表框的同步變化

Dir1.Path=Drive1.DriveEndSub10.2.2目錄列表框

2．Change事件每次用戶雙擊重新選擇目錄列表框中的選項，或在代碼中修改目錄列表框的Path屬性時都會觸發(fā)Change事件。示例代碼如下：PrivateSubDir1_Change()

ChDirDir1.Path '將目錄列表框中的當(dāng)前目錄設(shè)置為系統(tǒng)當(dāng)前文件夾EndSub10.2.2目錄列表框

10.2.3文件列表框

1．屬性（1）Path屬性用來設(shè)置和返回文件列表框中顯示文件的路徑，這也是一個運行態(tài)屬性，僅能在代碼中通過重新賦值來改變文件列表框中的顯示，代碼如下：File1.Path="D:\qy"File1.Path=Dir1.Path'語句使文件列表框和目錄列表框同步1．屬性（2）Pattern屬性用來設(shè)置文件列表框中顯示文件的類型，可以在屬性窗口中設(shè)置，也可以在代碼中設(shè)置。默認(rèn)時，Pattern屬性值為*.*，即顯示所有的文件。Pattern屬性可以是帶有通配符的字符串，常用的通配符有“*”和“?”?！?.doc”表示只顯示擴展名為doc的Word文檔；“*.frm;*.vbp”表示只顯示擴展名為frm和vbp的文件；“??.exe”表示只顯示文件名有兩個字符組成且擴展名為exe的文件。在代碼窗口可以用賦值語句設(shè)置其Pattern屬性，代碼如下。File1.Pattern="b*.doc" '設(shè)置文件列表框File1只顯示b開頭的擴展名為doc的Word文檔10.2.3文件列表框

（3）FileName屬性用來設(shè)置和返回文件列表框中被選定文件的文件名稱，這是一個運行態(tài)屬性，可使用語句修改該屬性，代碼如下：

File1.FileName="NotePad.exe“

'表示將File1的FileName屬性改為"NotePad.exe"，且在文件列表框中選定顯示NotePad.exe文件注意，F(xiàn)ileName屬性本身不包含文件的路徑，這與通用對話框中的FileName屬性不同。若要利用文件系統(tǒng)控件瀏覽文件或進(jìn)行打開、復(fù)制等操作，就必須獲取文件完整的路徑信息。所以往往采用文件列表框的Path和FileName屬性值字符串連接的方法來獲取帶路徑的文件名。IfRight(File1.Path,1)="\"Then

FName=File1.Path+File1.FileNameElse

FName=File1.Path+"\"+File1.FileNameEndIf10.2.3文件列表框

（3）FileName屬性用來設(shè)置和返回文件列表框中被選定文件的文件名稱，這是一個運行態(tài)屬性使用語句修改FileName屬性時，如包含路徑和通配符，則將直接修改該文件列表框的Path和Pattern屬性。代碼如下：File1.FileName="C:\WINNT\*m?.bmp"表示將File1的Path屬性改為"C:\WINNT"，且在文件列表框中顯示文件名中倒數(shù)第2個字符是m的bmp圖片類型文件。10.2.3文件列表框

2．事件（1）PathChange事件當(dāng)文件列表框的Path屬性改變時觸發(fā)PathChange事件。以下兩條語句都將導(dǎo)致程序觸發(fā)文件列表框File1的PathChange事件：File1.Path=Dir1.PathFile1.FileName="D:\myfile.exe" '帶有改變的路徑式修改FileName（2）PatternChange事件當(dāng)文件列表框的Pattern屬性被改變時觸發(fā)PatternChange事件，此事件常被用來對用戶自定義的Pattern屬性進(jìn)行判斷。（3）Click和DblClick事件經(jīng)常通過文件列表框的Click事件，獲取所選中的文件名File1.FileName；通過文件列表框的DblClick事件，對所雙擊的文件進(jìn)行處理，如：雙擊文本文件，打開顯示內(nèi)容；雙擊應(yīng)用程序文件，執(zhí)行該程序。10.2.3文件列表框

10.2.4組合使用文件管理控件

分析：當(dāng)驅(qū)動器列表框的Drive屬性被改變時，發(fā)生驅(qū)動器列表框的Change事件，調(diào)用執(zhí)行驅(qū)動器列表框Drive1_Change事件過程。通過執(zhí)行其中的Dir1.Path=Drive1.Drive語句，改變目錄列表框的Path屬性，使得目錄列表框突出顯示由驅(qū)動器列表框的Drive屬性指定的驅(qū)動器的當(dāng)前目錄，這樣就保證了驅(qū)動器列表框與目錄列表框的同步。同樣由于目錄列表框的Path屬性發(fā)生變化，就會產(chǎn)生目錄列表框的Change事件，調(diào)用Dir1_Change事件過程。執(zhí)行其中的File1.Path=Dir1.Path語句后，改變文件列表框的Path屬性，從而將File1文件列表框中的顯示內(nèi)容更新為Dir1.Path指定目錄中的文件，保證了文件列表框中顯示的內(nèi)容與目錄列表框和驅(qū)動器列表框同步。10.3公共對話框

10.3.1ActiveX控件簡介1．添加/刪除ActiveX控件（1）單擊“工程”菜單

選中“部件”命令；或者在工具箱中單擊鼠標(biāo)右鍵，在彈出的快捷菜單中選中“部件”菜單項（或者使用快捷鍵Ctrl+T）。彈出的“部件”對話框如圖3-17所示。（2）在“控件”選項卡中列出了所有已安裝過的ActiveX控件文件，將需要的ActiveX控件名左邊的復(fù)選框選定。（3）單擊“確定”按鈕，關(guān)閉對話框。2．常用ActiveX控件簡介控件名功能說明CommonDialog提供一組通用對話框，包括“打開”、“保存”、“打印”對話框等ToolBar創(chuàng)建工具欄，它包含一個Button對象集合ImageList是為其他控件提供圖像的公用控件，它包含了一個ListImage集合StatusBar創(chuàng)建狀態(tài)欄，它包含了一個Panels集合TabStrip創(chuàng)建多層選項卡，但它不能作為容器。它包含了一個Tabs對象集合TreeView用于顯示Node對象的分層列表，顯示磁盤上的文件和目錄等常用ActiveX控件

控件名功能說明ListView提供4種顯示項目的視圖，包括大圖標(biāo)、小圖標(biāo)、列表、報表ProgressBar提供一個用于表示過程進(jìn)展情況的進(jìn)度條Slider提供可帶有刻度標(biāo)記的滾動條來表示區(qū)間或范圍RichTextBox具有TextBox標(biāo)準(zhǔn)控件的全部功能，還具有更高級的格式設(shè)置功能MMControl管理媒體控制接口設(shè)備上的多媒體文件的記錄和回放Animation用于播放無聲動畫常用ActiveX控件

10.3.2公共對話框控件按照添加ActiveX控件的方法，在控件列表框中選中“MicrosoftCommonDialogControl6.0”，就能將通用對話框控件添加到工具箱中了。1．公共屬性和方法屬性名功能說明Name通用對話框名稱Action決定打開何種類型的對話框DialogTitle對話框標(biāo)題CancelError按對話框中的“取消”按鈕是否產(chǎn)生出錯信息常用ActiveX控件

Action屬性和Show方法對話框類型值方法對話框類型值方法無對話框0“字體”對話框4ShowFont“打開”對話框1ShowOpen“打印”對話框5ShowPrinter“另存為”對話框2ShowSave“幫助”對話框6ShowHelp“顏色”對話框3ShowColor例如，在代碼編輯器中輸入如下語句：Commondialog1.ShowColor或者Commondialog1.Action=3運行時，執(zhí)行完上述語句，系統(tǒng)就會調(diào)出“顏色”對話框。常用ActiveX控件

2．各對話框的特有屬性常用ActiveX控件

例編寫一個菜單，綜合演示6種標(biāo)準(zhǔn)對話框的功能。PrivateSubmenuopen_Click()CommonDialog1.InitDir="c:\"CommonDialog1.DefaultExt="*.ico"CommonDialog1.Filter="*.ico"CommonDialog1.DialogTitle="打開圖標(biāo)文件"CommonDialog1.Action=1 Picture1.Picture=LoadPicture(CommonDialog1.FileName)EndSubPrivateSubmenusave_Click() CommonDialog1.Action=2 '需要編程實現(xiàn)真正的保存EndSubPrivateSubmenuclose_Click()End EndSubPrivateSubmenucolor_Click()CommonDialog1.Action=3Label1.ForeColor=CommonDialog1.ColorEndSubPrivateSubmenuhelp_Click()CommonDialog1.HelpCommand=cdlHelpForceFileCommonDialog1.HelpFile=App.Path&"\DEVDTG.HLP"CommonDialog1.ShowHelpEndSubPrivateSubmenuprint_Click()CommonDialog1.CancelError=TrueOnErrorGoTo

errhandlerCommonDialog1.Action=5Printer.PrintLabel1.Caption

Printer.EndDoc

errhandler:ExitSubEndSubPrivateSubmenufont_Click()CommonDialog1.CancelError=TrueOnErrorGoTo

errhandlerCommonDialog1.Flags=cdlCFBothOrcdlceffectsCommonDialog1.CancelError=FalseCommonDialog1.Action=4 '“字體”對話框

IfCommonDialog1.FontName<>""Then Label1.FontName=CommonDialog1.FontNameElse

MsgBox"請選擇字體名稱！"EndIfLabel1.FontSize=CommonDialog1.FontSizeLabel1.FontBold=CommonDialog1.FontBoldLabel1.FontItalic=CommonDialog1.FontItalicLabel1.FontStrikethru=CommonDialog1.FontStrikethru

errhandler:ExitSubEndSubToolbar控件和ImageList控件1．Toolbar控件屬性名功能說明Align設(shè)置對象在窗體中的顯示位置。Buttons控件中使用的Button對象的集合Index控件名相同時產(chǎn)生一個數(shù)組標(biāo)識ToolTipText鼠標(biāo)指針在工具欄按鈕暫停時所顯示的提示文本ShowTips是否顯示工具欄按鈕上的提示文本AllowCustomSize用戶是否可以自定義工具欄Wrappable窗口尺寸發(fā)生變化，是否自動包含文本控件按鈕Style決定如何繪制工具欄Toolbar控件可以用來創(chuàng)建工具欄的Button對象集合。常用ActiveX控件

Toolbar控件的屬性頁對話框工具欄中按鈕的各種樣式常用ActiveX控件

2．ImageList控件（1）添加工具欄圖標(biāo)ImageList控件是儲存一系列圖像的數(shù)據(jù)庫。常用ActiveX控件

例PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.IndexCase1IfButton.Value=1ThenTimer1.Enabled=TrueElseTimer1.Enabled=False:Label1.Caption="文本顯示"EndIfCase3:Label1.Caption="今天心情好！"Case4:Label1.Caption="今天心情差！"Case10:Label1.Caption="這是一個工具欄實例，"+vbCrLf+_"使用了ToolBar控件和ImageList控件"EndSelectEndSubStatusbar控件該控件通?？梢栽趹?yīng)用程序的底部創(chuàng)建一個狀態(tài)欄顯示各種狀態(tài)數(shù)據(jù)。常用ActiveX控件

例PrivateSubCommand1_Click()DimtempAsInteger temp=StatusBar1.Panels(3).StyleStatusBar1.Panels(3).Style=StatusBar1.Panels(4).StyleStatusBar1.Panels(4).Style=tempEndSubTabStrip控件該控件可以在應(yīng)用程序的同一窗口或?qū)υ捒蛑卸x多個選項卡頁面。常用ActiveX控件

例PrivateSubCommand1_Click() '加法計算

Text3.Text=Val(Text1.Text)+Val(Text2.Text)EndSubPrivateSubCommand2_Click() '減法計算

Text33.Text=Val(Text11.Text)-Val(Text22.Text)EndSubPrivateSubForm_Load()Frame1.Visible=TrueFrame2.Visible=FalseEndSubPrivateSubTabStrip1_Click()SelectCaseTabStrip1.SelectedItem.IndexCase1Frame1.Visible=TrueFrame2.Visible=FalseCase2Frame1.Visible=FalseFrame2.Visible=TrueEndSelectEndSub

TreeView控件和ListView控件1．TreeView控件TreeView控件以分層的形式顯示數(shù)據(jù)，允許用戶隨意擴展或折疊節(jié)點。在TreeView控件中經(jīng)常用到Add函數(shù)，可在TreeView控件中產(chǎn)生節(jié)點對象，格式如下：[對象名.]Nodes.Add([Relative],[RelationShip],[Key],[Text],[Image],[SelectedImage])常用ActiveX控件

例PrivateSubForm_click()DimtpnodeAsNodeSettpnode=TreeView1.Nodes.Add(,,"main","民族樂器")Settpnode=TreeView1.Nodes.Add("main",tvwChild,,"笛子")Settpnode=TreeView1.Nodes.Add("main",tvwChild,,"二胡")Settpnode=TreeView1.Nodes.Add("main",tvwChild,,"古箏")

tpnode.EnsureVisibleEndSub2．ListView控件用ListView顯示選中的節(jié)點對象的記錄集。在ListView控件中也用到Add函數(shù)，可在ListView控件中產(chǎn)生圖形列表框，格式如下：[對象名.]ListItems.Add([Index],[Key],[Text],[Icon],[SmallIcon])常用ActiveX控件

（a）排序前界面

（b）排序后界面PrivateSubForm_Load()DimlitAsListItemSetlit=ListView1.ListItems.Add(,,"上",1)Setlit=ListView1.ListItems.Add(,,"右",2)Setlit=ListView1.ListItems.Add(,,"下",3)Setlit=ListView1.ListItems.Add(,,"左",4)EndSubPrivateSubCommand1_Click()ListView1.Sorted=TrueEndSub例Progressbar控件和Slider控件1．Progressbar控件利用該控件創(chuàng)建進(jìn)度條，顯示當(dāng)前程序運行的進(jìn)程。屬性名功能說明Max進(jìn)度欄最大值Min進(jìn)度欄最小值Value進(jìn)度欄當(dāng)前值常用ActiveX控件

例PrivateSubTimer1_Timer()IfVal(Text1.Text)>=1ThenText1.Text=Str(Val(Text1.Text)-1)ProgressBar1.Value=10-Val(Text1.Text)ElseEndEndIfEndSub2．Slider控件Slider控件是一個包含滑塊和可選擇刻度標(biāo)記的滑桿。例PrivateSubSlider1_Click()Text1.Text=Slider1.ValueEndSub常用ActiveX控件

RichTextBox控件1．RichTextBox控件的常用屬性2．RichTextBox控件的方法RichTextBox控件的添加需要選擇“MicrosoftRichTextBoxControl6.0”部件。RichTextBox控件和TextBox控件一樣可用