刷新按钮的制作 和 自动读取TXT的每一行

[windboy_y2k]

一、如何制作一个刷新按钮，主要功能是：重新调用FORM_LOAD，应该怎么写呢？

二、一个文本文件，格式大致为

A: AAAAA
BB: BBBBBBB
CCC: BBBBBBBB
DD: DDDDDD

我想依次读取每一行，然后把值赋对应的变量

因为只想要“：”后面的值，而且每一行的字符数不确定，对我这个初学者来说好困难，向高手请教，谢谢~~！！

[windboy_y2k]

[Quote=引用 1 楼 chenjl1031 的回复:]
1、

VBScript codeprivate sub cmdRefresh()
call form_load
end sub


2、用OPEN打开文本文件，按行取出来=strLine，然后定义一个数组arr()，用arr()=split(strLine,":")，arr(1)就是你要的
[/Quote]


1、因为在form_load下面，定义了TmpDir1、TmpFile1的控件，所以刷新的时候会提示“已经有一个名为TmpDir1的控件”，所以在 call form_load之前，是不是应该先退出所有的功能？该如何写呢？？

[cbm6666]

'看你这个 TmpDir1、TmpFile1 的变量名称, 有极大的可能是用我写的代码吧? 呵呵....

'再帮你一把吧, 只是我觉得你的Form_Load再来一次有啥意义?

'添加 Command1

Private WithEvents TmpDir1 As DirListBox
Private WithEvents TmpFile1 As FileListBox
Dim aa$
Private Sub Form_Load()
Dim i&, ctl As Control
For Each ctl In Me.Controls
aa = aa & Me.Controls(i).Name & " "
i = i + 1
Next
If InStr(aa, "TmpDir1") = 0 Then Set TmpDir1 = Me.Controls.Add("VB.DirListBox", "TmpDir1")
If InStr(aa, "TmpFile1") = 0 Then Set TmpFile1 = Me.Controls.Add("VB.FileListBox", "TmpFile1")
End Sub

Private Sub Command1_Click()
Form_Load
End Sub


'*********************************************
'添加 Command1
'c:\test.txt就是你上面那四排的内容

Dim aa$, s
Private Sub Command1_Click()
Open "c:\test.txt" For Input As #1
While Not EOF(1)
Line Input #1, aa
If InStr(aa, ":") > 0 Then
s = Split(aa, ":")
Print Trim(s(1))
End If
Wend
Close #1
End Sub

[cbm6666]

用 Me.Refresh 不能达到你想要的效果吗? 如此就不用那么麻烦啦

[windboy_y2k]

[Quote=引用 3 楼 cbm666 的回复:]
'看你这个 TmpDir1、TmpFile1 的变量名称, 有极大的可能是用我写的代码吧? 呵呵....

'再帮你一把吧, 只是我觉得你的Form_Load再来一次有啥意义?

'添加 Command1

Private WithEvents TmpDir1 As DirListBox
Private WithEvents TmpFile1 As FileListBox
Dim aa$
Private Sub Form_Load()
Dim i&, ctl As Control
For Each ctl In Me.Controls
aa = aa & Me.Controls(i).Name & " "
i…
[/Quote]

再次麻烦您了~~的确是您写的代码，呵呵~~
目前正在用制作一个程序的方法学习VB，刚刚开始。
异常感谢您的帮助，谢谢~~！！

[东方之珠]

1、

private sub cmdRefresh()
        call form_load
end sub

2、用OPEN打开文本文件，按行取出来=strLine，然后定义一个数组arr()，用arr()=split(strLine,":")，arr(1)就是你要的