本章投影片僅供本書上課教師使用，非經同意請勿拷貝或轉載

Presentation on theme: "本章投影片僅供本書上課教師使用，非經同意請勿拷貝或轉載"— Presentation transcript:

1 本章投影片僅供本書上課教師使用，非經同意請勿拷貝或轉載
第四章 輸入介面設計 本章投影片僅供本書上課教師使用，非經同意請勿拷貝或轉載

2 4-1 TextBox文字方塊 一、TextBox控制項常用的屬性

3

4 【注意】 活用MultiLine、WordWrap 和 ScrollBars 屬性 
【注意】 活用MultiLine、WordWrap 和 ScrollBars 屬性  MultiLine＝False，使得超出文字方塊寬度的 資料無法顯示。  MultiLine＝True，可調整文字方塊的上下高度 來顯示多行文字。  MultiLine＝True 且 WordWrap＝True時，超過 文字方塊控制項寬度的資料自動移到下一行繼續 顯示。  MultiLine＝True 且WordWrap＝False時，則 需要進一步設定ScrollBars屬性，使其出現垂直 或水平捲動軸，才能操控範圍。

5 二、字串與數值的轉換函式 文字方塊 Text 屬性的資料是屬字串資料型別。
欲將 Text 屬性中的資料取出作數值運算  加法時，將 + 加 號視為字串合併運算，發生錯誤。  減法、乘法、除法，取出的 Text 屬性值會自動 轉成數值，不發生錯誤。 建議 Text 屬性的資料做四則運算  先做字串轉數值後再做運算，以免發生錯誤。 VB 提供 Val() 函式將字串轉成數值。語法： Val(str) 若 Text 屬性值的資料含有數字和文字  Val() 函式 只將前面是數字部份轉換成數值

6 【例】 Val ("123") →123 Val ("45ABC") →45 Val ("XY4.0") →0 【例】若TextBox1.Text= “22 ”和TextBox2.Text=“11”  TextBox3.Text = TextBox1.Text + TextBox2.Text 結果：2211  TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text) 結果：33  TextBox3.Text = TextBox1.Text – TextBox2.Text 結果：11  TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text) 結果：11

7  TextBox3.Text = TextBox1.Text * TextBox2.Text 結果：242
 TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text) 結果：242  TextBox3.Text = TextBox1.Text / TextBox2.Text 結果：2  TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text) 結果：2

8 三、TextBox控制項常用的方法 1. Clear()方法
TextBox1.Clear( ) 或 TextBox1.Text = ""

9 三、TextBox 控制項常用的方法 表單和控制項除具有屬性外還有能執行的一些特定功能，稱為「方法」。 方法只能在程式執行階段才能呼叫使用。
1. Clear()方法 將文字方塊的顯示內容清成空白。 如將 TextBox1 文字方塊內顯示的文字清除 寫法： TextBox1.Clear( ) 或 TextBox1.Text = ""

10 2. Focus()方法 設定控制項為駐停焦點，也就是成為作用物件。 如將TextBox1 文字方塊設為目前駐停焦點，寫法：
TextBox1.Focus( ) 一個控制項擁有TabIndex、TabStop屬性，就可 設為駐停焦點。 在程式中透過Focus()方法來指定某一控制項，成為 表單目前的駐停焦點。 在程式執行間，不須使用者按 鍵，可直接指定 某控制項成為作用物件。

11 表單中若有多個控制項 第一個建立的控制項 TabIndex 屬性值為 0 第二個為1，依此類推。
被指定駐停焦點控制項的 Visible 與 Enabled 屬性值皆設為「True」，此方法才有效。

12

13 ' FileName : us2nt.sln 01 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load lblRate.Text = "32.5" lblNT.Text = "" txtUs.TabIndex = 0 05 End Sub 06 ' 07 Private Sub btnChange_Click(ByVal sender As System. Object, ByVal e As System.EventArgs) Handles btnChange. Click lblNT.Text = Val(lblRate.Text) * Val(txtUs.Text) 09 End Sub 10 '

14 11 Private Sub btnCls_Click(ByVal sender As System
11 Private Sub btnCls_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCls.Click lblNT.Text = "" txtUs.Clear() txtUs.Focus() 15 End Sub

15 四、TextBox 控制項的 TextChanged事件
程式執行階段，當文字方塊的 Text 屬性內 的資料有異動時，馬上觸動該文字方塊的TextChanged事件。 若希望文字方塊有異動，表單上相關控制項的資料馬上跟著文字方塊的內容異動  可免去按鈕才知道結果。

16

17

18 FileName : circle.sln 01 Private Sub Form1_Load(ByVal sender …..) Handles MyBase.Load lblArea.Text = "" txtPassword.MaxLength = 3 txtPassword.PasswordChar = "?" txtPassword.TabIndex = 0 txtR.ReadOnly = True 07 End Sub 08 ' 09 Private Sub btnCheck_Click(ByVal …..) Handles btnCheck.Click If txtPassword.Text = "abc" Then txtR.ReadOnly = False txtR.Focus() End If 14 End Sub 15 ' 16 Private Sub txtR_TextChanged(ByVal …..) Handles txtR.TextChanged lblArea.Text = 3.14 * Val(txtR.Text) ^ 2 18 End Sub

19 4-2 格式化輸出 一、Space函式 Space函式可以在目前游標處插入指定數目的空白字串，在程式中可利用該函式調整文字位置使其上下對齊。語法如下： 【例】在TextBox1文字方塊控制項上面顯示品名 (iPhone)和單價，品名和單價之間加上兩個 空白字元。 TextBox1.Text = "iPhone：" & Space(2) & "9000元"

20 4-2 格式化輸出 一、Space函式 [例] TextBox1.Text = "iPhone：" & Space(2) & "9000元"
使用時機 想讓資料在表單上排列整齊，需用  格式化函式才能對輸出資料格式化。 一、Space函式 可在目前游標處插入指定數目空白字串 在程式中可調整文字位置使其上下對齊。 語法： Space(n) [例] TextBox1.Text = "iPhone：" & Space(2) & "9000元"

21 二、vbNewLine、vbCrLf、vbTab常數
Chr函式可將數值轉成對應的ASCII 碼字元。 如Chr(65)的值為 "A"。 Chr(9)字元就相當於鍵盤的 鍵，其後文字 跳到下一個定位點位置。 定位點和定位點間可容納8個字元，如果字串 長度超過就會多佔一個定位點。 文字如要換行要 用Chr(13) + Chr(10) 兩個字元 組成換行符號。

22 系統定義vbNewLine和vbCrLf常數來表示 Chr(13) + Chr(10)換行符號。
【例】 TextBox1.Text=“== 單價表 ==” & vbCrLf & “iPhone4” & vbTab & “9000元” 會顯示成：（  代表控白字元） == 單價表 == iPhone49000元

23 三、Format函式 Format函式可將輸出資料以指定格式輸出， 使得輸出資料能對齊以方便閱讀。  運算式可為數值或字串運算式。  fmt參數若省略時，會將數值轉換成字串， 並將正數前的空白去除。

24  數字的預設格式如下表：

25  常用Format函式的數字自訂格式如下表：

26  常用Format 函式的時間格式： Now() 函式用來取得目前日期與時間。 顯示結果會因「控制台」中「地區及語言」 格式設定不同而不同。 本書採的日期及時間的格式如下： (以2010年3月21日上年9點20分48秒為例) 簡短日期 → 2010/03/21 完整日期 → 2010年3月21日 簡短時間 → 上午09:20 完整時間 → 上午:09:20:48

27

28

29 常用Format函式的日期與時間自訂格式字元如下表：

30

31 【例】設日期為#3/17/2010 5:21:50 PM#，然後使用各種Format函式格式，來觀察執行結果。
Dim day As Date = #3/17/2010 5:21:50 PM# txtShow.Text = Format(day, "h:m:s")  值為"5:21:50" txtShow.Text = Format(day, "hh:mm:ss tt")  值為"05:21:50 下午" txtShow.Text = Format(day, "HH:mm:ss") 值為"17:21:50" txtShow.Text = Format(day, "yyyy MMM d,dddd")  值為"2010 三月17,星期三" txtShow.Text = Format(day, "MM/d/yy")  值為"03/17/10" txtShow.Text = Format(day, "yy-MMMM-d") 值為"10-三月-17" txtShow.Text = Format(day, "M/d/yyyy HH:mm") 值為"3/17/ :21"

32

33 【上機】

34 ' FileName : member.sln 01 Private Sub Form1_Load(ByVal …. ) Handles MyBase.Load txtData.TabStop = False txtData.Text = Space(6) & "VB俱樂部會員名冊" & Space(4) & Format(Now(), "M-d-yyyy h:m:s") & vbCrLf & vbCrLf txtData.Text &= "姓名" & vbTab & "電話" & vbTab & vbTab & "生日" & vbTab & vbTab & "消費金額" & vbCrLf txtData.Text &= "------" & vbTab & "------" & vbTab & vbTab & "------" & vbTab & vbTab & " " & vbCrLf txtData.Text &= "楚留香" & vbTab & "(02) " & vbTab & _ Format(#3/17/1982#, "d") & vbTab & Format( , "$ ") & vbCrLf txtData.Text &= "張無忌" & vbTab & "(02) " & vbTab & _ Format(#11/6/1980#, "d") & vbTab & Format(129510, "$ ") 08 End Sub

35 4-3 InputBox函式 InputBox函式會顯示輸入對話方塊，使用者只要 在文字方塊內輸入資料，再按 <[確定> 鈕，且所 輸入資料會以字串型別放入指定的字串變數。 語法：

36 InputBox 函式的引數說明： 1. 字串變數 呼叫 InputBox 函式時會出現一個對話方塊， 輸入文字後 按 <[確定> 鈕，文字會傳給等號左邊的字串變數。 按 <取消> 鈕，傳回值是空字串("")。 2. 提示訊息引數 用來提醒使用者輸入資料的內容或格式， 本引數不可省略。若沒有提示訊息必須 "“ 加入表示。

37 3. [ ] 引數 中括號內引數可省略，但引數間的逗號需保留。
4. 標題引數 為對話方塊標題文字，屬選擇性引數，如省略 以專案名稱當做標題文字。 5. 預設值引數 呼叫 InputBox 函式時，文字方塊中預設的文字 資料。 6. Xpos,Ypos引數 設定對話方塊在螢幕的座標，單位為Pixel (像素)。 若省略此引數，對話方塊預設在螢幕中央偏上方 1/3處。

38

39

40 ' FileName : welcome.sln 01 Private Sub Form1_Load(ByVal … ) Handles MyBase.Load Dim user As String user = InputBox("請輸入姓名：", "姓名") lblWelcome.Text = "歡迎" & user & "使用本軟體!" 05 End Sub

41 4-4 MsgBox 函式與 MsgBox 敘述 MsgBox函式與MsgBox敘述用法一樣。

42 一、MsgBox函式的語法 當呼叫 MsgBox 函式時會出現指定的指令 按鈕，使用者只要按下按鈕後，該鈕 代碼會存入傳回值中。

43 二、MsgBox 函式的格式碼

44 「警示圖示代碼」的相關內容如下表：

45 其他代碼如下表：

46 1. MsgBox("是否結束程式?", 4, "結束") 2. MsgBox("是否結束程式?", MsgBoxStyle.YesNo, "結束")

47 1. MsgBox("是否結束程式?", 52, "結束") ' =52 2. MsgBox("是否結束程式?", MsgBoxStyle.YesNo Or _ MsgBoxStyle.Exclamation, "結束") 3. MsgBox("是否結束程式?", MsgBoxStyle.YesNo + _

48 三、MsgBox函式的傳回值

49 【例】以訊息方塊詢問是否結束程式，若使用者按 [是] 鈕就結束程式，程式碼有兩種寫法：
另一種寫法：

50

51 【問題分析】 1. 使用InputBox函式詢問密碼。 2. 密碼錯誤時，用MsgBox敘述顯示錯誤訊息。 3. 華式溫度 = 9/5 x攝氏溫度+32。 【上機】 1. 專案名稱命名為『password』。 2. 在表單內，建立如下圖所示之控制項：

52 ' FileName : password.sln
01 Private Sub Form1_Load(ByVal ….) Handles MyBase.Load lblF.Text = "" Dim password As String password = InputBox("請輸入密碼：", "密碼") If password <> "123" Then MsgBox("密碼錯誤!程式將結束!!", MsgBoxStyle.OkOnly Or MsgBoxStyle.Exclamation, "錯誤") End End If 09 End Sub 10 ' 11 Private Sub txtC_TextChanged(ByVal ….) Handles txtC.TextChanged Dim c As Single Dim f As Single c = Val(txtC.Text) f = c * 9 / lblF.Text = Format(f, "###.00") 17 End Sub