作者MiddleKen (洗雞雞洗雞雞 雞雞用水洗)
看板Visual_Basic
標題Re: [VB6 ] 請問這兩支程式還可以這樣寫
時間Wed Aug 2 19:11:09 2006
※ 引述《mphstw (pop)》之銘言：
: 一個是數字正向 反向的
: 一個是萬年曆
: http://0rz.net/3e1Hg
: 3q
第一個。
有改的地方用藍底
'===說明===
'修改部分：
'1. 把五個Textbox為同名(txtValue)，它們會變成控制項陣列(索引值在Index屬性設定)
' 我分別改成txtValue(0), (1), (2), (3), (4)
'2. 交換的動作都一樣...orz...集合成 Sub GoSwap
'3. 交換的動作很正確，可惜重複太多，故集合成 Sub Swap
'==========
Dim Direct As Boolean
'以下是新增的兩個Sub
Private Sub Swap(ByRef a As TextBox, ByRef b As TextBox)
Dim c
c = a
a = b
b = c
End Sub
'註：這裡利用了TextBox的預設性質為.Text的特性，嚴謹一點要寫 c = a.Text
Private Sub DoSwap()
'我說...第三格[txtValue(2)]根本就不會動嘛，不是嗎
Swap txtValue(0), txtValue(4)
Swap txtValue(1), txtValue(3)
End Sub
'事件程序
Private Sub cmdBackward_Click()
Dim temp As Integer
If Direct Then
DoSwap '交換的過程請看上面新增的兩個Sub
Direct = False
lblDirect.Caption = "反向"
End If
End Sub
Private Sub cmdclean_Click()
For i = 0 To 4 '這裡可不可以用For Each?我試不出來
txtValue(i).Text = 0
Next
End Sub
Private Sub cmdEnd_Click()
End
End Sub
Private Sub cmdForward_Click()
Dim temp As Integer
If Not Direct Then
DoSwap '交換的過程請看上面新增的兩個Sub
Direct = True
lblDirect.Caption = "正向"
End If
End Sub
Private Sub Form_Load()
Direct = True
End Sub
--
「那個，社長，請問一下，你是怎麼從什麼都沒有的天上降落下來的呢？」
「這麼簡單的事，每一個人都做得到。
「先把身體弄熱，變成液體，
「接著變成氣體，
「然後上升到一萬公尺的高空中，
「由於上空冰冷的空氣，很快就會冷凍結晶。然後就掉到地面了。很簡單吧？」
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.131.139.162
※ 編輯: MiddleKen 來自: 220.131.139.162 (08/02 19:11)
1F：推 mphstw:謝謝嚕 不過新手 還沒學到研究看看 08/03 00:29
2F：→ mphstw:不過日曆斯呼沒有更好的寫法 ~"~ 有夠多的 08/03 00:29