實用擴展控件PPT課件

1、11.1 11.1 RichTextBoxRichTextBox控件 概述 11.1.1 設置字體格式 11.1.2 設置段落格式 11.1.3 使用剪貼板 11.1.4 查找文本 11.1.5 打開與保存文件 返回首頁第1頁/共65頁概述 RichTextBox控件又稱為多格式文本框，使用該控件不僅可以輸入和編輯文本，還可以對控件中任何部分的文本設置不同的格式，如對選定文本設置字體、字號、字形、顏色、下劃線、刪除線等。此外，在該控件中還可以設置左右縮進和懸掛式縮進等段落格式，插入圖片，并以RTF和純文本兩種格式打開和保存文件。 加載RichTextBox控件的方法：右擊工具箱，在彈出菜單中選

2、擇【部件】菜單項，打開【部件】對話框，在【控件】選項卡的列表中選中“Microsoft Rich Textbox Control 6.0”前面的復選框，單擊【確定】按鈕。此時工具箱中將增加該控件的圖標 。返回首頁返回本節(jié)第2頁/共65頁11.1.1 11.1.1 設置字體格式 （1 1） 下面通過實例說明如何設置RichTextBox控件中選定文本的字體格式。【例11.1】利用字體對話框設置RichTextBox控件中選定文本的字體格式。 新建工程，在窗體上添加一個RichTextBox和一個CommonDialog控件，均采用默認名稱。將RichTextBox控件的ScrollBars屬性設

3、為2。再添加一個命令按鈕，名稱為cmdFont，Caption屬性為“字體”。以下是按鈕單擊事件過程的代碼： 第3頁/共65頁11.1.1 11.1.1 設置字體格式 （2 2）Private Sub cmdFont_Click() On Error GoTo Quit With CommonDialog1 設置通用對話框相關屬性 顯示所有字體和效果選項 .Flags = cdlCFBoth Or cdlCFEffects 設置對話框默認字體名稱 If .FontName = Then .FontName = 宋體 對用戶單擊“取消”按鈕做出響應 .CancelError = True .Sh

4、owFont 打開字體對話框 End With 設置RichTextBox控件中選定文本字體格式 With RichTextBox1第4頁/共65頁11.1.1 11.1.1 設置字體格式 （3 3） 字體名稱(字符串型) .SelFontName = CommonDialog1.FontName .SelFontSize = CommonDialog1.FontSize 字號(整型) .SelBold = CommonDialog1.FontBold 粗體(布爾型) .SelItalic = CommonDialog1.FontItalic 斜體(布爾型) 下劃線(布爾型) .SelUnde

5、rline = CommonDialog1.FontUnderline 刪除線(布爾型) .SelStrikeThru = CommonDialog1.FontStrikethru .SelColor = CommonDialog1.Color 顏色(長整型) End WithQuit:End Sub第5頁/共65頁11.1.1 11.1.1 設置字體格式 （4 4） 在上述代碼中，首先利用通用對話框控件打開字體對話框，用戶在對話框中設置格式并確認后，通過代碼中的第二個With.End With語句塊將RichTextBox控 件 中 的 選 定 文 本 格 式 設 置 為 由 字 體 對 話

6、 框 返 回 的 各 種 格 式 。 代 碼 中RichTextBox控件的7個以“Sel”為前綴的屬性（代表選定文本的各種格式）分別由字體對話框的對應屬性賦值。代碼中的注釋說明了各屬性的含義。程序運行效果如圖11.1所示。 第6頁/共65頁11.1.1 11.1.1 設置字體格式 （5 5）圖11.1 設置字體格式 返回首頁返回本節(jié)第7頁/共65頁11.1.2 11.1.2 設置段落格式（1 1）1. 段落縮進 RichTextBox控件的SelIndent、SelRightIndent和SelHangingIndent屬性分別用于設置選定段落的左縮進、右縮進和懸掛縮進，均為整型數(shù)值。縮進量

7、的單位與窗體的ScaleMode屬性有關，默認單位為緹（1厘米=567緹）。 【例11.2】設置段落縮進。在例11.1中的窗體上增加一個按鈕，Caption屬性為“左縮進”，在該按鈕的單擊事件過程中加入以下代碼： 第8頁/共65頁11.1.2 11.1.2 設置段落格式（2 2） Dim sMargin As Single sMargin = Val(InputBox(輸入縮進量（厘米）：, _左縮進) RichTextBox1.SelIndent = sMargin * 567 用同樣的方法可設置右縮進和懸掛縮進。2. 段落對齊方式 RichTextBox控件的SelAlignment屬性用

8、于設置選定段落的對齊方式。將該屬性值設為常數(shù)rtfLeft或0為左對齊，rtfRight或1為右對齊，rtfCenter或2為居中。 第9頁/共65頁11.1.2 11.1.2 設置段落格式（3 3）3. 項目符號 將RichTextBox控件的SelBullet屬性設為True即可為選定段落添加項目符號，若同時設置BulletIndent屬性，則可指定含有項目符號的段落的縮進量（默認單位為緹）。 提示提示：可將設置字體和段落：可將設置字體和段落格式的功能匯集在格式的功能匯集在“格式格式”菜菜單中。單中。 段落格式設置效果如圖11.211.2所示。返回首頁返回本節(jié)第10頁/共65頁11.1.3

9、 11.1.3 使用剪貼板 （1 1） RichTextBox控件的SelRTF屬性含有當前選定的RTF格式文本。利用SelRTF屬性和剪貼板（Clipboad）對象可以實現(xiàn)多格式文本的剪切、復制和粘貼操作。1. 操作多格式文本 剪貼板對象的SetText方法用于向剪貼板傳送文本。以下代碼可將多格式文本復制到剪貼板：Clipboard.Clear 清空剪貼板向剪貼板傳送RTF文本Clipboard.SetText RichTextBox1.SelRTF, _vbCFRTF第11頁/共65頁11.1.3 11.1.3 使用剪貼板 （2 2） 剪切操作與復制相似，只需在上述代碼之后加入以下代碼：刪

10、除RichTextBox控件中的選定內容RichTextBox1.SelText = 剪貼板對象的GetText方法用于從剪貼板中粘貼文本。例如：RichTextBox1.SelRTF = Clipboard.GetText(vbCFRTF) 將上述代碼分別置于對應菜單項的單擊事件中即可實現(xiàn)剪切、復制和粘貼功能。 第12頁/共65頁11.1.3 11.1.3 使用剪貼板 （3 3） 2. 插入圖片 利 用 LoadPicture 函 數(shù) 、 剪 貼 板 對 象 的 S e t D a t a 方 法 和 模 擬 鍵 盤 輸 入 的SendKeys語句可以在RichTextBox控件中插入圖片。

11、【例11.311.3】利用剪貼板在RichTextBoxRichTextBox控件中插入圖片。效果如圖11.311.3所示。 在例11.211.2中添加一個命令按鈕或菜單項，在它的單擊事件過程中輸入以下代碼： 第13頁/共65頁11.1.3 11.1.3 使用剪貼板 （4 4）利用通用對話框選擇圖片文件CommonDialog1.ShowOpenClipboard.Clear 清空剪貼板將圖片文件發(fā)送到剪貼板Clipboard.SetData _LoadPicture(CommonDialog1.FileName)RichTextBox1.SetFocus模擬組合鍵Ctrl+V從剪貼板粘貼圖片

12、SendKeys v, TrueClipboard.Clear返回首頁返回本節(jié)第14頁/共65頁11.1.4 11.1.4 查找文本 （1 1） RichTextBox控件的Find方法用于搜索特定字符串。若找到待查內容則將其反相顯示，并返回其位置；若未找到則返回-1。Find方法的調用格式為：RichTextBox控件名稱.Find(待查字符串，起始位置，結束位置，選項)【例11.4】在RichTextBox控件中查找文本。 在例11.3中添加兩個菜單項或命令按鈕，標題（Caption）分別為“查找”和“查找下一個”。將RichTextBox控件的HideSelection屬性設為False

13、，以便在控件失去焦點時仍可反相顯示找到的字符串。 第15頁/共65頁11.1.4 11.1.4 查找文本 （2 2） 在代碼編輯窗口的“通用-聲明”部分聲明一個窗體級的變量用于存放待查內容：Dim strFind As String下面是“查找”菜單項單擊事件過程的代碼：mnuFind為“查找”菜單項的名稱Private Sub mnuFind_Click() strFind = InputBox(輸入查找內容, 查找) If strFind = Then Exit Sub Find方法返回-1說明未找到 If RichTextBox1.Find(strFind) = -1 Then MsgB

14、ox 未找到“ & strFind & ”。, _ vbInformation, 提示 strFind = End IfEnd Sub第16頁/共65頁11.1.4 11.1.4 查找文本 （3 3） 在“查找下一個”菜單項或按鈕的單擊事件過程中加入以下代碼：Dim lngL As Long若為首次查找則調用“查找”過程If strFind = Then Call mnuFind_ClickElse With RichTextBox1 lngL = .SelLength .SelStart = .SelStart + lngL第17頁/共65頁11.1.4 11.1.4 查找文

15、本 （4 4） If .Find(strFind,Len(.TextRTF)= -1 Then .SelStart = .SelStart - lngL .SelLength = lngL MsgBox 查找結束。, vbInformation, 提示 End If End WithEnd If返回首頁返回本節(jié)第18頁/共65頁11.1.5 11.1.5 打開與保存文件 （1 1） R i c h T e x t B o x 控 件 的 L o a d F i l e 和SaveFile方法分別用于裝載和保存文件。文件格式可以是文本文件或RTF文件。下面通過實例說明這兩個方法的調用?！纠?1.

16、5】在RichTextBox控件中打開和保存文件。 在例11.4中添加一個頂層菜單“文件”，在該菜單下添加“打開”和“保存”兩個菜單項?！按蜷_”菜單項單擊事件過程的代碼如下： 第19頁/共65頁11.1.5 11.1.5 打開與保存文件 （2 2）Private Sub mnuOpen_Click() 打開文件 On Error GoTo Quit With CommonDialog1 .CancelError = True .Filter = 文本文件(*.txt)|*.txt _ & |RTF文件(*.rtf)|*.rtf .ShowOpen If UCase$(Right$(.F

17、ileName, 3) = RTF Then 打開RTF文件 RichTextBox1.LoadFile .FileName, rtfRTF Else 打開文本文件 R i c h T e x t B o x 1 . L o a d F i l e . F i l e N a m e , rtfText End If第20頁/共65頁11.1.5 11.1.5 打開與保存文件 （3 3） End WithQuit:End Sub“保存”菜單項單擊事件過程的代碼如下：Private Sub mnuSave_Click() On Error GoTo Quit With CommonDialog1

18、 .CancelError = True .Filter = 文本文件(*.txt)|*.txt _ & |RTF文件(*.rtf)|*.rtf .ShowSave第21頁/共65頁11.1.5 11.1.5 打開與保存文件 （4 4） 設置默認擴展名，在用戶未輸入擴展名時使用 If .FilterIndex = 1 Then .DefaultExt = txt Else .DefaultExt = rtf End If If UCase$(Right$(.FileName, 3) = RTF Then 保存文件為RTF格式 RichTextBox1.SaveFile .FileNam

19、e, rtfRTF Else 保存文本文件 R i c h T e x t B o x 1 . S a v e F i l e . F i l e N a m e , rtfText End If End WithQuit:End Sub返回首頁返回本節(jié)第22頁/共65頁11.2 11.2 TreeViewTreeView和ListViewListView控件 11.2.1 TreeView控件 11.2.2 ListView控件 TreeView 和 ListView均為Microsoft Windows Common Controls 6.0中的控件，需要加載后方可使用，加載方法與Rich

20、TextBox控件相似。返回首頁第23頁/共65頁11.2.1 11.2.1 TreeViewTreeView控件 （1 1）1. 理解Node對象與Nodes集合 在討論TreeView控件的應用之前應當對Node對象和Nodes集合有所了解。TreeView控件中的每個列表項都是一個Node對象（節(jié)點），節(jié)點可包含文本和圖片。節(jié)點之間的關系可以是父子關系或兄弟關系。 如圖11.4所示，系與其班級之間為父子關系，各系之間為兄弟關系（位于同一層次），一個系中的班級之間也是兄弟關系。圖11.4 TreeView控件 第24頁/共65頁11.2.1 11.2.1 TreeViewTreeView控

21、件 （2 2） 系是班級的父節(jié)點（Parent），班級是系的子節(jié)點（Child）。各系均為頂層節(jié)點，頂層節(jié)點沒有父節(jié)點（Nothing）?？丶械乃蠳ode對象構成Nodes集合，集合中的每一個Node對象具有一個惟一的索引（下界為1），利用索引可以訪問集合 中 的 N o d e 對 象 。 例 如 ，TreeView1.Nodes(1)是指集合中的第一個節(jié)點。第25頁/共65頁11.2.1 11.2.1 TreeViewTreeView控件 （3 3）2. 添加節(jié)點Nodes集合的Add方法用于添加節(jié)點。調用格式為：TreeView控件名.Nodes.Add(相關節(jié)點，關系，關鍵字，文本

22、，圖片，選定時圖片) Add方法的6個參數(shù)均為可選參數(shù)。前兩個參數(shù)共同指定新節(jié)點的位置?！跋嚓P節(jié)點”為現(xiàn)有某節(jié)點的索引或關鍵字。第26頁/共65頁11.2.1 11.2.1 TreeViewTreeView控件 （4 4）“關系”是指新節(jié)點與“相關節(jié)點”的位置 關 系 ， 該 參 數(shù) 的 取 值 常 數(shù) 為 ：tvwFirst,tvwLast,tvwNext,tvwPrevious或tvwChild，分別對應整數(shù)04。其中tvwChild為父子關系，即新節(jié)點是“相關節(jié)點”的子節(jié)點。其他常數(shù)均為兄弟關系，即新節(jié)點與“相關節(jié)點”位于同一層次，分別為首位、末位、后鄰位和前鄰位。如果省略了“相關節(jié)點”

23、參數(shù)，則在所有頂層節(jié)點之后添加一個新節(jié)點，并且忽略“關系”參數(shù)。Add方法的其他參數(shù)均不難理解。第27頁/共65頁11.2.1 11.2.1 TreeViewTreeView控件 （5 5） 【例11.6】在TreeView控件中建立系和班級的分層列表。 新建工程，在窗體上添加一個TreeView控件和一個ImageList控件，均采用默認名稱。添加兩個命令按鈕，設Cpation屬性分別為“添加系”和“添加班級”。按第10章所述方法在ImageList控件中添加4個圖片。右擊TreeView控件，在彈出菜單中選擇【屬性】菜單項，打開如圖11.5所示的【屬性頁】對話框，在對話框的【圖像列表】中選

24、擇ImageList1，設【線條樣式】為1，單擊【確定】按鈕關閉對話框。 第28頁/共65頁11.2.1 11.2.1 TreeViewTreeView控件 （6 6）圖11.5 TreeView控件屬性頁 第29頁/共65頁11.2.1 11.2.1 TreeViewTreeView控件 （7 7）在“添加系”按鈕的單擊事件過程中加入以下代碼：Dim mNode As Node 聲明節(jié)點對象變量若省略Add方法的第一個參數(shù)，則在所有頂層節(jié)點之后添加一個新的頂層節(jié)點，同時忽略Add方法的第二個參數(shù)。下面一行語句中的1,2為ImageList控件中的圖片索引。Set mNode = TreeVi

25、ew1.Nodes.Add(, , , X系, 1, 2) 添加節(jié)點并為變量賦值mNode.Selected = True 選中新節(jié)點使新節(jié)點標簽處于編輯狀態(tài)以便用戶修改TreeView1.StartLabelEdit第30頁/共65頁11.2.1 11.2.1 TreeViewTreeView控件 （8 8） 在“添加班級”按鈕的單擊事件過程中加入以下代碼：若控件中無節(jié)點退出此過程If TreeView1.Nodes.Count = 0 Then Exit SubDim mNode As Node 聲明節(jié)點對象變量Dim iIndex As Integer若未選擇節(jié)點將出錯，轉錯誤處理語句O

26、n Error GoTo NodeErr取當前選定節(jié)點的索引 iIndex = TreeView1.SelectedItem.Index第31頁/共65頁11.2.1 11.2.1 TreeViewTreeView控件 （9 9） 若選定的節(jié)點是系節(jié)點(無父節(jié)點)則添加子節(jié)點， 否則添加兄弟節(jié)點 If TreeView1.Nodes(iIndex).Parent Is Nothing Then Set mNode = TreeView1.Nodes.Add(iIndex, _ tvwChild, , X級X班, 3, 4) Else Set mNode = TreeView1.Nodes.Ad

27、d(iIndex, _ tvwLast, , X級X班, 3, 4) End If mNode.EnsureVisible 使新節(jié)點可見 mNode.Selected = True 選中新節(jié)點 使新節(jié)點標簽處于編輯狀態(tài)以便用戶修改 TreeView1.StartLabelEdit第32頁/共65頁11.2.1 11.2.1 TreeViewTreeView控件 （1010） Exit SubNodeErr: 處理錯誤 MsgBox 請先選擇一個系。, vbExclamation, 提示程序運行效果如圖11.6和圖11.7所示。 圖11.6 添加系 圖11.7 添加班級 第33頁/共65頁11.

28、2.1 11.2.1 TreeViewTreeView控件 （1111）3. 刪除和清空節(jié)點 Nodes集合的Remove方法和Clear方法分別用于刪除和清空節(jié)點。 【例11.7】擴展例11.6的功能，使之能夠刪除和清空節(jié)點。 在例11.6中添加兩個按鈕，Caption分別為“刪除”和“清空”。在“刪除”按鈕的單擊事件過程中加入以下代碼：第34頁/共65頁11.2.1 11.2.1 TreeViewTreeView控件 （1212）若控件中無節(jié)點退出此過程If TreeView1.Nodes.Count = 0 Then Exit SubDim iIndex As Integer取當前選定節(jié)

29、點的索引iIndex = TreeView1.SelectedItem.Index 刪除選定節(jié)點及其子節(jié)點TreeView1.Nodes.Remove iIndex在“清空”按鈕的單擊事件過程中加入以下代碼：TreeView1.Nodes.Clear 清除所有節(jié)點返回首頁返回本節(jié)第35頁/共65頁11.2.2 11.2.2 ListViewListView控件（1 1） ListView控件可使用大圖標、小圖標、列表和報表（詳細資料）四種不同視圖顯示列表項。Windows資源管理器的右窗格就是ListView控件的典型例子。 1. ListView控件的四種視圖 ListView控件的View

30、屬性決定它的視圖顯示方式，有4種取值。將該屬性值設為常數(shù)lvwIcon或0為大圖標，lvwSmallIcon或1為小圖標，lvwList或2為列表，lvwReport或3為詳細資料。四種視圖顯示模式如圖11.8圖11.11所示。第36頁/共65頁11.2.2 11.2.2 ListViewListView控件（2 2）圖11.8 大圖標視圖 圖11.9 小圖標視圖 第37頁/共65頁11.2.2 11.2.2 ListViewListView控件（3 3）圖11.10 列表視圖 圖11.11 詳細資料視圖 第38頁/共65頁11.2.2 11.2.2 ListViewListView控件（4

31、4）2.理解ListView控件中的對象與對象集合（1）ListItem對象與ListItems集合 ListView控件中的每個列表項都是一個ListItem對象，列表項可包含文本和圖片?？丶械乃蠰istItem對象構成ListItems集合，集合中的每個對象具有惟一索引。在程序代碼中調用ListItems集合的Add方法可以在控件中添加列表項，調用格式為：ListView控件名.ListItems.Add(索引, 關鍵字, 文本, 大圖標, 小圖標)第39頁/共65頁11.2.2 11.2.2 ListViewListView控件（5 5）（2）ColumnHeader對象與Colum

32、nHeaders集合 在如圖11.11所示的詳細資料視圖中，第一行的標題【姓名】、【性別】和【年齡】即為ColumnHeader對象（列標頭）?？丶械乃蠧olumnHeader對象構成ColumnHeaders集合。在列標頭下面，左起第一列是在各種視圖中均可顯示的列表項，列表項右側的各列均為列表子項（SubItem）。每個列表項可以有多個子項，它們構成子項數(shù)組（SubItems），數(shù)組類型為字符串型，下界為1，上界為列標頭總數(shù)-1。第40頁/共65頁11.2.2 11.2.2 ListViewListView控件（6 6） 調用ColumnHeaders集合的Add方法可以添加列標頭，調用

33、格式為：ListView控件名.ColumnHeaders.Add 索引,關鍵字,文本,寬度,對齊方式,圖標 添加列標頭后將自動確定列表子項數(shù)組的上界，此時可以為子項數(shù)組元素賦值。第41頁/共65頁11.2.2 11.2.2 ListViewListView控件（7 7）3. 在ListView控件中使用圖片 ListView控件中所用的圖片由ImageList控件提供。一個ListView控件可以使用三個ImageList控件，分別提供大圖標、小圖標（供小圖標、列表和詳細資料視圖使用）和列標頭圖標。在設計時可以通過ListView控件的屬性頁指定ImageList控件。程序運行時可以通過代碼

34、指定要使用的ImageList控件，例如：Set ListView1.Icons = Imagelist1 大圖標Set ListView1.SmallIcons = Imagelist2 小圖標列標頭圖標Set ListView1.ColumnHeaderIcons = Imagelist3第42頁/共65頁11.2.2 11.2.2 ListViewListView控件（8 8） 【例11.8】設計如圖11.8圖11.11所示的ListView控件的不同視圖。 新建工程，在窗體上添加一個ListView控件和兩個ImageList控件（本例中未使用列標頭圖標），均采用默認名稱。創(chuàng)建一個含有

35、四個元素的單選按鈕數(shù)組，名稱均為optView，索引為03，設Style屬性均為1，Cpation屬性分別為“大圖標”、“小圖標”、“列表”和“詳細資料”。ImageList控件和ListView控件的屬性分別通過圖11.12和圖11.13所示的屬性頁設置。第43頁/共65頁11.2.2 11.2.2 ListViewListView控件（9 9）圖11.12 ImageList屬性頁返回第44頁/共65頁11.2.2 11.2.2 ListViewListView控件（1010）圖11.13 ListView屬性頁 返回第45頁/共65頁11.2.2 11.2.2 ListViewListV

36、iew控件（1111） 右擊ImageList1，在彈出菜單中選擇【屬性】菜單項，打開如圖11.12所示的【屬性頁】對話框，在【通用】選項卡中選擇【32 x 32】單選鈕（此步驟設置圖像大?。缓笄袚Q到【圖像】選項卡添加4個圖片。用同樣的方法將ImageList2的圖像大小設為【16 x 16】并添加圖片。右擊ListView控件，在彈出菜單中選擇【屬性】菜單項，打開如圖11.13所示的【屬性頁】對話框，切換到【圖像列表】選項卡，在【普通】組合框中選擇ImageList1，在【小圖標】組合框中選擇ImageList2。 第46頁/共65頁11.2.2 11.2.2 ListViewListV

37、iew控件（1212） 在窗體的Load事件中對ListView控件進行初始化：Private Sub Form_Load() 添加列標頭。數(shù)字為寬度(緹) ListView1.ColumnHeaders.Add , , 姓名, 1200 ListView1.ColumnHeaders.Add , , 性別, 800 ListView1.ColumnHeaders.Add , , 年齡, 800 Dim itmX As ListItem 聲明列表項對象變量 Set itmX = ListView1.ListItems.Add(, , _ 張三, 1, 1) 添加列表項 設置子項，供“詳細資料”

38、視圖使用 itmX.SubItems(1) = 男 itmX.SubItems(2) = 20 添加其他列表項 End Sub 第47頁/共65頁11.2.2 11.2.2 ListViewListView控件（1313）利用單選按鈕的單擊事件切換視圖，代碼如下：用單選按鈕控件數(shù)組切換視圖Private Sub optView_Click(Index As Integer) 4個單選按鈕的索引號為03，恰好與ListView控件 View屬性的4個常數(shù)值相對應， 因此用單選鈕的索引號為ListView控件的View屬性賦值 可簡化代碼。 ListView1.View = IndexEnd Su

39、b返回首頁返回本節(jié)第48頁/共65頁11.3 11.3 其他擴展控件 11.3.1 SSTab控件 11.3.2 ProgressBar控件 11.3.3 DateTimePicker控件 返回首頁第49頁/共65頁11.3.1 11.3.1 SSTabSSTab控件 （1 1） SSTab控件提供一組選項卡，每個選項卡都可作為其它控件的容器。 該控件在Microsoft Tabbed Dialog 6.0部件中，加載后才能使用?！纠?1.9】制作如189頁圖11.14和圖11.15所示含有兩個選項卡的用戶界面。圖11.14 基本情況選項卡 圖11.15 附加信息選項卡 第50頁/共65頁11

40、.3.1 11.3.1 SSTabSSTab控件 （2 2） 在窗體上添加一個SSTab控件，右擊該控件，在彈出菜單中選擇【屬性】菜單項，打開如圖11.16所示的【屬性頁】對話框。在對話框中將【選項卡數(shù)】設為2，將【樣式】設為1。在【選項卡標題】文本框中輸入第一個選項卡的標題“基本情況”。單擊“”按鈕，輸入第二個選項卡的標題“附加信息”。單擊【確定】按鈕關閉對話框。 根據(jù)圖11.14和圖11.15為兩個選項卡分別添加相關控件并設置屬性。其中，【基本情況】選項卡中用于輸入姓名的文本框名稱為txtName，【附加信息】選項卡中用于顯示姓名的標簽名稱為lblName。 第51頁/共65頁11.3.1

41、 11.3.1 SSTabSSTab控件 （3 3）圖11.16 SSTab控件屬性頁 第52頁/共65頁11.3.1 11.3.1 SSTabSSTab控件 （4 4）在SSTab控件的單擊事件中加入以下代碼：Private Sub SSTab1_Click(PreviousTab As Integer) Tab屬性返回當前活動選項卡的索引(下界為0) If SSTab1.Tab = 1 Then 若單擊“附加信息”選項卡 l b l N a m e . C a p t i o n = 姓 名 ： & txtName.Text End IfEnd Sub返回首頁返回本節(jié)第53頁/共6

42、5頁11.3.2 11.3.2 ProgressBarProgressBar控件 （1 1） 在應用程序中，當執(zhí)行一個耗時較長的操作時，可用ProgressBar控件（進度條）顯示事務的進程。ProgressBar屬于Microsoft Windows Common Controls 6.0中的控件，需要加載后使用。 ProgressBar控件有三個最重要的屬性Min、Max和Value。Min和Max用于設置進度條的起點和終點。Value屬性用于在運行時設置或返回進度條的填充量。在顯示某操作的進展情況時，可以將Value值設為從Min值開始遞增，直到由Max屬性定義的最大值為止。下面通過實例

43、說明該控件的使用。 第54頁/共65頁11.3.2 11.3.2 ProgressBarProgressBar控件 （2 2）【例11.10】用進度條和定時器控件模擬數(shù)據(jù)處理的進度，如圖11.17所示。在窗體上添加一個框架Frame1，設其Caption屬性為空，Visible屬性為False。在框架中添加兩個標簽，均采用默認名稱。設Label1的Caption屬性為“正在處理數(shù)據(jù)，請稍候.”。 圖11.17 進度條第55頁/共65頁11.3.2 11.3.2 ProgressBarProgressBar控件 （3 3）輸入以下代碼：Dim intValue As Integer 窗體級變量用

44、于存放進度值 Private Sub cmdStart_Click() “開始”按鈕 intValue = 0 ProgressBar1.Value = 0 進度條初始化 Frame1.Visible = True 顯示框架及其中的進度條等控件 Timer1.Enabled = True 啟動定時器 cmdStart.Enabled = False 使開始按鈕無效End Sub第56頁/共65頁11.3.2 11.3.2 ProgressBarProgressBar控件 （4 4）Private Sub Timer1_Timer() 定時器事件 intValue = intValue + 1

45、累加進度值 If intValue 100 Then 若超過最大值 Timer1.Enabled = False 關閉定時器 MsgBox 數(shù)據(jù)處理結束。, vbInformation, 提示 Frame1.Visible = False 隱藏框架及其中的控件 cmdStart.Enabled = True 設開始按鈕有效 Else 設置Value屬性值，顯示進度 ProgressBar1.Value = intValue 顯示進度百分比 Label2.Caption = intValue & % End IfEnd Sub返回首頁返回本節(jié)第57頁/共65頁11.3.3 11.3.3

46、DateTimePickerDateTimePicker控件 （1 1） DateTimePicker控件（DTPicker）可以按指定格式顯示日期或時間，并且作為修改日期和時間信息的界面。該控件屬于Microsoft Windows Common Controls-2 6.0中的控件，加載后方可使用。 DateTimePicker控件有兩種不同的顯示模式： 下拉日歷模式。單擊控件右部的下拉箭頭可顯示日歷，用于選擇日期。 時間顯示模式。用于顯示或設置時間。可在控件中選擇一個域（時、分、秒）后，用控件右部的上下箭頭設置其值，亦可通過鍵盤輸入數(shù)字或按箭頭鍵設置其值。 第58頁/共65頁11.3.3 11.3.3 DateTimePickerDateTimePicker控件 （2 2） 通過DateTimePicker控件的Format（格式）屬性可以設置日期或時間的顯示格式。 Format