實用擴展控件PPT課件_第1頁
實用擴展控件PPT課件_第2頁
實用擴展控件PPT課件_第3頁
實用擴展控件PPT課件_第4頁
實用擴展控件PPT課件_第5頁
已閱讀5頁,還剩60頁未讀 繼續(xù)免費閱讀

下載本文檔

版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領

文檔簡介

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

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
  • 4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網僅提供信息存儲空間,僅對用戶上傳內容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
  • 6. 下載文件中如有侵權或不適當內容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論