第09章 高級界面設(shè)計

1、2022-6-12清華大學(xué)出版社19.1 添加高級控件添加高級控件 9.2 圖像列表控件圖像列表控件 9.3 工具欄控件工具欄控件 9.4 狀態(tài)欄控件狀態(tài)欄控件 9.5 公用對話框公用對話框 9.6 圖形控件圖形控件 9.7 MDI窗體窗體 2022-6-12清華大學(xué)出版社2【目的要求】1.掌握非標(biāo)準(zhǔn)控件的添加方法；2.掌握Imagelist控件的設(shè)置方法；3.掌握工具欄、狀態(tài)欄的手工設(shè)置方法；4.掌握MDI窗體的應(yīng)用；5.了解VB的繪圖功能。【重點】掌握MDI窗體的應(yīng)用；2022-6-12清華大學(xué)出版社3右擊工具箱面板，從彈出的菜單中選擇【部件】菜單項，或單擊【工程】菜單中的【部件】菜單項，

2、此是時出現(xiàn)如圖9-3的所示的【部件】對話框，用鼠標(biāo)單擊Microsoft Windows Common Controls 6.0左邊的復(fù)選框，單擊【確定】按鈕，部件被添加到【工具箱】面板上，如圖9-4所示，共有9個控件添加到【工具箱】中。用戶可將新增的控件按鈕拖至【高級控件】選項卡中。 2022-6-12清華大學(xué)出版社49.2 圖像列表控件圖像列表控件(ImageList )9.2.1 Imagelist常用屬性常用屬性:屬屬 性性功功 能能BackColor讀取或設(shè)置本控件的背景顏色ImageHeight讀取或設(shè)置本控件包含的ListImage對象的高度ImageWidth讀取或設(shè)置本控件包

3、含的ListImage對象的寬度Index控件數(shù)組下標(biāo)ListImages指向本控件所包含的ListImage對象的集合圖像列表框控件（ImageList）用于保存許多圖像，以供其他控件使用，如狀態(tài)欄（StatusBar）和工具欄（ToolBar）控件。其中的各個圖像可以作為ListImage對象來接受訪問，或者所有的圖像可作為一個ListImages集合來接受訪問。2022-6-12清華大學(xué)出版社5屬 性功 能Index產(chǎn)生控件數(shù)組Key讀取或設(shè)置用于在一個集合中識別一個對象的串字符Picture返回或設(shè)置將顯示在控件中的圖片2022-6-12清華大學(xué)出版社6Imagelist控件的List

4、Images屬性是一個集合對象，它具有下面的屬性：方法功 能Add向本集合添加一個ColumnHeader對象Clear清除本集合中所有ColumnHeader對象Item訪問本集合中一個指定的ColumnHeader對象Remove從本集合中刪除一個ColumnHeader對象【例9.1】建立一個應(yīng)用程序，向窗體添加圖像列表控件。該控件只在設(shè)計狀態(tài)下可見，運行時不可見。2022-6-12清華大學(xué)出版社7工具欄控件（Toolbar）用來在窗體上產(chǎn)生具有很多按鈕對象的工具欄，按鈕上可以顯示文字、圖形或兩者兼有，可用該控件生成如Word那樣的工具欄。屬 性功 能Align讀出或設(shè)置對象在窗體中的顯

5、示位置。它有5個值可供選擇，用來設(shè)置工具欄放置在窗體的上部、下部、左邊或右邊等Buttons訪問本控件中使用的Button對象的集合ImageList讀出和設(shè)置與本控件相關(guān)聯(lián)的ImageList控件。該屬性被設(shè)置后，可以向工具欄按鈕中添加圖形Index控件名相同時，用來產(chǎn)生一個數(shù)組標(biāo)識號2022-6-12清華大學(xué)出版社8ToolTipText設(shè)置當(dāng)鼠標(biāo)指針在工具欄某一按鈕暫停時所顯示的提示文本ShowTips設(shè)置是否顯示工具欄按鈕上的提示文本AllowCustomSize設(shè)置本控件是否能被用戶自定義。比如，可以增加或刪除某一按鈕Wrappable設(shè)置如果窗口尺寸發(fā)生變化，是否自動包括本控件按鈕

6、Key設(shè)置某一按鈕與其他按鈕的區(qū)別標(biāo)識符Style用來設(shè)置工具欄中按鈕的工作形式。有5個屬性值供選擇，默認(rèn)值為0，其中1表示以檢查框的方式工作，2表示以按鈕組的方式出現(xiàn)，每次只能選擇按鈕組中的一個按鈕Image用來設(shè)置按鈕中顯示的圖形，以0，1，2等來標(biāo)識，ImageList控件中的圖形按順序賦給不同的按鈕屬 性功 能2022-6-12清華大學(xué)出版社9向窗體添加工具欄控件，按下列步驟操作：l 設(shè)置屬性值為1，即工具欄放在窗體的頂部。l 右擊工具欄控件，從彈出的菜單中選擇【屬性】菜單項，再單擊【圖像列表】列表框右邊的下拉箭頭，從下拉的列表中選擇ImageList1。這樣ImageList1控件就

7、和工具欄控件發(fā)生了聯(lián)系。l 選中【按鈕】選項卡，單擊【插入按鈕】后，【索引】文本框中出現(xiàn)數(shù)字1，其他輸入框也變?yōu)榭捎?。接著在【關(guān)鍵字】輸入框輸入“Key1”，【工具提示文本】輸入框設(shè)為“瀏覽時間日期”，【圖像】輸入框設(shè)為1，即ImageList1控件的第一個圖形作為按鈕1的圖形。重復(fù)上述步驟，添加四個按鈕到工具欄上，并設(shè)置相應(yīng)屬性。l 設(shè)置完屬性的用戶界面。2022-6-12清華大學(xué)出版社10添加按鈕之后，還要編寫相應(yīng)的代碼按鈕才能起作用。雙擊工具欄控件，激活代碼窗口，在ToolBar1_ButtonClick事件過程中添加如下代碼：Private Sub Toolbar1_ButtonCli

8、ck(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Case 2 End SelectEnd Sub2022-6-12清華大學(xué)出版社11狀態(tài)欄一般位于窗體的底部，用于顯示系統(tǒng)的一些狀態(tài)，如大小寫情況、日期時間等，在狀態(tài)欄中可以包含文字和圖像。9.4.1 狀態(tài)欄控件屬性和事件狀態(tài)欄控件屬性和事件屬性功能Align讀出或設(shè)置對象在窗體中的顯示位置。它有5個值可供選擇，用來設(shè)置工具欄放置在窗體的上部、下部、左邊或右邊等Buttons訪問本控件中使用的Button對象的集合ImageList讀出和設(shè)置與本控件相關(guān)

9、聯(lián)的ImageList控件。該屬性被設(shè)置后，可以向工具欄按鈕中添加圖形Index控件名相同時，用來產(chǎn)生一個數(shù)組標(biāo)識號ToolTipText設(shè)置當(dāng)鼠標(biāo)指針在工具欄某一按鈕暫停時所顯示的提示文本ShowTips設(shè)置是否顯示工具欄按鈕上的提示文本AllowCustomSize 設(shè)置本控件是否能被用戶自定義。比如，可以增加或刪除某一按鈕2022-6-12清華大學(xué)出版社12 狀態(tài)欄常用事件主要有Click、DblClick、PanelClick、PanelDblClick。當(dāng)單擊狀態(tài)欄上某一窗格時，執(zhí)行PanelClick事件；當(dāng)雙擊狀態(tài)欄上某一窗格時，執(zhí)行PanelDblClick事件。Wrappab

10、le設(shè)置如果窗口尺寸發(fā)生變化，是否自動包括本控件按鈕Key設(shè)置某一按鈕與其他按鈕的區(qū)別標(biāo)識符Style用來設(shè)置工具欄中按鈕的工作形式。有5個屬性值供選擇，默認(rèn)值為0，其中1表示以檢查框的方式工作，2表示以按鈕組的方式出現(xiàn)，每次只能選擇按鈕組中的一個按鈕Image用來設(shè)置按鈕中顯示的圖形，以0，1，2等來標(biāo)識，ImageList控件中的圖形按順序賦給不同的按鈕2022-6-12清華大學(xué)出版社13屬性設(shè)置值單位大小0用戶定義1Twip（默認(rèn)值）1440twips/inch2point72dot/inch3Pixel(像素)4Character(字符)5Inch(英寸)6Millimeter(毫米)

11、7Centimeter(厘米)1.坐標(biāo)系統(tǒng)。2022-6-12清華大學(xué)出版社14（1）使用VB系統(tǒng)中的顏色常量,如：VBRED,VBBLUE等。（2）使用RGB()函數(shù)，只能表示224種 （3）使用QBCOLOR()函數(shù)，產(chǎn)生16種顏色2.使用VB顏色函數(shù)效果函數(shù)效果QBColor(0)黑色QBColor(9)灰色QBColor(1)藍(lán)色QBColor(10)亮藍(lán)色QBColor(3)綠色QBColor(11)亮綠色QBColor(4) 深青色QBColor(12)亮紅色QBColor(5)紅色QBColor(13)亮品紅色QBColor(6)品紅色QBColor(14)亮黃色QBColor(

12、7)深黃色QBColor(15)亮白色QBColor(8)低白色2022-6-12清華大學(xué)出版社151.Line方法： 作用：在對象上畫直線和矩形 語法： O B J E C T . L I N E S T E P ( X 1 , Y 1 ) S T E P (X2,Y2),COLOR,BF 2.CIRCLE方法 作用：在一對象上畫圓、橢圓或弧 語法： object。Circlestep (x,y),radius,color,start,end ,aspect 3.pset 方法： 作用：將對象上的點設(shè)置為指定顏色。 語法： object.pset step J(x,y), color 202

13、2-6-12清華大學(xué)出版社16 4.point 方法： 作用：按照長整數(shù)，返回在form或picturebox上所指定坐標(biāo)的rgb顏色，不支持明明參數(shù)。 語法：object.point(x,y)5.Paintpicture 方法 作用：用以在form、picturebox或printer上繪制圖形文件的內(nèi)容，不支持命名參數(shù)。 語 法 ： o b j e c t . p a i n t p i c t u r e p i c t u r e , x1,y1,width1,height1,x2,y2,width2,height2,opcode2022-6-12清華大學(xué)出版社171.常用屬性（1）p

14、icture屬性：返回或設(shè)置控件中要顯示的圖片（2）image屬性：返回圖形的句柄，該句柄由microsoft windows運行環(huán)境提供。2常用事件Click、dblclick以及change事件。2022-6-12清華大學(xué)出版社18【例9.4】建立一個圖片瀏覽框。（1）啟動VB，新建一個工程。（2）在窗體上添加三個命令按鈕控件，一個水平滾動條控件，一個垂直滾動條控件和二個圖片框控件。 2022-6-12清華大學(xué)出版社19程序代碼： Private Sub Form_Load() Picture1.AutoSize = False Picture2.Width = Picture1.Widt

15、h Picture2.Height = Picture1.HeightEnd Sub Private Sub Command1_Click() Picture2.Picture = LoadPicture(App.Path + + 002.jpg) HScroll1.LargeChange = HScroll1.Max / 10 HScroll1.SmallChange = HScroll1.Max / 100 VScroll1.LargeChange = VScroll1.Max / 10 VScroll1.SmallChange = VScroll1.Max / 100End Sub Ap

16、p.Path:當(dāng)前目錄2022-6-12清華大學(xué)出版社20Private Sub Command2_Click() Picture2.Picture = LoadPicture() Picture2.Width = Picture1.Width Picture2.Height = Picture1.HeightEnd SubPrivate Sub Command3_Click() EndEnd Sub Private Sub HScroll1_Change() Picture2.Left = -HScroll1.ValueEnd Sub Private Sub VScroll1_Change(

17、) Picture2.Top = -VScroll1.ValueEnd Sub2022-6-12清華大學(xué)出版社21【例9.5】建立一個嵌入式按鈕。（1）啟動VB，新建一個工程。（2）在窗體上從左至右依次添加Image1、Image2和Image3三個圖像框控件，一個標(biāo)簽控件。如圖所示。圖9-31 窗體界面圖9-32 嵌入按鈕正常狀態(tài)圖9-33 嵌入按鈕按下狀態(tài)2022-6-12清華大學(xué)出版社22Private Sub Form_Load() Image1.Picture = LoadPicture(App.Path + + ITL_UP.bmp) Image1.Tag = up設(shè)置對象Imag

18、e1的標(biāo)識符為up Image2.Picture = LoadPicture(App.Path+ +ITL_DWN.bmp) Image2.Visible = False Image3.Picture = LoadPicture(App.Path + + ITL_UP.bmp) Image3.Visible = FalseEnd Sub2022-6-12清華大學(xué)出版社23Private Sub Image1_Click() If Image1.Tag = up Then Image1.Picture = Image2.Picture Label1.FontItalic = True Image

19、1.Tag = down Else Image1.Picture = Image3.Picture Label1.FontItalic = False Image1.Tag = up End IfEnd Sub2022-6-12清華大學(xué)出版社24Shape屬性,其含義如下：0 Rectangle矩形1 Square正方形2 Oval橢圓形FillStyle屬性,含義如下：0 - Solid實心1 - Transprent透明2 - Horizontal Line水平線3 - Vertical Line垂直線3 Circle圓形4 - Rounded Rectangle圓角矩形5 - Round

20、ed Square圓角正方形4 - Upward Diagonal向上對角線5 - DownWard Diag向下對角線6 - Cross交叉線7 - Diagonal Cross對角交叉線2022-6-12清華大學(xué)出版社252022-6-12清華大學(xué)出版社26BorderStyle屬性：用來指定直線的類型。0 Transparent透明的，即不顯示出線來1 - Solid實線2 - Dash虛線3 - Dot點線4 - Dash-Dot點劃線 5 - Dash-Dot-Dot雙點劃線6 - Inside Solid內(nèi)實線注意：注意：只有當(dāng)BorderWidth為1時才可以用以上7種類型的線，

21、如果BorderWidth不為1，則上述7種類型中只有0和6有效。BorderWidth屬性：設(shè)置線寬BorderColor屬性：設(shè)置顏色2022-6-12清華大學(xué)出版社27Private Sub cmdLine_Click ( ) For i = 0 To 6 Line1(i).BorderColor = QBColor(i) Line1(i).BorderStyle = i Next iEnd Sub2022-6-12清華大學(xué)出版社28一、MDI多文檔界面主要特性：1、所有子窗體均顯示在MDI窗體的工作區(qū)中。用戶可改變、移動窗體的大小，但被限制在MDI窗體中。2、當(dāng)最小化子窗體時。它的圖標(biāo)將顯示于MDI窗體上而不是在任務(wù)欄中。當(dāng)最小化MDI窗體時。所有的子窗體也被最