Transcript 第11章功能表列與工具列的設計

功能表列與工具列的設計
&
檔案
一、功能表與工具列群組控制項
 可用來在表單上佈建功能表列、快顯功能表、
工具列、狀態列……等
可建立快顯功能表
可建立功能表列
可建立工具列
二、功能表列（1/5）
 設計功能表列的步驟



編輯功能表
設定功能表及選項的屬性
撰寫選項程式
二、功能表列（2/5）
 編輯功能表(方法一)
Step1：雙按此欄，輸
入功能表名稱
Step2：雙按此欄，輸
入選項名稱
雙按此欄，可輸入另
一個功能表名稱
二、功能表列（3/5）
 編輯功能表(方法二)
Step1：按此鈕，加入另一
個功能表
Step2：在此欄中輸入功能
表名稱
Step3：按此鈕以
編輯編輯
功能表下
的選項
Step4：參照步驟1～2，輸入選項名稱
二、功能表列（4/5）
 功能表及選項的常用屬性說明
屬性名稱
說明
Checked（核取記號）
是否顯示核取記號（ˇ）
CheckState（選取狀態）
取得使用者是否已選取選項
Font（字型）
功能表或選項的文字字型
Text（文字）
功能表或選項的文字
CheckOnClick（變更核取記號）
是否隨著使用者勾選選項而顯示核取記
號（ˇ）
Enabled（有效）
功能表或選項的有效狀態
ToolTipText（工具提示）
顯示提示文字
DropDownItems（次層功能選項）
編輯次層的功能選項
二、功能表列（5/5）
 撰寫選項程式
Step1：在選項上雙按，以
開啟對應的程式碼
視窗
Step2：輸入程
式碼
三、功能表及選項樣式
 MenuItem樣式

用來建立一般的功能
選項
 ComboBox樣式

用來建立下拉式方塊
介面的功能選項
四、快顯功能表（1/5）
 設計快顯功能表的步驟




編輯選項
設定選項的屬性
設定控制項的連結屬性
撰寫選項程式
四、快顯功能表（2/5）
 編輯選項
Step1：雙按此欄，輸入功
能選項名稱
Step2：參照步驟 1，輸入
第 2 個功能選項的
名稱
四、快顯功能表（3/5）
 設定選項的屬性（以設定提示文字為例）
Step1：選取功能選項名
稱
Step2：設定ToolTipText
屬性為 "放大圖片"
四、快顯功能表（4/5）
 設定控制項的連結屬性
Step1：選取要與快顯功
能表建立連結關
係的控制項
Step2：在此欄中設定要
連結的快顯功能
表，例如ContextMenuScrip1
四、快顯功能表（5/5）
 撰寫選項程式
Step1：在選項上雙按，以
開啟對應的程式碼
視窗
Step2：輸入程
式碼
五、工具列（1/4）
 設計工具列的步驟



編輯工具鈕項目
設定工具鈕屬性
撰寫對應程式
五、工具列（2/4）
 工具鈕樣式
按鈕
標籤
含分隔線的按鈕
下拉式按鈕
分隔線
下拉式方塊
文字方塊
進度列
五、工具列（3/4）
 工具鈕的常用屬性說明
屬性名稱
說明
Image（影像）
設定顯示在工具鈕上的圖示圖案
Text （文字）
1.設定顯示在工具鈕上的文字
2.當工具鈕的樣式為Label時，Text屬性設定值會
直接顯示在該工具鈕上；當工具鈕為其它樣式
時，在Text屬性中所設定的文字，將自動設為
TextTipText屬性的設定值
五、工具列（4/4）
 撰寫對應程式
Step1：在工具鈕上雙按，
以開啟對應的程式
碼視窗
Step2：輸入程式
碼
六、RichTextBox控制項（1/3）
 提供類似一般文字編
輯器的功能，包含：



輸入文數字
文字格式化設定
插入影像圖片
六、RichTextBox控制項（2/3）
 常用屬性說明
屬性
SelectedText
（選取的文字）
說明
取得使用者選取的文字，或設定要選取的文字
SelectionColor
（選取文字的色彩）
取得使用者選取文字的色彩，或設定選取文字的
色彩
SelectionFont
（選取文字的字型）
取得使用者選取文字的字型樣式，或設定選取文
字的字型樣式
六、RichTextBox控制項（3/3）
 常用方法說明
方法
說明
Clear（清除）
清除所有文字
Copy（複製）
複製選取的文字到剪貼簿中
Cut（剪下）
剪下選取的文字並貼到剪貼簿中
Focus（游標停駐位置）
強迫將游標移至RichTextBox控制項中
Paste（貼上）
將剪貼簿中的內容貼到RichTextBox控制項中
Select（選取文字）
選取RichTextBox控制項中的某段文字
SelectAll（選取所有文字）
選取RichTextBox控制項中的所有文字
七、對話方塊群組控制項（1/3）
 佈建此類控制項可省去自行設計交談窗畫面
的時間
可建立色彩交談窗
可建立字型交談窗
可建立另存新檔交
談窗
可建立資料夾瀏覽交
談窗
可建立開啟（舊檔）
交談窗
七、對話方塊群組控制項（2/3）
 OpenFileDialog、SaveFileDialog、FontDialog
控制項的常用屬性/方法說明
屬性/方法
說明
FileName（檔案名稱）
傳回使用者在開啟舊檔/儲存檔案交談窗中所選擇
的檔案路徑
Filter（篩選檔案類型）
設定所要開啟或儲存的檔案類型，設定語法如下：
開啟（舊檔）/另存新檔交談窗控制項名稱.Filter = "檔
案類型欄中的說明文字|檔案類型"
Font（字型）
傳回使用者在字型交談窗所設定的字型、大小、及字
型樣式等設定
Title（標題）
設定或取得交談窗的標題列文字
ShowDialog
顯示交談窗
七、對話方塊群組控制項（3/3）

設定Filter屬性的例子說明：
OpenFileDialog1.Filter = "文字檔案(*.txt)|*.txt"
檔案類型欄中
的說明文字
檔案存取
一、檔案存取（1/2）
 使用變數與檔案來存放資料的差異
儲存學號
S01
變數Sid
儲存國文成績 儲存英文成績
80
變數Chinese
70
程式執行結束，
資料即消失
變數English
記憶體（RAM）
檔案（學生成績檔）
S01, 80, 70, 65
S02, 100, 75, 80
……
程式執行結束，
資料仍存在檔案
中
硬碟（H.D.D）
一、檔案存取（2/2）
 在Visual Basic的FCL類別庫中，FileSystem
類別提供了許多與檔案處理相關的方法
My類別
Computer類別
FileSystem類別
提供許多子類別及方法，供程式設計
者用來存取電腦的週邊資源
提供許多屬性及子類別，供程式設計
者用來管理電腦的檔案系統、音效、
時間、鍵盤等資源
二、文字檔案的存取方法（1/5）
 資料寫入的語法：
My.Computer.FileSystem.WriteAllText("檔案路徑", "寫
入資料", "附加模式")
 說明：



檔案路徑：設定所要寫入資料的檔案位置
寫入資料：設定所要寫入檔案的資料
附加模式：設定是否要將寫入的資料附加至原有檔案的最後
二、文字檔案的存取方法（2/5）
 範例：
Private Sub Button1_Click(ByVal sender……) Handles Button1.Click
Dim path As String = My.Computer.FileSystem.CurrentDirectory & _
"\Lyrics.txt" '變數path用來存放檔案路徑
Dim buffer As String
'變數buffer用來存放要寫入的資料
'將要寫入的資料設定給buffer
buffer = TextBox1.Text + vbCrLf + vbCrLf + TextBox2.Text + _
vbCrLf + vbCrLf + TextBox3.Text + vbCrLf + vbCrLf
'將buffer的值寫入到檔案中
My.Computer.FileSystem.WriteAllText(path, buffer, True)
End Sub
二、文字檔案的存取方法（3/5）
 資料讀取的語法：
字串變數 = My.Computer.FileSystem.ReadAllText("檔
案路徑")
 說明：


字串變數：存放所讀取到的檔案內容
檔案路徑：所要讀取檔案的位置
二、文字檔案的存取方法（4/5）
 範例：
Public path As String = My.Computer.FileSystem.CurrentDirectory & _
"\Lyrics.txt" '變數path用來存放檔案路徑
Public buffer As String
'變數buffer用來存放讀取到的資料
Private Sub Button1_Click(ByVal sender……) Handles Button1.Click
‘此事件程序撰寫「寫入資料至檔案」的程式碼
……
End Sub
Private Sub Button2_Click(ByVal sender……) Handles Button2.Click
Me.Hide()
'隱藏Form1
Form2.Show()
'顯示Form2
End Sub
表單檔Form1.vb
二、文字檔案的存取方法（5/5）
 範例：
Private Sub Form2_Activated(ByVal sender……) Handles Me.Activated
Form1.buffer = My.Computer.FileSystem.ReadAllText(Form1.path)
TextBox1.Text = Form1.buffer
End Sub
Private Sub Button1_Click(ByVal sender……) Handles Button1.Click
Me.Hide()
'隱藏Form2
Form1.Show()
'顯示Form1
End Sub
表單檔Form2.vb