講師：戴志華hana@arbor.ee.ntu.edu.tw 國立台灣大學電機工程研究所 Visual Basic 程式設計 講師：戴志華hana@arbor.ee.ntu.edu.tw 國立台灣大學電機工程研究所

第九章 圖形化使用者介面II

CommonDialog 新增 (參考前一章的內容) 方法 Microsoft Common Dialog Control ShowColor ShowOpen ShowFont ShowPrinter ShowHelp ShowSave

選擇顏色-ShowColor

選擇顏色-ShowColor(cont’d) Private Sub form_click() Dim color As Long CommonDialog1.Flags = cdlCCRGBInit CommonDialog1.ShowColor color = CommonDialog1.color Line (0, 0)-(100, 100), color, BF End Sub 注意形別，只能是Long 要設定Flag 利用color屬性取得顏色

選擇顏色-ShowColor(cont’d) Flags--設定值 常數 值 描述 cdlCCFullOpen &H2 顯示整個對話方塊 cdlCCPreventFullOpen &H4 使定義自訂顏色指令按鈕無效 cdlCCRGBInit &H1 為對話方塊設定初始顏色值

選擇字型-ShowFont

選擇字型-ShowFont(cont’d) 執行ShowFont前，設定Flags為 cdlCFBoth, cdlCFPrinterFonts, cdlCFScreenFonts三選一 cdlCFEffects允許使用者使用特殊效果 CommonDialog1.Flags = cdlCFBoth or cdlCFEffects

選擇字型-ShowFont(cont’d) 讀取選取字型屬性 FontSize FontBold FontItalic FontUnderLine FontName FontStrikethru

選擇字型-ShowFont(cont’d) Private Sub form_click() CommonDialog1.Flags = cdlCFBoth or cdlCFEffects CommonDialog1.ShowFont FontSize = CommonDialog1.FontSize FontBold = CommonDialog1.FontBold FontItalic = CommonDialog1.FontItalic FontUnderline = CommonDialog1.FontUnderline FontStrikethru = CommonDialog1.FontStrikethru FontName = CommonDialog1.FontName Print "你好嗎" End Sub Form的屬性

開啟說明檔-ShowHelp 設定Help檔檔名 設定開啟模式 HelpFile=“檔名” HelpCommand=cdlHelpKey HelpCommand=cdlHelpContents

開啟說明檔-ShowHelp(cont’d)

開啟說明檔-ShowHelp(cont’d) Private Sub form_click() CommonDialog1.HelpFile = _ "c:\winnt\help\dao35.hlp" CommonDialog1.HelpCommand = _ cdlHelpKey CommonDialog1.ShowHelp End Sub 請不要照打*^_^*

開啟檔案-ShowOpen 出現開啟檔案對話盒 傳回使用者輸入(從對話盒點選)的檔案名稱(字串) 真正開啟的動作自己做(需要其他元件) ShowSave與ShowOpen相似

開啟檔案-ShowOpen(cont’d) 設定Filter Filter=“描述一|filter1|描述二|filter2……” Ex. Filter=“文字檔|*.txt|圖形檔|*.gif;*.jpg” 取得檔名 FileTitle 取得完整檔名 FileName

開啟檔案-ShowOpen(cont’d)

開啟檔案-ShowOpen(cont’d) Private Sub form_click() CommonDialog1.Filter = "圖形檔|*.gif;*.jpg;*.jpeg" CommonDialog1.ShowOpen Print CommonDialog1.FileTitle Print CommonDialog1.FileName End Sub

開啟檔案-ShowOpen(cont’d) FilterIndex InitDir DialogTitle

StatusBar 新增 MicroSoft Windows Common Controls 按右鍵屬性增加Panel

StatusBar(cont’d) 指定順序

StatusBar(cont’d) Alignment Bevel sbrLeft 置左 sbrRight置右 sbrCenter置中 sbrNoBevel平 sbrInset凹 SbrRaised凸

StatusBar(cont’d) Style sbrText sbrDate sbrTime sbrCaps sbrNum sbrIns sbrScrl 顯示特殊鍵狀態

StatusBar(cont’d) AutoRaise sbrNoAutosizeNo Autosizing sbrSpring彈簧(Extra space divided among panels) sbrContents依內容調整大小

StatusBar(cont’d) Private Sub form_click() StatusBar1.Panels(1).Text = "你好嗎" End Sub Panel的陣列，從1開始……

ImageList 按右鍵屬性

ToolBar 按右鍵屬性 在「一般」中，設定ImageList 也可設定DisabledImageList 內定值，變灰

ToolBar(cont’d) 指定 ImageList

ToolBar(cont’d) 指定圖示 指定順序

ToolBar(cont’d) Style 事件處理函式 tbrDefault tbrSeparator空白 tbrButtonGroup一次只能選一個 事件處理函式 Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

ToolBar(cont’d) 共有7個按鈕

ToolBar(cont’d) Private Sub Form_click() Toolbar1.Buttons(1).Enabled = False End Sub Private Sub Toolbar1_ButtonClick(ByVal _ Button As MSComctlLib.Button) Select Case Button.Index Case 1 Call …… Case 2 是不是和Windows處理 事件的流程很像呢？

ToolBar(cont’d) Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu) Select Case ButtonMenu.Key Case "Document“ Call mnuFileNewDocument Case "Image" Call mnuFileNewImage End Select End Sub

Try It! 方形 圓形 紅 綠 藍

Private Sub Toolbar1_ButtonClick(ByVal _ Button As MSComctlLib.Button) Dim color As Long If (Toolbar1.Buttons(4).Value = _ tbrPressed) Then color = vbRed ElseIf (Toolbar1.Buttons(5).Value = _ color = vbGreen ElseIf (Toolbar1.Buttons(6).Value = _ color = vbBlue End If

Select Case Button.Index Cls DrawBox (color) Case 2 DrawCircle (color) End Select End Sub Private Sub DrawBox(color As Long) Line (50, 50)-(100, 100), color, BF Private Sub DrawCircle(color As Long) Circle (50, 50), 50, color

Try It!