文本阅器.docVIP

河北工业大学计算机软件技术基础（VB） 课 程 设 计 任 务 书 本题难度级别：B 实现基本要求代码: 约150行 主要涉及: 基本控件及算法 一、设计题目：文本阅读器（出题人：曹新国） 二、目的与要求 1.目的 培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的标准控件进行设计。 2.基本要求 打开一个文本文件并显示，为了阅读者的方便，可以手工翻页观看，也可以设置成自动滚屏显示文件内容，就像有的电子书一样。 显示文本的各种显示属性和滚动速度可调。详细要求如下： 能够打开任意一个文本文件并逐行显示文件内容。 可以调整自动滚屏的速度(用小键盘上的“╋”和“━”键)。 支持显示特性的设置(字体诸属性及文字前景色彩)。 可以随时停止滚动和继续滚动(通过单击鼠标或者按空格键)。 在文本滚动时诸按钮自动隐去，暂停或停止滚动时按钮出现以便进行设置。 内容全部显出后自动停止滚动。 支持显示的背景设置，可以设置成任意色彩(见题图)。 支持手工翻页（建议用PageUp上翻，PageDown下翻，Home到最开始，End到最后） 注：本题主要是为了掌握标签和按钮的应用，进行基本要求的设计时只可使用一个定时器，一个通用对话框控件，一个标签控件数组和几个按钮。不得使用文本框等其它高级控件。 3.创新要求 在基本要求达到后，进行创新设计，创新方向提示如下： 给程序增加鼠标直拖功能(即用手形光标可以直接拖动当前显示位置，可以参见著名PDF阅读器“Adobe Acrobat Reader”的相应用法，本程序只要求在垂直方向上拖动)。 给程序加上显示文本时自动播放背景音乐的功能。 支持文本显示时的背景图片的平铺显示功能（对小图片而言，设计素材中有提供）。 窗口大小调整后自动适应新的窗口进行显示。 实现直接将文件拖入程序窗口自动打开并显示。 将文件中较长的行进行分行处理，在字体设置较大时也能全部显示文件内容。 其它创新(有一定难度，实现代码在30行以上)。 三、设计方法和基本原理 1.问题描述 程序界面可以参考右面的图(图示为文本滚动暂停状态，当文本自行移动时上面的按钮不出现)，本题的文本内容用标签控件数组（Label()）来显示，参数设置和加减速用键盘来实现，文字的自动滚屏可以用定时器来实现，打开文件和显示字体及前景色的设置可用通用对话框。 2.问题的解决方案 ①设计程序界面 因为用的是基本控件，界面设计没有什么难度，照样子拼就可以了，注意标签要设置为控件数组。 ②编写代码 包括事件处理过程和功能函数，还有必要的声明。变量声明部分声明本程序所需要的变量和数组，主要是存放文本文件的内容数组还有控制显示所需的各个变量。 事件处理包括下面的主要事件： Form_Load() 作一些初始化的工作。主要是设置初始滚动速度。 Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 处理各种快捷键，包括：空格键（键码32），上、下翻页键（33和34）小键盘加号和减号键(107、109)，还有Home和End键(vbKeyHome、vbKeyEnd)。 说明：处理键盘按键时建议使用VB的常量定义，如vbKeyA,vbKeyF1等，见MSDN。 CommandX_Click() 处理各个命令。 Label1_Click(Index As Integer) 处理暂停和恢复滚动（用鼠标单击控制走停，作用同空格键）。 Timer1_Timer() 定时器事件，让文本按一定的速度自动滚屏。 四、主要技术问题的描述 本题中的难点并不在于界面设计，只需要放一个标签和若干个按钮就可以了。核心问题在于文本的读取和文字的自动显示。 1.文本文件的读入 Dim txt() As String,lines As Integerlines = 0 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属性来