VB 6.0 講義 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
程式練習5: 計算匯率
步驟1. 依畫面擺上物件 (2個 文字框, 2 個標籤, 1個命令鈕)
步驟2. 修改相關屬性
| 類別 | 預設物件名稱 | 屬性欄 | 屬性說明 | 屬性值 |
| form(表單) | form1 | name | 表單名稱 | frmcalculator |
| caption | 表單標題 | 計算匯率 | ||
| label(標籤) | label1 | name | 標籤名稱 | lbl1 |
| caption | 標籤外觀 | 美金 匯率 台幣 | ||
| label(標籤) | label2 | name | 標籤名稱 | lblresult |
| caption | 標籤外觀 | 清為空白 | ||
| borderstyle | 標籤外框 | 1 | ||
| textbox(文字框) | text1 | name | 文字框名稱 | txtno1 |
| text | 文字框內容 | 清為空白 | ||
| textbox(文字框) | text2 | name | 文字框名稱 | txtno2 |
| text | 文字框內容 | 清為空白 | ||
| CommandButton(命令鈕) | command1 | name | 文字框名稱 | cmdequal |
| caption | 文字框內容 | = |
修改完後看一下畫面, 是否有所改變
步驟3. 撰寫程式碼
在 命令鈕 cmdequal 上雙按 , 寫入以下藍色的程式碼
Private Sub cmdequal_Click()
lblresult.Caption = Val(txtno1.Text) *
Val(txtno2.Text)
End Sub
思考1: 能否改成不用命令鈕?
Answer: 將命令鈕刪除後, 找出 txtno1 和 txtno2 的 change 事件, 貼入原來藍色的程式碼
Private Sub Txtno1_Change()
lblresult.Caption = Val(txtno1.Text) * Val(txtno2.Text)
End Sub
Private Sub Txtno2_Change()
lblresult.Caption = Val(txtno1.Text) * Val(txtno2.Text)
End Sub
思考2: 能否改成雙向? ( 台幣 -> 美金 , 美金 -> 台幣)