Visual Basic 程式設計講師：戴志華 hanaarbor.ee.ntu.edu.tw 國立台灣大學電機工程研究所1第九章 圖形化使用者介面II2CommonDialogw新增 (參考前一章的內容)nMicrosoft Common Dialog Control w方法ShowColorShowOpenShowFontShowPrinterShowHelpShowSave3選擇顏色-ShowColor4選擇顏色-ShowColor(contd)Private Sub form_click()Dim color As LongCommonDialog1.Flags = cdlCCRGBInitCommonDialog1.ShowColorcolor = CommonDialog1.colorLine (0, 0)-(100, 100), color, BF End Sub注意形別，只能是Long要設定 Flag利用color屬性 取得顏色5選擇顏色-ShowColor(contd)wFlags-設定值常數值描述cdlCCFullOpen*.jpg” w取得檔名nFileTitle w取得完整檔名nFileName15開啟檔案-ShowOpen(contd)16開啟檔案-ShowOpen(contd)wPrivate Sub form_click()CommonDialog1.Filter = “圖形檔|*.gif;*.jpg;*.jpeg“CommonDialog1.ShowOpen Print CommonDialog1.FileTitlePrint CommonDialog1.FileNameEnd Sub17開啟檔案-ShowOpen(contd)wFilterIndex wInitDir wDialogTitle18StatusBarw新增nMicroSoft Windows Common Controls w按右鍵屬性增加Panel19StatusBar(contd)指定順序20StatusBar(contd)wAlignmentnsbrLeft置左nsbrRight置右nsbrCenter置中 wBevelnsbrNoBevel平nsbrInset凹nSbrRaised凸21StatusBar(contd)wStylensbrTextnsbrDatensbrTimensbrCapsnsbrNumnsbrInsnsbrScrl顯示特殊鍵狀態22StatusBar(contd)wAutoRaisensbrNoAutosizeNo AutosizingnsbrSpring彈簧(Extra space divided among panels)nsbrContents依內容調整大小23StatusBar(contd)Private Sub form_click()StatusBar1.Panels(1).Text = “你好嗎“ End SubPanel的陣列，從1開始24ImageListw按右鍵屬性25ToolBarw按右鍵屬性 w在一般中，設定ImageList w也可設定DisabledImageListn內定值，變灰26ToolBar(contd)指定 ImageList27ToolBar(contd)指定圖示指定順序28ToolBar(contd)wStylentbrDefaultntbrSeparator空白ntbrButtonGroup一次只能選一個 w事件處理函式nToolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)29ToolBar(contd)共有7個按鈕30ToolBar(contd)Private Sub Form_click()Toolbar1.Buttons(1).Enabled = False End SubPrivate Sub Toolbar1_ButtonClick(ByVal _Button As MSComctlLib.Button)Select Case Button.IndexCase 1Call Case 2Call End Sub是不是和Windows處理 事件的流程很像呢？31ToolBar(contd)wPrivate Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu) Select Case ButtonMenu.Key Case “Document“Call mnuFileNewDocument Case “Image“ Call mnuFileNewImageEnd Select End Sub 32Try It!紅 綠 藍方形 圓形33Private Sub Toolbar1_ButtonClick(ByVal _Button As MSComctlLib.Button)Dim color As LongIf (Toolbar1.Buttons(4).Value = _tbrPressed) Thencolor = vbRedElseIf (Toolbar1.Buttons(5).Value = _tbrPressed) Thencolor = vbGreenElseIf (Toolbar1.Buttons(6).Value = _tbrPressed) Thencolor = vbBlueEnd If34Select Case Button.IndexCase 1ClsDrawBox (color)Case 2ClsDrawCircle (color)End Select End Sub Private Sub DrawBox(color As Long)Line (50, 50)-(100, 100), color, BF End Sub Private Sub DrawCircle(color As Long)Circle (50, 50), 50, color End Sub35Try It!36