如何用VB做自动文本阅读器

基本要求：
用通用对话框的ShowOpen功能取得要观看的文件名，然后编程实现如下功能：
（1） 能够在客户区自动显示文件的内容。
（2） 可以调整自动滚屏的速度。
（3） 支持显示参数的设定(字体诸属性及文字色彩)。
（4） 可以随时停止滚动和继续滚动(通过点击标签)。
（5） 内容全部显出后自动停止滚动。
（6） 在文本滚动时诸按钮自动隐去，暂停或停止滚动时按钮出现以便进行设置。
本题是为了掌握标签和按钮的应用，设计时只可使用一个定时器，一个通用对话框控件，一个标签控件和几个按钮。不得使用文本框等其它高级控件。
3.创新要求：
在基本要求达到后，进行创新设计，要求给程序增加倒回功能，就是重新从开始处显示文件内容。还可以进行其它创新设计，例如:给程序加上菜单和快捷键，支持文本显示时的背景图片等功能。
三、设计方法和基本原理：
1.问题描述：
程序界面可以参考右面的图(图示为文本滚动暂停状态，当文本自行移动时上面的按钮不出现)，本题的文本内容用标签（LABEL）来显示，参数设置和加减速用命令按钮来实现，文字的自动滚屏可以用定时器来实现，打开文件和显示字体及前景色的设置可用通用对话框。
2.问题的解决方案：
（1）设计程序界面。
因为用的是基本控件，界面设计没有什么难度，照样子拼就可以了，注意标签要设置为控件数组。
（2）编写代码，包括事件处理过程和功能函数，还有必要的声明。
变量声明部分：
声明本程序所需要的变量和数组，主要是文本文件的内容还有显示状态。
事件处理包括下面的主要事件：
Form_Load()
作一些初始化的工作。主要是设置初始滚动速度。
CommandX_Click()
处理各个命令。
Label1_Click(Index As Integer)
处理暂停和恢复滚动。
Timer1_Timer()
定时器事件，让文本按一定的速度自动滚屏。
四、主要技术问题的描述：
本题中的难点并不在于界面设计，只需要放一个标签和若干个按钮就可以了。核心问题在于文本的读取和文字的自动显示。文件部分的内容因为没有讲过，此处给出将文本文件的内容读入内存中的字符串数组的部分代码：
Dim txt() As String,Lines As Integer
lines = 0 ‘ 文件行数总计
Open infile For Input As #1 ‘ infile 变量中存放的是文本文件的名字
While Not EOF(1)
ReDim Preserve txt(lines + 1) ‘开辟空间以存放一行内容
lines = lines + 1
Line Input #1, txt(lines) ‘读入一行并放入数组
Wend
Close #1 ‘关闭文件
一旦数组中有了文件的内容，则可以将其内容赋给标签的Caption属性，内容就可以显示出来了，在设计的时候只放一个标签，运行时根据需要产生其它的标签，自动滚屏可以在TIMER事件中更改标签的TOP属性来做到。为了让不同长度的文本都能全部显示，还需要设置标签的有关属性。
按钮的自动消失和显现可在使用其Visible属性来控制。

还有一天了，会的人帮帮忙吧！

你的问题没说明白，加百度HI我给你做

你这个不是都描述得这么清楚了么？有啥问题？