作者qtw (猴王~)
看板Visual_Basic
标题Re: [VB6 ] 请问如何抓取系统时间又将其记录起来?
时间Mon Sep 18 14:08:52 2006
※ 引述《qtw (猴王~)》之铭言:
: 请原谅这是一个初学者中的初学者问的问题...Orz
: 以简单的例子来讲
: 设定两个Command和一个List
: 当按下Command 1之後会把按下的时间纪录下来
: 然後按下Command 2可以在List 1列出之前按下Command 1的时间
: 这个问题困扰了我好久...请大大帮我解答吧...<= =>
我依Bear大的程式稍作修改之後,已经得到我所想要的答案了
谢谢两位大大的解答
在这边把我写出的程式给大家看看
如果还有能够修正的地方请多指教^^"
Private Sub Command1_Click()
If FreeFile = 1 Then
Open "c:\3.txt" For Append As #1
End If
Write #1, Text1
Close #1
End Sub
Private Sub Command2_Click()
List1.Clear
Open "c:\3.txt" For Input As #2
Do While Not EOF(2)
Input #2, p1
List1.AddItem p1
Loop
Close #2
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
Text1 = ""
End Sub
Private Sub Timer1_Timer()
Text1.Text = Now
End Sub
--
拒看智缺与脑残新闻!!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.127.133.200
1F:推 fumizuki:如果 FreeFile 不为1的时候就发生错误 09/18 20:10