打字效果怎样使用VB6.0实现打字效果

发布: 2007-7-14 20:28 | 作者: 佚名 | 来源: 网络转载 | 查看: 22次 | 进入软件测试论坛讨论

　　在某些演示场所，你可能会看到用于演示的电脑在自动地一个字一个字地显示广告信息。其实，用VB6.0可以很容易地实现这种效果。

我先介绍函数sendkeys，它的作用是将一个或多个按键消息发送到活动窗口，就如同在键盘上进行输入一样。语法是:SendKeys string［, wait］

SendKeys语句的语法主要具有两个命名参数:

1.string必要。字符串表达式，指定要发送的按键消息。

2.Wait可选。指定等待方式的Boolean值。如果为False（缺省值），则控件在按键发送出去之后立刻返回到过程;如果为True，则按键消息必须在控件返回到过程之前加以处理。

具体方法:首先在窗体上添加一个textbox控件text1及一个timer控件timer1。然后，将text1的text属性设为空，multiline属性设为true;timer1的Interval属性可以设为200。

程序清单如下:

Dim i As Integer

Private Sub Timer1_Timer()

Dim str1 As String

str1 = “学软件、用软件、买软件，就看《新

潮电子》” '显示信息

len1 = Len(str1)

With Text1

.FontSize = 20

.FontName = "黑体"

.ForeColor = &HFF0000

.BackColor = &HFFFF&

End With

str2 = Mid$(str1, i + 1, 1)

'一个字一个字地显示

SendKeys str2

i = i + 1

If (i + 1) > len1 Then

SendKeys "{enter}" '换行

i = 0

End If

End Sub

本程序在中文Windows 98上用VB6.0中文企业版运行通过。