功能表列與工具列的設計 & 檔案.

Presentation on theme: "功能表列與工具列的設計 & 檔案."— Presentation transcript:

1 功能表列與工具列的設計 & 檔案

2 一、功能表與工具列群組控制項 可用來在表單上佈建功能表列、快顯功能表、工具列、狀態列……等 可建立功能表列 可建立快顯功能表 可建立工具列

3 二、功能表列（1/5） 設計功能表列的步驟 編輯功能表 設定功能表及選項的屬性 撰寫選項程式

4 二、功能表列（2/5） 編輯功能表(方法一) Step1：雙按此欄，輸 入功能表名稱 Step2：雙按此欄，輸 入選項名稱
雙按此欄，可輸入另一個功能表名稱

5 二、功能表列（3/5） 編輯功能表(方法二) Step1：按此鈕，加入另一 個功能表 Step2：在此欄中輸入功能 表名稱

6 二、功能表列（4/5） 功能表及選項的常用屬性說明 屬性名稱 說明 Checked（核取記號） 是否顯示核取記號（ˇ）
CheckState（選取狀態） 取得使用者是否已選取選項 Font（字型） 功能表或選項的文字字型 Text（文字） 功能表或選項的文字 CheckOnClick（變更核取記號） 是否隨著使用者勾選選項而顯示核取記號（ˇ） Enabled（有效） 功能表或選項的有效狀態 ToolTipText（工具提示） 顯示提示文字 DropDownItems（次層功能選項） 編輯次層的功能選項

7 二、功能表列（5/5） 撰寫選項程式 Step1：在選項上雙按，以 開啟對應的程式碼 視窗 Step2：輸入程 式碼

8 三、功能表及選項樣式 MenuItem樣式 用來建立一般的功能選項 ComboBox樣式 用來建立下拉式方塊介面的功能選項

9 四、快顯功能表（1/5） 設計快顯功能表的步驟 編輯選項 設定選項的屬性 設定控制項的連結屬性 撰寫選項程式

10 四、快顯功能表（2/5） 編輯選項 Step1：雙按此欄，輸入功 能選項名稱 Step2：參照步驟 1，輸入 第 2 個功能選項的 名稱

11 四、快顯功能表（3/5） 設定選項的屬性（以設定提示文字為例） Step1：選取功能選項名 稱
Step2：設定ToolTipText 屬性為 "放大圖片"

12 四、快顯功能表（4/5） 設定控制項的連結屬性 Step1：選取要與快顯功 能表建立連結關 係的控制項
Step2：在此欄中設定要 連結的快顯功能 表，例如Context MenuScrip1

13 四、快顯功能表（5/5） 撰寫選項程式 Step1：在選項上雙按，以 開啟對應的程式碼 視窗 Step2：輸入程 式碼

14 五、工具列（1/4） 設計工具列的步驟 編輯工具鈕項目 設定工具鈕屬性 撰寫對應程式

15 五、工具列（2/4） 工具鈕樣式 分隔線 標籤 按鈕 含分隔線的按鈕 下拉式按鈕 文字方塊 下拉式方塊 進度列

16 五、工具列（3/4） 工具鈕的常用屬性說明 屬性名稱 說明 Image（影像） 設定顯示在工具鈕上的圖示圖案 Text （文字）
1.設定顯示在工具鈕上的文字 2.當工具鈕的樣式為Label時，Text屬性設定值會直接顯示在該工具鈕上；當工具鈕為其它樣式時，在Text屬性中所設定的文字，將自動設為TextTipText屬性的設定值

17 五、工具列（4/4） 撰寫對應程式 Step1：在工具鈕上雙按， 以開啟對應的程式 碼視窗 Step2：輸入程式 碼

18 六、RichTextBox控制項（1/3） 提供類似一般文字編輯器的功能，包含： 輸入文數字 文字格式化設定 插入影像圖片

19 六、RichTextBox控制項（2/3） 常用屬性說明 屬性 說明 SelectedText （選取的文字）
取得使用者選取的文字，或設定要選取的文字 SelectionColor （選取文字的色彩） 取得使用者選取文字的色彩，或設定選取文字的色彩 SelectionFont （選取文字的字型） 取得使用者選取文字的字型樣式，或設定選取文字的字型樣式

20 六、RichTextBox控制項（3/3） 常用方法說明 方法 說明 Clear（清除） 清除所有文字 Copy（複製）
複製選取的文字到剪貼簿中 Cut（剪下） 剪下選取的文字並貼到剪貼簿中 Focus（游標停駐位置） 強迫將游標移至RichTextBox控制項中 Paste（貼上） 將剪貼簿中的內容貼到RichTextBox控制項中 Select（選取文字） 選取RichTextBox控制項中的某段文字 SelectAll（選取所有文字） 選取RichTextBox控制項中的所有文字

21 七、對話方塊群組控制項（1/3） 佈建此類控制項可省去自行設計交談窗畫面的時間 可建立色彩交談窗 可建立資料夾瀏覽交 談窗 可建立字型交談窗
可建立另存新檔交 談窗 可建立資料夾瀏覽交 談窗 可建立開啟（舊檔） 交談窗

22 七、對話方塊群組控制項（2/3） OpenFileDialog、SaveFileDialog、FontDialog控制項的常用屬性/方法說明
FileName（檔案名稱） 傳回使用者在開啟舊檔/儲存檔案交談窗中所選擇 的檔案路徑 Filter（篩選檔案類型） 設定所要開啟或儲存的檔案類型，設定語法如下： 開啟（舊檔）/另存新檔交談窗控制項名稱.Filter = "檔 案類型欄中的說明文字|檔案類型" Font（字型） 傳回使用者在字型交談窗所設定的字型、大小、及字 型樣式等設定 Title（標題） 設定或取得交談窗的標題列文字 ShowDialog 顯示交談窗

23 七、對話方塊群組控制項（3/3） 設定Filter屬性的例子說明： OpenFileDialog1.Filter = "文字檔案(*.txt)|*.txt" 檔案類型欄中的說明文字

24 檔案存取

25 一、檔案存取（1/2） 使用變數與檔案來存放資料的差異 S01 80 70 程式執行結束，資料即消失 程式執行結束，資料仍存在檔案中
…… 記憶體（RAM） 硬碟（H.D.D） 儲存學號 儲存國文成績 儲存英文成績 程式執行結束，資料即消失 程式執行結束，資料仍存在檔案中 變數Sid 變數Chinese 變數English 檔案（學生成績檔）

26 一、檔案存取（2/2） 在Visual Basic的FCL類別庫中，FileSystem類別提供了許多與檔案處理相關的方法 My類別
提供許多子類別及方法，供程式設計者用來存取電腦的週邊資源 Computer類別 提供許多屬性及子類別，供程式設計者用來管理電腦的檔案系統、音效、時間、鍵盤等資源 FileSystem類別

27 二、文字檔案的存取方法（1/5） 資料寫入的語法： My.Computer.FileSystem.WriteAllText("檔案路徑", "寫入資料", "附加模式") 說明： 檔案路徑：設定所要寫入資料的檔案位置 寫入資料：設定所要寫入檔案的資料 附加模式：設定是否要將寫入的資料附加至原有檔案的最後

28 二、文字檔案的存取方法（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

29 二、文字檔案的存取方法（3/5） 資料讀取的語法： 字串變數 = My.Computer.FileSystem.ReadAllText("檔案路徑") 說明： 字串變數：存放所讀取到的檔案內容 檔案路徑：所要讀取檔案的位置

30 二、文字檔案的存取方法（4/5） 範例： 表單檔Form1.vb
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 …… 表單檔Form1.vb

31 二、文字檔案的存取方法（5/5） 範例： 表單檔Form2.vb
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 表單檔Form2.vb