vb课程设-文本阅读器设计报告

《vb课程设-文本阅读器设计报告》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、文本阅读器课程设计报告（VB）编号：08文本阅读器设计报告学院材料学院班级材料074学号072023姓名宁延明成绩一、设计思路1.要达到的目的1能够打开任意一个文本文件并逐行显示文件内容。2可以调整自动滚屏的速度(用小键盘上的“╋”和“━”键)。3支持显示特性的设置(字体诸属性及文字前景色彩)。4可以随时停止滚动和继续滚动(通过单击鼠标或者按空格键)。5在文本滚动时诸按钮自动隐去，暂停或停止滚动时按钮出现以便进行设置。6内容全部显出后自动停止滚动。7支持显示的背景设置，可以设置成任意色彩(见题图)。8支持手工翻页（建议用PageUp上翻，PageDown下翻，Home到最

2、开始，End到最后）2.关键问题的解决程序界面设计：根据所给的界面设计。代码的编写：主要是利用文件的SHOWOPEN属性打开文件，而后利用通用对话框进行字体和背景的设置，再利用TIMER事件的一些属性实现文本的自动滚动与停止。CommandX_Click()打开文件，下载动态标签，更改字体和背景等命令SubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)设计快捷键，包括：空格键（键码32），上、下翻页键（33和34）小键盘加号和减号键(107、109)，还有Home和End键(vbKeyHome、vbKeyEnd)。Label1_

3、Click(IndexAsInteger)处理暂停和恢复滚动（用鼠标单击控制走停，作用同空格键）。Timer1_Timer()定时器事件，让标签按一定的速度自动滚屏，标签caption属性的赋给和变换。二、模块之间的调用关系，或程序流程图调用调用调用调用完成要求通用对话框Timer事件字体、背景设置Enabled属性等第5页共5页文本阅读器课程设计报告（VB）编号：08三、部分程序关键源代码及注释DimmAsInteger,kAsIntegerDimlinesAsIntegerDimtxt()AsString'声明各个变量PrivateSubCommand1_Click(

4、)'创建动态数组DimiAsInteger,mAsIntegerm=(Form1.Height)(Label1(0).Height)+1Label1(0).Width=Form1.WidthFori=1TomLoadLabel1(i)Label1(i).Visible=TrueLabel1(i).Top=Label1(0).Top+i*Label1(0).HeightNextiDimlinesAsInteger,hAsIntegerCommonDialog1.Filter="text(*.txt)

5、*.txt

6、pictures

7、(*.bmp)

8、(*.bmp)"Commo

9、nDialog1.ShowOpeninfile=CommonDialog1.FileNamelines=0'文件行数总计OpeninfileForInputAs#1'打开文件。infile变量中存放的是文本文件的名字DoWhileNotEOF(1)ReDimPreservetxt(lines+1)AsString'开辟空间以存放新一行内容lines=lines+1LineInput#1,txt(lines)'读入一行并放入数组LoopClose#1Timer1.Enabled=TrueFori=0Tom'将初始内容赋给标签Label1(i).Caption=txt(i)N

10、extEndSubPrivateSubCommand2_Click()CommonDialog1.Flags=cdlCFBothOrcdlCFEffectsCommonDialog1.ShowFontFori=0TomLabel1(i).FontName=CommonDialog1.FontName'更改字体属性Label1(i).FontBold=CommonDialog1.FontBoldLabel1(i).FontItalic=CommonDialog1.FontItalicLabel1(i).FontSize=CommonDialog1.FontSizeLabel

11、1(i).FontStrikethru=CommonDialog1.FontStrikethruLabel1(i).FontUnderline=CommonDialog1.FontUnderlineLabel1(i).ForeColor=CommonDialog1.ColorNext第5页共5页文本阅读器课程设计报告（VB）编号：08EndSubPrivateSubCommand3_Click()CommonDialog1.ShowColorFori=0TomLabel1(i).BackColor=CommonDialog1.