如何实现文本动态显示

hbqjxhw

在窗体上添加两个计时器，设置Timer1的属性：Interval=200,设置Timer2的属性：Enabled=False,interval=5000

1. 
   
2. '如何实现文本动态显示
   
3. Dim l As Integer, i As Integer, x As Integer, y As Integer
   
4. Dim page As Integer
   
5. Dim filenum As Integer
   
6. Dim words As String
   
7. Private Sub form_load()
   
8. 
   
9. ChDrive App.Path
   
10. ChDir App.Path
    
11. FileName$ = "c:\text.txt"
    
12. filenum = FreeFile
    
13. Open FileName$ For Input As #filenum
    
14. Do While Not EOF(filenum)
    
15. Line Input #filenum, Text$
    
16. words = words + Text$ + Chr(13) + Chr(10) '将文本内容赋值给words串变量，包括回车符和换行符
    
17. Loop
    
18. Close #filenum
    
19. l = Len(words) '计算words串变量长度（字符个数）
    
20. End Sub
    
21. 
    
22. Private Sub Timer1_Timer()
    
23. If page = 1 Then '满一页后清除窗体内容
    
24. Form1.Cls
    
25. page = 0
    
26. Timer1.Interval = 200 '重置打字速度
    
27. End If
    
28. typewrite '调用打字子例程
    
29. End Sub
    
30. Public Sub typewrite()
    
31. i = i + 1 '字符计数器
    
32. x = x + 1
    
33. CurrentX = 100 '设置打字的起始点
    
34. CurrentY = 300
    
35. CurrentX = CurrentX + x * 250 '设置字间距
    
36. CurrentY = CurrentY + y * 280 '设置行间距
    
37. t$ = Mid$(words, i, 1) '从words串中指定位置取一个汉字或标点符号
    
38. Print t$ '在窗体上打印一个字符
    
39. If x = 20 Or Mid$(words, i, 2) = Chr$(13) + Chr$(10) Then '设置行字符个数，若行字数满或段落结束（遇回车换行符）则换行
    
40. y = y + 1
    
41. x = 0
    
42. End If
    
43. If y = 12 Then '设置行数
    
44. page = 1 '行数满为一页
    
45. y = 0
    
46. Timer1.Interval = 6000 '设置页显示停留时间
    
47. End If
    
48. If i > l Then '文本内容打印完毕，计时器2打开
    
49. Timer1.Enabled = False
    
50. Timer2.Enabled = True
    
51. End If
    
52. End Sub
    
53. 
    
54. Private Sub Timer2_Timer()
    
55. Timer2.Enabled = False
    
56. Timer2.Enabled = False
    
57. End '改变END，可执行其它子例程
    
58. End Sub
    

复制代码

刚学习VB编程，大家有什么好的程序，好的看法还请跟贴讨论。（在这里向大家学习了）

caterpilla

支持。。。。。
不过在运行时是否有窗口闪动的情况？