VB课程文本阅读器设计报告.doc

课程设计报告（VB） 编号：文本阅读器设计报告学院 机械学院 班级 机设054 学号 050388 姓名 王军军 成绩 一、设计思路1.要达到的目的（1）能够打开任意一个文本文件并逐行显示文件内容。（2）可以调整自动滚屏的速度(用小键盘上的“”和“”键)。（3）支持显示特性的设置(字体诸属性及文字前景色彩)。（4）可以随时停止滚动和继续滚动(通过单击鼠标或者按空格键)。（5）在文本滚动时诸按钮自动隐去，暂停或停止滚动时按钮出现以便进行设置。（6）内容全部显出后自动停止滚动。（7）支持显示的背景设置，可以设置成任意色彩(2.关键问题的解决 主要是利用文件的SHOWOPEN属性打开文件，而后利用通用对话框进行字体和背景的设置，再利用TIMER事件的一些属性实现文本的自动滚动与停止。二、模块之间的调用关系，或程序流程图调用调用调用调用完成要求TIMER事件通用对话框Enabled等属性字体和背景的设置三、部分程序关键源代码及注释 Dim m As IntegerDim n As IntegerDim infile As StringDim lines As IntegerDim txt() As String 声明各个变量Private Sub Command1_Click()创建动态数组 Dim i As Integer m = (Form1.Height) (Label1(0).Height) + 1 For i = 1 To m Load Label1(i) Label1(i).Visible = True Label1(i).Top = Label1(0).Top + i * Label1(0).Height Next i 打开文件 CommonDialog1.Filter = text(*.txt)|*.txt|pictures|(*.bmp)|(*.bmp) CommonDialog1.ShowOpen infile = CommonDialog1.FileName lines = 0 文件行数总计 Open infile For Input As #1 变量中存放的是文本的名字 Do While Not EOF(1) ReDim Preserve txt(lines + 1) 开辟空间一存放新一行内容 lines = lines + 1 Line Input #1, txt(lines) 读入一行并存放内容 Loop Close #1 关闭文件 把文本的内容赋给标签的Caption属性 For i = 0 To m Label1(i).Caption = txt(i) NextEnd SubPrivate Sub Command2_Click() 设置文字的颜色及字体 Dim i As Integer CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.ShowFont m = (Form1.Height) (Label1(0).Height) + 1 For i = 0 To m Label1(i).FontName = CommonDialog1.FontName Label1(i).FontBold = CommonDialog1.FontBold Label1(i).FontSize = CommonDialog1.FontSize Label1(i).FontStrikethru = CommonDialog1.FontStrikethru Label1(i).FontUnderline = CommonDialog1.FontUnderline Label1(i).FontItalic = CommonDialog1.FontItalic Label1(i).ForeColor = CommonDialog1.Color Next iEnd SubPrivate Sub Command3_Click() 设置背景的颜色 CommonDialog1.ShowColor Form1.BackColor = CommonDialog1.Color m = (Form1.Height) (Label1(0).Height) + 1 For i = 0 To m Label1(i).BackColor = CommonDialog1.Color Next iEnd SubPrivate Sub Command4_Click() EndEnd SubPrivate Sub Form_Load() Timer1.Enabled = False End SubPrivate Sub label1_Click(Index As Integer) 设置按钮的显示与隐藏 Command1.Visible = Not Command1.Visible Command2.Visible = Not Command2.Visible Command3.Visible = Not Command3.Visible Command4.Visible = Not Command4.Visible Timer1.Enabled = Not Timer1.EnabledEnd SubPrivate Sub Timer1_Timer()通过改变标签的Top属性实现文本的滚动 Dim i As Integer Static n As Integer n = n + 1 m = Form1.Height Label1(0).Height + 1 For i = 0 To m Label1(i).Top = Label1(i).Top - 100 If Label1(i).Top = -800 Then Label1(i).Top = m * Label1(i).Height Label1(i).Caption = txt(n) End If NextEnd SubPrivate Sub form_keydown(keycode As Integer, shift As Integer) 设置各种快捷键 If keycode = 107 Then If Timer1.Interval 100 Then Timer1.Interval = Timer1.Interval - 50 Else Timer1.Interval = 100 End If End If If keycode = 109 Then If Timer1.Interval 1000 Then Timer1.Interval = Timer1.Interval + 50 Else Timer1.Interval = 1000 End If End If If keycode = 32 Then Command1.Visible = Not Command1.Visible Command2.Visible = Not Command2.Visible Command3.Visible = Not Command3.Visible Command4.Visible = Not Command4.Visible Timer1.Enabled = Not Timer1.Enabled End IfEnd Sub 四、设计方案的完善及目前存在的问题1设计方案要完善的地方 （1）给程序增加鼠标直拖功能（2）支持文本显示时自动播放音乐功能（3）支持文本显示时背景图片的平铺显示功能（4）其他一些创新要求2. 目前存在的问题 （1）文本显示时可能出现“下标越界” （2）不能实现文本的手工翻页功能 （3）没有完成其他的创新要求五、本次设计的收获及心得体会 这次课程设计加深了我对课程的理解，学到了许多课堂上没有讲过的知识，而且培养了我的探索和创新精神，我从中体会到了科研的困难和学习的乐趣，这次设计使我明白了许多东西，不仅仅是书本上的六、对该题目和VB设计