请问这个vb程序如何修改?
来源:百度知道 编辑:UC知道 时间:2024/05/16 07:56:48
Private Sub Timer1_Timer()
Randomize
Text1.Text = Int(Rnd * 100)
End Sub
-----------------------------------------------
Private Sub Timer2_Timer()
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要写入的文本内容
strFileName = "e:\w.txt"
lngHandle = FreeFile() '取得句柄
'准备要写入的内容
strWrite = Text1.Text
Open strFileName For Output As lngHandle '打开文件
Print #lngHandle, strWrite '写入文本
Close lngHandle '关闭文件
End Sub
————————————————————————----------------
我在两个时间触发器中,写了这两段代码。我希望Timer中的代码能在设定的时间间隔内,将Text中的内容写入文档中。可是我运行程序只能写入一个数。另外我还希望设定一个命令按钮,Click时才开始执行Private Sub Timer2_Timer()中的代码。请问该如何修改?
我设置了一个Text文本,在文本中0.1秒产生一个随机数。我0.2秒记录一次文本中的内容,记录到一定次数后,停止记录。将记录的内容保存到一个建立好的文档中。
Randomize
Text1.Text = Int(Rnd * 100)
End Sub
-----------------------------------------------
Private Sub Timer2_Timer()
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要写入的文本内容
strFileName = "e:\w.txt"
lngHandle = FreeFile() '取得句柄
'准备要写入的内容
strWrite = Text1.Text
Open strFileName For Output As lngHandle '打开文件
Print #lngHandle, strWrite '写入文本
Close lngHandle '关闭文件
End Sub
————————————————————————----------------
我在两个时间触发器中,写了这两段代码。我希望Timer中的代码能在设定的时间间隔内,将Text中的内容写入文档中。可是我运行程序只能写入一个数。另外我还希望设定一个命令按钮,Click时才开始执行Private Sub Timer2_Timer()中的代码。请问该如何修改?
我设置了一个Text文本,在文本中0.1秒产生一个随机数。我0.2秒记录一次文本中的内容,记录到一定次数后,停止记录。将记录的内容保存到一个建立好的文档中。
你第一个time 是获取随机数的,不知道你设的时间间隔是多少。
//另外我还希望设定一个命令按钮,Click时才开始执行Private Sub Timer2_Timer()中的代码。请问该如何修改?
如果是这样你就没必要 用Time2 了
你说说你的目的想做什么,我帮你分析分析步骤。
// 为什么要 0.1秒生成一个? 你说你想要多少直接用个
for 1 To X
' 一次生成你想要的数量不就是了,然后保存的文本中
next
然后后面写入到 文件中就是了.