輸入及輸出

1. 輸入及輸出 命令按鈕 命令按鈕的運用 『命令按鈕』是運用在整個專案，要去下達「執行」、「結束」、「取消」、「暫停」…等命令的情況時會運用到的物件。 注意： 上述例子中，「正排」、「反排」、「清除」、「離開」等，都是『命令按鈕』的運用。

2. 命令按鈕建立 命令按鈕的建立，我們可以依據下列的步驟完成： 【步驟一】 在工具箱中，按下CommanButton物件。

3. 【步驟二】 在表單的任意空白處，拖曳出合適的方框。 注意： 我們也可以快點二次CommandButton的物件，表單中就會產生一個新的命令按鈕物件。

4. 命令按鈕屬性 『命令按鈕』建立完成後，我們再針對該命令按鈕設定相關的屬性。 Name屬性： 我們在Name屬性中輸入→ Run_btn的文字。

5. 注意： 1.同一個表單中，每個物件的名稱都不可以相同，也就是說每個物件的名稱只能唯一，不可以有重複的情形。 2.名稱最好取有意義的名詞，該名詞最好與該物件的特性有關。 命名時可以針對該物件的特性為主，例如當作標題文字時，我們可以用『Run_btn』來表示，『Run』是用來表示該物件的用途，『btn』則是用來表示這個物件是屬於何種類型的物件。 3.命名時需注意下列幾點： 第一個字必須為英文字母。 名稱中可以包含數字或是底線( _ )。 名稱中不可以有標點符號或是空格。 最好不要使用到VB中的關鍵字(例如Text、Label)

6. Caption屬性 Caption屬性，是用來表示呈現在命令按鈕外觀的文字，可以讓使用者清楚了解該命令按鈕的用途，我們可以直接輸入所要的中文字或是英文字。

7. Font的屬性 Font屬性，是用來設定文字的大小以及樣式。 圖為不同的Font，所顯示出來的結果。

8. 標籤方塊 標籤運用 『標籤方塊』是運用於「標題文字」、「提示說明文字」、「顯示資料結果」…等的情況。 注意： 上述例子中，「體重建議表」、「姓名」、「身高」、「體重」，都是『標籤方塊』的運用，使用者依據標籤的指示就知道應該填入何種資料。

9. 在工具箱中，按下Label 標籤方塊物件。 標籤方塊建立 標籤方塊的建立，我們可以依據下列的步驟完成： 【步驟一】

10. 注意： 我們也可以快點二次Label 標籤的物件，表單中就會產生一個新的標籤物件。 【步驟二】 在表單的任意空白處，拖曳出合適的方框。

11. 標籤屬性 『標籤』建立完成後，我們再針對該標籤設定相關的屬性。 Name屬性 我們在Name屬性中輸入→ Title_lbl的文字。

12. 注意： 1.同一個表單中，每個物件的名稱都不可以相同，也就是說每個物件的名稱只能唯一，不可以有重複的情形。 2.名稱最好取有意義的名詞，該名詞最好與該物件的特性有關。 命名時可以針對該物件的特性為主，例如當作標題文字時，我們可以用『Title_lbl』來表示，『Title』是用來表示該物件的用途，『lbl』則是用來表示這個物件是屬於何種類型的物件。 3.命名時需注意下列幾點： 第一個字必須為英文字母。 名稱中可以包含數字或是底線( _ )。 名稱中不可以有標點符號或是空格。 最好不要使用到VB中的關鍵字(例如Caption、Label)

13. Caption屬性 Caption屬性，是用來表示呈現在標籤外觀的文字，我們可以直接輸入所要的中文字或是英文字。

14. Font的屬性 Font屬性，是用來設定所呈現出來文字的大小以及樣式。 圖為不同的Font，所顯示出來的結果。

15. ForeColor屬性 ForeColor屬性，是用來設定文字的顏色。 BackColor屬性 BackColor屬性，是用來設定背景的顏色。

16. 圖為不同的ForeColor及BackColor所顯示出來的結果。

17. BackStyle屬性 BackStyle屬性，是用來設定背景的透明度，0為透明，1為不透明。 注意： 當屬性設定為『0-透明』時，BackColor屬性則失效，其內定為『1-不透明』。

18. BorderStyle屬性 BorderStyle屬性，是用來設定物件的框線樣式，它有『0-沒有框線』及『1-單線固定』兩種，內定為『1-單線固定』。 圖為『0-沒有框線』及『1-單線固定』比較。

19. Appearance屬性 Appearance屬性，是用來設定執行時物件是否要以立體的方式顯示。 圖為『立體』及『平面』的比較。

20. 文字方塊 文字方塊運用 一般而言『文字方塊』是運用於輸入方面，例如要讓使用者填入姓名、成績、住址、電話、金額…等相關資料。 注意： 上述的例子中，其後面的空白方框就是『文字方塊』的運用。

21. 在工具箱中，按下TextBox 物件。 文字方塊建立 文字方塊的建立，我們可以依據下列的步驟完成： 【步驟一】

22. 注意： 文字方塊的物件，表單中就會 我們也可以快點二次TextBox 產生一個新的文字方塊物件。 【步驟二】 在表單的任意空白處，拖曳出合適的方框。

23. 文字方塊屬性 『文字方塊』建立完成後，我們再針對該文字方塊設定相關的屬性。 Name屬性 我們在Name屬性中輸入→ChineseValue_txt文字。

24. 注意： 1.同一個表單中，每個物件的名稱都不可以相同，也就是說每個物件的名稱只能唯一，不可以有重複的情形。 2.名稱最好取有意義的名詞，該名詞最好與該物件的特性有關。 命名時可以針對該物件的特性為主，例如當作輸入姓名的文字方塊時，我們可以用『ChineseValue_txt』來表示，『ChineseValue』是用來表示該物件的用途，『txt』則是用來表示這個物件是屬於何種類型的物件。 3.命名時需注意下列幾點： 第一個字必須為英文字母。 名稱中可以包含數字或是底線( _ )。 名稱中不可以有標點符號或是空格。 最好不要使用到VB中的關鍵字(例如 Caption、Label)

25. Text屬性 Text屬性，是用來表示呈現在文字方塊外觀的文字，我們可以直接輸入所要的中文字或是英文字。 注意： 一般我們都會將該Text屬性內的文字清除成空白。

26. 數值與字串轉換 當我們利用文字方塊輸入資料後，可能會將所輸入的資料加以處理，並且顯示在其它的物件中，一般而言所輸入的資料型態若是相同(例如都是數字、或是都是文字)，我們就有可能會加以組合或是相加起來。 數字相加會將數字相加起來，會形成一個新的『數值字串』，然而文字相加則會將文字串接在一起，形成一個『字串』，例如成績資料中，國文分數為80分，英文分數為70分，我們可以將國文成績的 (80)與英文成績的(70)相加，那就可以顯示出總分為(150)，但是事實上卻不是如此，它卻會顯示成(8070)，如下所示：

27. 上機操作 【步驟一】 先在表單中建立如下的物件。

28. 【步驟二】 將物件屬性加以修改。 Name屬性 Label1 → Chi_lbl Label2 → Eng_lbl Label3 → Sum_lbl Label4 → Show_lbl Text1 → Chi_txt Text2 → Eng_txt Command1 → Run_btn Caption屬性 Label1 → 國文 Label2 → 英文 Label3 → 總分 Label4 → (清除為空白) Text屬性 Text1 → (清除為空白) Text2 → (清除為空白) Command1 → 計算

29. 【步驟三】 快點二次計算按鈕，撰寫程式碼。 程式碼如下： Private Sub Run_btn_Click() Show_lbl =Chi_txt + Eng_txt End Sub 【步驟四】 執行程式。 此時會發現執行結果是錯誤的。

30. 注意： 當我們在文字方塊中雖然是輸入數字，但是VB會將該數字認為是文字的型態，所以當Show_lbl = Chi_txt + Eng_txt時結果會成為： Show_lbl = 文字型態的80 + 文字型態的90，成為文字型態的8090的結果。 所以在VB中就提供Val及 Str函數，來達到數值與字串的轉換功能。

31. Val( )函數 Val( )函數，可以將資料轉換成數值型態，現在我們將上面的程式碼改成底下的方式，再一次執行程式，這時候結果就正確了。 Private Sub Run_btn_Click() 'Show_lbl.Caption = Val(Chi_txt.Text) + Val(Eng_txt.Text) '可以寫成 'Show_lbl = Val(Chi_txt) + Val(Eng_txt) 'Val()函數可以將其內的資料，轉換成數值型態 Show_lbl = Val(Chi_txt) + Val(Eng_txt) End Sub 此時執行結果是正確的。

32. Str( )函數 Str( )函數，可以將資料轉換成文字型態。 上機操作 【步驟一】 先在表單中建立如下的物件。

33. 【步驟二】 修改物件的屬性。 Name屬性 Label1 → IdName_lbl Label2 → Price_lbl Label3 → Pic_lbl Label4 → Show_lbl Text1 → IdName_txt Text2 → Price_txt Text3 → Pic_txt Command1 → Run_btn Caption屬性 Label1 → 品名 Label2 → 單價 Label3 → 數量 Label4 → (清除為空白) Command1 → 執行 Text屬性 Text1 → (清除為空白) Text2 → (清除為空白) Text3 → (清除為空白)

34. 【步驟三】 快點二次執行按鈕，撰寫程式碼。 程式碼如下： Private Sub Run_btn_Click() Show_lbl = IdName_txt + Val(Price_txt) * Val(Pic_txt) End Sub 【步驟四】 執行程式。

35. 當按下執行按鈕時，會出現『型態不符』的錯誤訊息。當按下執行按鈕時，會出現『型態不符』的錯誤訊息。

36. 【步驟五】 我們按下偵錯按鈕來檢視程式碼內容。 1.因為『文字型態』與『數值型態』無法相加在一起，形成一個新的結果，所以我們必須將『數值型態』利用Str( )函數轉換成『文字型態』。 2.我們也可以利用『&』符號將不同的型態串接在一起。敘述可以更改成： Show_lbl=IdName_txt & Val(Price_txt) * Val(Pic_txt)

37. 【步驟六】 程式碼修改成底下的樣式，重新執行一次。 Private Sub Run_btn_Click() 'Str( )函數，可以將其內的資料轉換成文字型態。 'Val()函數可以將其內的資料，轉換成數值型態 '也可以執行下列敘述 'Show_lbl=IdName_txt & Val(Price_txt) * Val(Pic_txt) Show_lbl = IdName_txt + Str(Val(Price_txt) * Val(Pic_txt)) End Sub

38. MsgBox 若我們想要操作者在執行某一些動作時，會出現一些提示或是警告的訊息，來防止操作者不當的動作，這時候就可以利用VB所提供的MsgBox( )函數來完成。 上機操作 【步驟一】 先在表單中建立如下的物件。

39. 【步驟二】 修改物件的屬性。 Name屬性 Command1 → Exit_btn Caption屬性 Command1 → 結束

40. 【步驟三】 快點二次執行按鈕，撰寫程式碼。 Private Sub exit_btn_Click() '宣告msg_val 為 VbMsgBoxResult 資料型態 '預備來接受MsgBox()所傳回來的值 Dim msg_val As VbMsgBoxResult msg_val = MsgBox("確定結束", vbYesNoCancel + vbExclamation, "結束") '判斷傳回值是否為 vbYes，如果為vbYes，則結束程式執行 If msg_val = vbYes Then End End Sub

41. 【步驟四】 執行程式，並按下結束按鈕，此時會出現確認方塊，當我們按下是的按鈕時，程式就會結束。 注意： MsgBox( )函數，會依據使用者所按下的按鈕，傳回相對的按鈕數值，我們可以依據所傳回的數值再加以運用。

42. MsgBox( )函數語法： MsgBox(Prompt，[Buttons As VbMsgBoxStyle = vbOkOnly]，[Title]，[HelpFile]，[Context]) As VbMsgBoxResult MsgBox( )函數，其內部參數說明如下： MsgBox(Prompt，[Buttons As VbMsgBoxStyle = vbOkOnly]，[Title]，[HelpFile]，[Context]) Prompt：提示文字。 Buttons As VbMsgBoxStyle = vbOkOnly，表示對話框所要所要出現的按鈕類型及提示圖示。 Title：對話方塊的標題文字。 [ ]中括弧所包含的參數，表示可以省略。 底下為MsgBox( )所使用的格式代碼。

43. 底下為MsgBox( )所使用的格式代碼。

44. 底下為MsgBox( )函數，當按下按鈕時所傳回的按鈕數值。

45. 其實我們也可以將格式碼中的數值，換成常數的表現方式，這樣一來我們也不必去記憶數值所代表的意義了。其實我們也可以將格式碼中的數值，換成常數的表現方式，這樣一來我們也不必去記憶數值所代表的意義了。

47. InputBox函數 當我們在執行程式時，有時候會要求操作者輸入一些資料，雖然可以利用文字方塊TextBox的方式來完成，但是比較費時間，VB有提供InputBox( )的函數，來簡化輸入的設計，當使用者輸入完成後，並且按下確定的按鈕，此時InputBox( )函數的傳回值，就是所輸入的值，該值是一個字串的型態。 InputBox( )函數語法： InputBox(Prompt，[Title]，[Default]，[XPos]，[YPos]，[HelpFile]，[Context]) As String InputBox( )函數中，其內部參數說明如下： InputBox(Prompt，[Title]，[Default]，[XPos]，[YPos]，[HelpFile]，[Context]) Prompt：提示文字。 Title：對話方塊的標題文字。 Default：預設值。 Xpos、Ypos：對話方塊距離視窗的相對應座標，其單位為Twip。 注意： [ ]中括弧所包含的參數，表示可以省略。

48. 上機操作 【步驟一】 先在表單中建立如下的物件。 【步驟二】 修改物件的屬性。 Name屬性 Label1 → Show_lbl Command1 → Run_btn Caption屬性 Label1 → (清除為空白) Command1 → 執行

49. 【步驟三】 快點二次執行按鈕，撰寫程式碼。 程式碼如下： Private Sub run_btn_Click() '宣告res_val 為字串型態變數 '用來接收InputBox( )函數，所傳回的內容 Dim res_val As String res_val = InputBox("請輸入您的姓名", "輸入") '將res_val 與 " 您好，歡迎光臨"字串 '一並輸出到 Show_lbl的物件上 show_lbl = res_val + " 您好，歡迎光臨" End Sub

50. 【步驟四】 執行程式。