舞动的精灵——使用VB6.0实现打字效果 一台电脑在桌上静静地开着，周围没有人，屏幕中却不断地闪现出字幕，一个字一个字清晰而果断，就像有人正坐那儿一个字一个字地输入。是精灵在键盘上舞动吗？用这种效果来做演示产品介绍还不错，或是在你的程序中加入这么一个小特效，那么你软件的About就可以显得很有灵性了。这也不是很难办到的事，许多方法都能实现，像Flash、Java、Director……等等，当然也可以用VB编程实现。在你用VB来开发的毕业设计程序中，加上这么一小段来向你的导师介绍你这个软件的作用和优点，想来他们对你的印象一定会很不错。
用VB来实现这个效果需要用到函数sendkeys，它的作用是将一个或多个按键消息发送到活动窗口，就如同在键盘上进行输入一样。
语法：SendKeys
string［, wait］
命令参数:
string　必要。字符串表达式，指定要发送的按键消息。
Wait　　可选。指定等待方式的Boolean值。如果为False（缺省值），则控件在按键发送出去之后立刻返回到过程；如果为True，则按键消息必须在控件返回到过程之前加以处理。
首先新建一个工程，在窗体上添加一个textbox控件和一个timer控件。然后，将text1的text属性设为空，multiline属性设为true；timer1的Interval属性可以设为200。
程序清单如下:
Dim i As Integer
Private Sub Timer1_Timer()
Dim str1 As String
str1="华中理工大计算机系98级毕业设计" '显示信息
len1=Len(str1)
With Text1
.FontSize=18
.FontName="黑体"
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中文企业版运行通过。
(黄思哲)