Re: [VB6 ] 請問這兩支程式還可以這樣寫

看板Visual_Basic作者MiddleKen (洗雞雞洗雞雞雞雞用水洗)時間19年前 (2006/08/02 18:56)推噓1(1推 0噓 1→)

留言2則, 1人參與討論串2/2 (看更多)

※ 引述《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)