用VB60設(shè)計(jì)用戶界面

第七章用VB6.0設(shè)計(jì)用戶界面,窗體對(duì)話框菜單工具欄狀態(tài)欄,窗體,在win的應(yīng)用程序中，窗體是最基本的對(duì)象。,窗體的屬性：略。,窗體的方法：Cls、Show、Print、Hide、Move方法等。,窗體的事件：Load、Unload、Click、Dblclick、Mousedown、Mousemove、Mouseup、Keydown、KeyUp、Active等。,對(duì)話框,對(duì)話框是一種用于實(shí)現(xiàn)用戶和應(yīng)用程序進(jìn)行交互的特殊窗體。,對(duì)話框的大小一般不可改變，也沒有“最小化”和“最大化”按鈕，它只有一個(gè)“關(guān)閉”按鈕（有時(shí)還包含一個(gè)“幫助”按鈕）。,對(duì)話框分為模式和無(wú)模式兩種類型。無(wú)模式用于顯示頻繁使用的命令與信息。,VB提供了三種解決方案：,系統(tǒng)預(yù)定義的對(duì)話框即：InputBox和MsgBox用戶自定義對(duì)話框通用對(duì)話框控件,自定義對(duì)話框,由普通窗體創(chuàng)建自定義對(duì)話框，在窗體上放置常用控件，如命令按鈕、單/復(fù)選按鈕、文本框等。,對(duì)話框窗體與一般窗體在外觀上是有區(qū)別的，需要設(shè)置窗體及控件的屬性值來(lái)自定義窗體外觀。,自定義對(duì)話框的制作步驟：,創(chuàng)建標(biāo)題；設(shè)置對(duì)話框?qū)傩裕喝鏐orderStyle屬性、ControlBox屬性等；設(shè)置命令按鈕及其屬性：如Default屬性、Cancel屬性等；顯示自定義對(duì)話框。關(guān)閉自定義對(duì)話框,使用對(duì)話框模板窗體創(chuàng)建對(duì)話框,VisualBasic6.0系統(tǒng)提供了多種不同類的“對(duì)話框”模板窗體，通過(guò)“工程”菜單中的“添加窗體”命令，即可打開“添加窗體”對(duì)話框。用戶可以選擇的對(duì)話框有“關(guān)于”對(duì)話框、對(duì)話框、登錄對(duì)話框、日積月累、ODBC登錄、選項(xiàng)對(duì)話框6類等。,通用對(duì)話框,通用對(duì)話框控件添加到工具箱的操作步驟如下：1單擊“工程”菜單，選擇“部件”命令；2在“部件”對(duì)話框的“控件”選項(xiàng)中找到并選擇“MicrosoftCommonDialogControl6.0”控件部件；3單擊“確定”，公共對(duì)話框控件被添加到工具箱。,通用對(duì)話框可以提供6種形式的對(duì)話框，通過(guò)設(shè)置Action屬性值或調(diào)用Show方法來(lái)建立不同類型的對(duì)話框。,通用對(duì)話框的方法：VB還提供了一組方法用來(lái)打開不同類型對(duì)話框:,ShowOpenShowSaveShowColorShowFontShowPrinterShowHelp,1.FileName(文件名稱）屬性：在程序中可用該屬性值設(shè)置或返回用戶所選定的文件名（包含路徑）2.FileTitle（文件標(biāo)題）屬性：在程序中可用該屬性值設(shè)置或返回用戶所選定的文件名（不包含路徑）,“打開”/“另存為”對(duì)話框,3.Filter（過(guò)濾器）屬性：確定文件列表框中所顯示文件的類型，該屬性的值顯示在“文件類型”列表框中。如設(shè)置其值為：Cocuments(*.DOC)|*.DOC|TextFiles(*.TXT)|*.txt|AllFiles|(*.*)則在“文件類型”列表框顯示下列三種文件類型以供用戶選擇Cocuments(*.DOC)擴(kuò)展名為DOC的Word文件TextFiles(*.TXT)擴(kuò)展名為TXT的文本文件AllFiles|(*.*)所有文件,4.FilterIndex（過(guò)濾器索引）屬性：為整型值，表示用戶在文件類型列表框選定了第幾組文件類型。5.InitDir（初始化路徑）屬性：該屬性用來(lái)指定打開對(duì)話框中的初始目錄，若不設(shè)置，系統(tǒng)則默認(rèn)為“C:MyDocuments”。,6.DefaultExt屬性：字符型，用于確定保存文件的缺省擴(kuò)展名。7.CancelError屬性：邏輯型值，表示用戶在與對(duì)話框進(jìn)行信息交換時(shí)，按下“取消”按鈕時(shí)是否產(chǎn)生出錯(cuò)信息。,PrivateSubCommand1_Click()CommonDialog1.Filter=位圖文件|*.bmp|Gif文件|*.gifCommonDialog1.ShowOpen或用Action=1Picture1=LoadPicture(CommonDialog1.FileName)EndSub,例如：用打開對(duì)話框選擇圖形文件并顯示。,顏色對(duì)話框是當(dāng)Action值為3時(shí)的通用對(duì)話框。重要屬性Color：用來(lái)返回或設(shè)置選定的顏色。,“顏色”對(duì)話框,例如：PrivateSubCommand1_Click()CommonDialog1.ShowColorLabel1.ForeColor=CommonDialog1.ColorEndSub,字體對(duì)話框是Action為4時(shí)的通用對(duì)話框,提供用戶選擇字體、字號(hào)及字體樣式等。重要的屬性有：Color,FontName,FontSize,FontBoldFontItalic,FontStrikethru,FontUnderline等。,“字體”對(duì)話框,Flags屬性：設(shè)置所顯示的字體類型，數(shù)據(jù)類型為L(zhǎng)ong。注意:在顯示“字體”對(duì)話框前，必須先將Flags屬性設(shè)置為cdlCFScreenFonts，cdlCFPrinterFonts，或cdlCFBoth。否則，會(huì)發(fā)生字體不存在的錯(cuò)誤。,打印對(duì)話框是當(dāng)Action為5時(shí)的通用對(duì)話框，是一個(gè)標(biāo)準(zhǔn)打印對(duì)話窗口界面。屬性FromPage：整型，起始頁(yè)號(hào)Topage：整型，終止頁(yè)號(hào)Copies：整型，打印份數(shù);如果打印驅(qū)動(dòng)程序不支持多份打印，該屬性有可能始終返回1。,注意：打印對(duì)話框本身不能處理打印工作，僅僅是一個(gè)供用戶選擇打印參數(shù)的界面，所選參數(shù)存于各屬性中，再通過(guò)編程來(lái)處理打印操作。,“打印”對(duì)話框,“幫助”對(duì)話框,幫助對(duì)話框是當(dāng)Action為6時(shí)的對(duì)話框，是一個(gè)標(biāo)準(zhǔn)的對(duì)話窗口用于制作應(yīng)用程序的在線幫助。它不能制作應(yīng)用程序的幫助文件，只能將已制作好的幫助文件從磁盤中讀出，并與界面連接起來(lái)，達(dá)到顯示并檢索幫助信息的目的。幫助文件需要用其它的工具制作，如MicrosoftWindowsHelpCompiler。,1.HelpCommand（幫助命令）屬性：用于返回或設(shè)置需要的在線Help幫助類型。2.HelpFile（幫助文件）屬性：用于指定已制作好的幫助文件的路徑及文件名3.HelpKey（幫助關(guān)鍵字）屬性：用于指定幫助信息的內(nèi)容，幫助窗口中顯示由該幫助關(guān)鍵字指定的幫助信息。4.HelpContext（幫助上下文）屬性：,PrivateSubCommand1_Click()CommonDialog1.HelpCommand=3CommonDialog1.HelpFile=c:windowshelpnotepad.hlpCommonDialog1.HelpKey=復(fù)制文件CommonDialog1.ShowHelpEndSub,例如：在程序中顯示筆記本的幫助信息。,設(shè)計(jì)一個(gè)窗體，包含1個(gè)文本框（RichTextBox1）和6個(gè)分別為“打開”、“另存為”、“顏色”、“字體”、“打印”和“幫助”命令按鈕。,PrivateSubcommand1_Click()CommonDialog1.ShowOpenCommonDialog1.Filter=Text(*.txt)|*.txt|Doc(*.doc)|*.doc|all(*.*)|*.*RichTextBox1.LoadFile(CommonDialog1.FileName)EndSubPrivateSubCommand2_Click()CommonDialog1.ShowSave沒有提供真正的存儲(chǔ)文件操作，仍需要編程完成儲(chǔ)存操作。EndSub,PrivateSubCommand3_Click()CommonDialog1.Flags=1+256即&H1+&H100CommonDialog1.ShowFontRichTextBox1.SelFontName=CommonDialog1.FontNameRichTextBox1.SelFontName=CommonDialog1.FontSizeRichTextBox1.SelItalic=CommonDialog1.FontItalicRichTextBox1.SelBold=CommonDialog1.FontBoldRichTextBox1.SelStrikeThru=CommonDialog1.FontStrikethruRichTextBox1.SelUnderline=CommonDialog1.FontUnderlineRichTextBox1.SelColor=CommonDialog1.ColorEndSub,PrivateSubCommand4_Click()CommonDialog1.ShowColorRichTextBox1.BackColor=CommonDialog1.ColorEndSubPrivateSubCommand5_Click()EndEndSub,菜單,菜單是圖形化界面一個(gè)必不可少的組成元素，通過(guò)菜單對(duì)各種命令按功能進(jìn)行分組，使用戶能夠更加方便、直觀地訪問(wèn)這些命令。Windows環(huán)境下的應(yīng)用程序一般為用戶提供三種菜單：窗體控制菜單、下拉菜單與快捷菜單。,有三種方法啟動(dòng)菜單編輯器：1.單擊工具欄菜單圖標(biāo)2.工具/菜單編輯器3.窗體上快捷菜單菜單編輯器,菜單編輯器,屬性區(qū),編輯區(qū),菜單列表區(qū),菜單的主要屬性1.標(biāo)題(Caption)：在窗口上顯示。例如：輸入&File，顯示為：File，熱鍵：Alt+F2.名稱(Name)：菜單項(xiàng)的名稱，分界符也應(yīng)有名稱。3.快捷鍵(Shortcut)：下拉列表框4.下一個(gè)(Next)：設(shè)置下一個(gè)菜單項(xiàng)。5.和按鈕：“”下一級(jí)菜單項(xiàng)；“”上一級(jí)菜單項(xiàng)。,6.插入(Insert)按鈕：插入菜單項(xiàng)7.刪除(Delete)按鈕：刪除菜單項(xiàng)8.和按鈕：改變菜單項(xiàng)位置。9.復(fù)選(Checked)檢查框：菜單項(xiàng)為選定項(xiàng)。10.有效(Enabled)檢查框：True：菜單項(xiàng)可選；False：不可選。11.顯示窗口列表(WindowList)檢查框：決定是否顯示所有打開的子窗體標(biāo)題，用于多文檔應(yīng)用程序。,1設(shè)計(jì)下拉菜單2設(shè)計(jì)子菜單或改變子菜單級(jí)別3為菜單項(xiàng)分組:菜單名用減號(hào)“-”4.為菜單項(xiàng)指定訪問(wèn)鍵和快捷鍵:與命令按鈕設(shè)置訪問(wèn)鍵相同。5為菜單項(xiàng)加上復(fù)選標(biāo)記6禁止使用菜單項(xiàng):在程序代碼中可以通過(guò)程序代碼：菜單名.Enabled=False7菜單項(xiàng)的增減,菜單設(shè)計(jì)的幾項(xiàng)操作：,例如：編寫一個(gè)菜單程序。,PrivateSubmenu11_Click()Text1.Text=清除文本框中的內(nèi)容EndSubPrivateSubmenu21_Click()Text1.FontSize=12設(shè)置字體大小EndSubPrivateSubmenu22_Click()Text1.FontSize=16設(shè)置字體大小EndSub,PrivateSubmenu23_Click()menu23.Checked=Notmenu23.Checked控制標(biāo)記顯示與否Text1.FontBold=menu23.Checked粗體EndSubPrivateSubmenu24_Click()menu24.Checked=Notmenu24.CheckedText1.FontItalic=NotText1.FontItalic斜體，與粗體控制功能類似EndSubPrivaeSubText1_Change()menu2.Visible=(Text1)EndSub,彈出式（快捷）菜單,彈出式菜單又稱為快捷菜單。用VB菜單編輯器設(shè)計(jì),用PopupMenu方法彈出，其格式為：對(duì)象名.PopupMenu菜單名,標(biāo)志,x,y,boldcommand標(biāo)志：0：菜單項(xiàng)只對(duì)鼠標(biāo)左鍵有反應(yīng)。2：菜單項(xiàng)對(duì)鼠標(biāo)左鍵和右鍵都有反應(yīng)，,說(shuō)明：PopupMenu方法只能用在MouseDown事件過(guò)程。,PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenumenu2EndSub,PrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenumenu2,menu24EndSub,動(dòng)態(tài)菜單,動(dòng)態(tài)增減則是在運(yùn)行階段根據(jù)用戶的選擇來(lái)增加或減少菜單項(xiàng)。1.修改菜單的標(biāo)題（Caption屬性）2.使菜單命令有效或無(wú)效（Enable屬性）3.顯示菜單項(xiàng)上的復(fù)選標(biāo)志（Checked屬性）4.使菜單控件不可見（Visible屬性）,將控件MicrosoftWindowsCommonControls6.0添加到工具箱，通過(guò)ToolBar、ImageList組合使用建立工具欄。,創(chuàng)建工具欄：步驟：1.在ImageList控件中添加所需的圖象；2.在ToolBar控件中創(chuàng)建Button對(duì)象；3.設(shè)置ToolBar控件的“屬性頁(yè)”；4.在ButtonClick事件中用SelectCase語(yǔ)句對(duì)各按鈕進(jìn)行相應(yīng)的編程。,工具欄（ToolBar）,在ImageList控件中添加圖象：ImageList控件不單獨(dú)使用，專門為其它控件提供圖像庫(kù)。,索引（Index）、關(guān)鍵字（Key）：在ToolBar中引用圖象文件的擴(kuò)展名為：.ico、.bmp、.gif、.jpg等,在ToolBar控件中添加按鈕1.為工具欄連接圖象,ToolBar與ImageList的連接,工具欄樣式,2.為工具欄增加按鈕,索引（Index）、關(guān)鍵字（Key）每個(gè)按鈕的編號(hào)、標(biāo)識(shí),ButtonClick事件中引用；,圖象(Image)ImageList對(duì)