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

文本阅读器设计报告 学院 材料学院 班级 材料074 学号 072023 姓名 宁延明 成绩 一、设计思路 1.要达到的目的 1能够打开任意一个文本文件并逐行显示文件内容。 。() 打开文件，下载动态标签，更改字体和背景等命令 Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 设计快捷键，包括：空格键（键码32），上、下翻页键（33和34）小键盘加号和减号键(107、109)，还有Home和End键(vbKeyHome、vbKeyEnd)。 Label1_Click(Index As Integer) 处理暂停和恢复滚动（用鼠标单击控制走停，作用同空格键）。 Timer1_Timer() 定时器事件，让标签按一定的速度自动滚屏，标签caption属性的赋给和变换。 二、模块之间的调用关系，或程序流程图 三、部分程序关键源代码及注释 Dim m As Integer, k As Integer Dim lines As Integer Dim txt() As String 声明各个变量 Private Sub Command1_Click() 创建动态数组 Dim i As Integer, m As Integer m = (Form1.Height) \ (Label1(0).Height) + 1 Label1(0).Width = Form1.Width For i = 1 To m Load Label1(i) Label1(i).Visible = True Label1(i).Top = Label1(0).Top + i * Label1(0).Height Next i Dim lines As Integer, h As Integer CommonDialog1.Filter = text(*.txt)|*.txt|pictures|(*.bmp)|(*.bmp) CommonDialog1.ShowOpen infile = CommonDialog1.FileName lines = 0 文件行数总计 Open infile For Input As #1 打开文件。infile 变量中存放的是文本文件的名字 Do While Not EOF(1) ReDim Preserve txt(lines + 1) As String 开辟空间以存放新一行内容 lines = lines + 1 Line Input #1, txt(lines) 读入一行并放入数组 Loop Close #1 Timer1.Enabled = True For i = 0 To m 将初始内容赋给标签 Label1(i).Caption = txt(i) Next End Sub Private Sub Command2_Click() CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.ShowFont For i = 0 To m Label1(i).FontName = CommonDialog1.FontName 更改字体属性 Label1(i).FontBold = CommonDialog1.FontBold Label1(i).FontItalic = CommonDialog1.FontItalic Label1(i).FontSize = CommonDialog1.FontSize Label1(i).FontStrikethru = CommonDialog1.FontStrikethru Label1(i).FontUnderline = CommonDialog1.FontUnderline Label1(i).ForeColor = CommonDialog1.Color Next End Sub Private Sub Command3_Click() CommonDialog1.ShowColor For i = 0 To m Label1(i).BackColor = CommonDialog1.Color 更改背景颜色 Next End Sub Private Sub Command4_Click() End End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift A