VB 6.0 講義 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
程式練習3: 會動的坦克車
步驟1. 依畫面擺上物件 ( 5個命令鈕)
步驟2. 修改相關屬性
類別 | 預設物件名稱 | 屬性欄 | 屬性說明 | 屬性值 |
form(表單) | form1 | name | 表單名稱 | frmtank |
caption | 表單標題 | tank | ||
CommandButton(命令鈕) | command1 | name | 命令鈕名稱 | cmdtank |
caption | 命令鈕內容 | 我是坦克車 | ||
enabled | 接受回應 | false | ||
CommandButton(命令鈕) | command2 | name | 命令鈕名稱 | cmdup |
caption | 命令鈕內容 | 上 | ||
default | 預設鈕 | true | ||
tooltiptext | 說明 | 向上一格 | ||
CommandButton(命令鈕) | command3 | name | 命令鈕名稱 | cmdleft |
caption | 命令鈕內容 | 左 | ||
tooltiptext | 命令鈕內容 | 向左一格 | ||
CommandButton(命令鈕) | command4 | name | 命令鈕名稱 | cmdright |
caption | 命令鈕內容 | 右 | ||
tooltiptext | 命令鈕內容 | 向右一格 | ||
CommandButton(命令鈕) | command5 | name | 命令鈕名稱 | cmddown |
caption | 命令鈕內容 | 下 | ||
tooltiptext | 命令鈕內容 | 向下一格 |
修改完後看一下畫面, 是否有所改變
步驟3. 撰寫程式碼
在 程式碼視窗中 , 寫入以下藍色的程式碼
Private Sub cmdup_Click()
cmdtank.top = cmdtank.top -100
End Sub
Private Sub cmddown_Click()
cmdtank.top = cmdtank.top + 100
End Sub
Private Sub cmdleft_Click()
cmdtank.left = cmdtank.left -100
End Sub
Private Sub cmdright_Click()
cmdtank.left = cmdtank.left + 100
End Sub
解釋1: a = a + 1 和 a = a - 1
解釋2: vb 的座標 1 pixel = 20 twip ( twip 為 vb 的預設單位 )
思考1: 坦克車如何不撞牆 ?