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

windboy_y2k 2008-04-03 12:06:47
一、如何制作一个刷新按钮,主要功能是:重新调用FORM_LOAD,应该怎么写呢?

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

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

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

因为只想要“:”后面的值,而且每一行的字符数不确定,对我这个初学者来说好困难,向高手请教,谢谢~~!!
...全文
63 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
东方之珠 2008-04-03
1、
private sub cmdRefresh()
call form_load
end sub

2、用OPEN打开文本文件,按行取出来=strLine,然后定义一个数组arr(),用arr()=split(strLine,":"),arr(1)就是你要的
回复
windboy_y2k 2008-04-03
[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,刚刚开始。
异常感谢您的帮助,谢谢~~!!
回复
cbm6666 2008-04-03
用 Me.Refresh 不能达到你想要的效果吗? 如此就不用那么麻烦啦
回复
cbm6666 2008-04-03
'看你这个 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


回复
windboy_y2k 2008-04-03
[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之前,是不是应该先退出所有的功能?该如何写呢??
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-04-03 12:06
社区公告
暂无公告