作者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