VB6 用 Open File For Binary As #1 和RichTextBox1.Text = Input(LOF(1), 1)读入文件，怎样用进度条？
VB6 用 Open File For Binary As #1 和RichTextBox1.Text = Input(LOF(1), 1)读入文件，怎样用进度条？
日期：2014-08-04 11:27:50 人气：1
你的txt文件有多大啊？？？
添加进度条控件方法：
工程-部件-Microsoft WIndows Common Controls 5.0
添加后，选择左侧的ProgressBar控件，添加到窗体，添加Timer控件，Interval为1000或者更小你自己根据情况改，
代码部分：
获取 txt文件的
dim aa as long
aa=len(RichTextBox1.Text)
Private Sub Timer1_Timer()
If ProgressBar1.Value <