VB文本阅读器.docVIP

文本阅读器设计报告 学院 班级 学号 姓名 成绩 一、设计思路 1.要达到的目的 ①能够打开任意一个文本文件并逐行显示文件内容。 。 三、部分程序关键源代码及注释 Private Sub Command1_Click() CommonDialog1.ShowOpen infile = CommonDialog1.FileName 文本读入 lines = 0 Open infile For Input As #1 While Not EOF(1) ReDim Preserve txt(lines + 1) lines = lines + 1 Line Input #1, txt(lines) y = lines Wend Close #1 Label1(1).Caption = txt(1) ‘打开窗体显示前五行 Label1(2).Caption = txt(2) Label1(3).Caption = txt(3) Label1(4).Caption = txt(4) Label1(5).Caption = txt(5) Form1.Caption = 文本阅读器-- CommonDialog1.FileName End Sub Private Sub Timer1_Timer() ‘定时器控制自动滚屏按一定的速度滚动 Label1(0).Top = Label1(0).Top – 50 ‘字段每次上移距离 Label1(1).Top = Label1(1).Top - 50 Label1(2).Top = Label1(2).Top - 50 Label1(3).Top = Label1(3).Top - 50 Label1(4).Top = Label1(4).Top - 50 Label1(5).Top = Label1(5).Top – 50 If Label1(0).Top 0 Then ‘标签移出页面后复原 Label1(0).Top = 4200 End If If Label1(1).Top 0 Then Label1(1).Top = 4200 End If If Label1(2).Top 0 Then Label1(2).Top = 4200 End If If Label1(3).Top 0 Then Label1(3).Top = 4200 End If If Label1(4).Top 0 Then Label1(4).Top = 4200 End If If Label1(5).Top 0 Then Label1(5).Top = 4200 End If If Label1(0).Top = 4200 Then ‘逐行显示文字 Label1(0).Caption = txt(5 + a0 + 1) ‘从第六行开始显示 a0 = a0 + 6 End If If Label1(1).Top = 4200 Then Label1(1).Caption = txt(6 + a1 + 1) a1 = a1 + 6 End If If Label1(2).Top = 4200 Then Label1(2).Caption = txt(7 + a2 + 1) a2 = a2 + 6 End If If Label1(3).Top = 4200 Then Label1(3).Caption = txt(8 + a3 + 1) a3 = a3 + 6 End If If Label1(4).Top = 4200 Then Label1(4).Caption = txt(9 + a4 + 1) a4 = a4 + 6 End If If Label1(5).Top = 4200 Then Label1(5).Caption = txt(10 + a5 + 1) a5 = a5 + 6 End If If a0 = y Or a1 + 1 = y Or a2 + 2 = y Or a3 + 3 = y Or a4 + 4 = y Or a5 + 5 = y Then ‘文章结束自动停止滚动 Timer1.Enabled = False MsgBox 文章结束 End If End Sub Private Sub Command5_Click() ‘音乐播放 CommonDialog1.Filter = *.mp3 CommonDialog1.ShowOpen MMControl1.Command = close MMControl1.FileName =