打字效果怎樣使用VB6.0實現打字效果

領測軟件測試網 　　在某些演示場所，你可能會看到用于演示的電腦在自動地一個字一個字地顯示廣告信息。其實，用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中文企業版運行通過。

文章來源于領測軟件測試網 http://www.kjueaiud.com/