VB 6.0 講義 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
程式練習4: 會更換順序的標籤
步驟1. 依畫面擺上物件 (4 個標籤, 1個命令鈕)
步驟2. 修改相關屬性
| 類別 | 預設物件名稱 | 屬性欄 | 屬性說明 | 屬性值 |
| form(表單) | form1 | name | 表單名稱 | frmchange |
| caption | 表單標題 | 乘法器 | ||
| label(標籤) | label1 | name | 標籤名稱 | lbl1 |
| caption | 標籤外觀 | 字串1 | ||
| label(標籤) | label2 | name | 標籤名稱 | lbl2 |
| caption | 標籤外觀 | 字串2 | ||
| label(標籤) | label3 | name | 標籤名稱 | lbltxt1 |
| caption | 標籤外觀 | 英俊 | ||
| borderstyle | 標籤外框 | 1 | ||
| label(標籤) | label4 | name | 標籤名稱 | lbltxt2 |
| caption | 標籤外觀 | 聰明 | ||
| borderstyle | 標籤外觀 | 1 | ||
| CommandButton(命令鈕) | command1 | name | 文字框名稱 | cmdchange |
| caption | 文字框內容 | 交換 |
修改完後看一下畫面, 是否有所改變
步驟3. 撰寫程式碼
在 命令鈕 cmdchange 上雙按 , 寫入以下藍色的程式碼
Private Sub cmdchange_Click()
lbltxt1.caption = lbltxt2.caption
lbltxt2.caption = lbltxt1.caption
End Sub
思考1: 2個標籤會互換嗎?
answer: 將程式碼改成以下c = lbltxt1.caption
lbltxt1.caption = lbltxt2.caption
lbltxt2.caption = c
思考2: 能否做到3個互換?
思考3: 標籤的屬性能否在執行後才做修改?