Download presentation
Presentation is loading. Please wait.
1
講師：戴志華hana@arbor.ee.ntu.edu.tw 國立台灣大學電機工程研究所
Visual Basic 程式設計 國立台灣大學電機工程研究所
2
第九章 圖形化使用者介面II
3
CommonDialog 新增 (參考前一章的內容) 方法 Microsoft Common Dialog Control
ShowColor ShowOpen ShowFont ShowPrinter ShowHelp ShowSave
4
選擇顏色-ShowColor
5
選擇顏色-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屬性取得顏色
6
選擇顏色-ShowColor(cont’d)
Flags--設定值 常數 值 描述 cdlCCFullOpen &H2 顯示整個對話方塊 cdlCCPreventFullOpen &H4 使定義自訂顏色指令按鈕無效 cdlCCRGBInit &H1 為對話方塊設定初始顏色值
7
選擇字型-ShowFont
8
選擇字型-ShowFont(cont’d)
執行ShowFont前，設定Flags為 cdlCFBoth, cdlCFPrinterFonts, cdlCFScreenFonts三選一 cdlCFEffects允許使用者使用特殊效果 CommonDialog1.Flags = cdlCFBoth or cdlCFEffects
9
選擇字型-ShowFont(cont’d)
讀取選取字型屬性 FontSize FontBold FontItalic FontUnderLine FontName FontStrikethru
10
選擇字型-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的屬性
11
開啟說明檔-ShowHelp 設定Help檔檔名 設定開啟模式 HelpFile=“檔名” HelpCommand=cdlHelpKey
HelpCommand=cdlHelpContents
12
開啟說明檔-ShowHelp(cont’d)
13
開啟說明檔-ShowHelp(cont’d)
Private Sub form_click() CommonDialog1.HelpFile = _ "c:\winnt\help\dao35.hlp" CommonDialog1.HelpCommand = _ cdlHelpKey CommonDialog1.ShowHelp End Sub 請不要照打*^_^*
14
開啟檔案-ShowOpen 出現開啟檔案對話盒 傳回使用者輸入(從對話盒點選)的檔案名稱(字串) 真正開啟的動作自己做(需要其他元件)
ShowSave與ShowOpen相似
15
開啟檔案-ShowOpen(cont’d)
設定Filter Filter=“描述一|filter1|描述二|filter2……” Ex. Filter=“文字檔|*.txt|圖形檔|*.gif;*.jpg” 取得檔名 FileTitle 取得完整檔名 FileName
16
開啟檔案-ShowOpen(cont’d)
17
開啟檔案-ShowOpen(cont’d)
Private Sub form_click() CommonDialog1.Filter = "圖形檔|*.gif;*.jpg;*.jpeg" CommonDialog1.ShowOpen Print CommonDialog1.FileTitle Print CommonDialog1.FileName End Sub
18
開啟檔案-ShowOpen(cont’d)
FilterIndex InitDir DialogTitle
19
StatusBar 新增 MicroSoft Windows Common Controls 按右鍵屬性增加Panel
20
StatusBar(cont’d) 指定順序
21
StatusBar(cont’d) Alignment Bevel sbrLeft 置左 sbrRight置右 sbrCenter置中
sbrNoBevel平 sbrInset凹 SbrRaised凸
22
StatusBar(cont’d) Style sbrText sbrDate sbrTime sbrCaps sbrNum sbrIns
sbrScrl 顯示特殊鍵狀態
23
StatusBar(cont’d) AutoRaise sbrNoAutosizeNo Autosizing
sbrSpring彈簧(Extra space divided among panels) sbrContents依內容調整大小
24
StatusBar(cont’d) Private Sub form_click()
StatusBar1.Panels(1).Text = "你好嗎" End Sub Panel的陣列，從1開始……
25
ImageList 按右鍵屬性
26
ToolBar 按右鍵屬性 在「一般」中，設定ImageList 也可設定DisabledImageList 內定值，變灰
27
ToolBar(cont’d) 指定 ImageList
28
ToolBar(cont’d) 指定圖示 指定順序
29
ToolBar(cont’d) Style 事件處理函式 tbrDefault tbrSeparator空白
tbrButtonGroup一次只能選一個 事件處理函式 Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
30
ToolBar(cont’d) 共有7個按鈕
31
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處理 事件的流程很像呢？
32
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
33
Try It! 方形 圓形 紅 綠 藍
34
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
35
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
36
Try It!
Similar presentations
