VBA實現打字機輸出效果，一定要收藏起來

2021-08-09 05:37:01

打字機效果是一種簡單的動態文字輸出效果，本節介紹vba如何實現逐字列印的輸出效果。

很簡單，但用起來卻非常有意思。

下面具體看一下實現過程。

下圖文字為輸出的結果，但不是整個輸出的過程，由於懶惰的原因，就不做gif圖片了。

有興趣可以複製程式碼自己偵錯，看看是什麼樣的過程。

重點來看程式碼：

Option Explicit
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)
Private Sub CommandButton1_Click()
Dim xStr As String, sStr As String, i As Integer, ix As Integer
xStr = "歡迎來到奇異世界，這裡有你想不到驚喜，一定要玩盡興！" & VBA.vbCrLf & _
"那些我們曾經的以為，後來都變成了不可能；那些我們不曾認識的自己" & _
"，後來都變成了真實的自己。。。"
For i = 1 To VBA.Len(xStr)
sStr = VBA.Mid(xStr, 1, i)
Range("B2").Value = sStr
Sleep 200
Next i
End Sub

程式碼中要注重兩行，一行是第2行，另一行是11行，這兩行決定了輸出過程中的停頓效果。

它是利用windows系統庫，所以如果在使用過程中沒有出現列印效果，那麼就要想一下，是不是作業系統的問題。

其餘就好理解了。

整體思路就是，輸出一字元串，輸出過程是每200毫秒輸出一次，可以在程式中找到200這個數字，如果願意可以修改成自己喜歡的數字來看一下結果。

其中，字元串進行了一個擷取操作，也就是每次輸出的字元比上一次輸出的多一個，這樣就會感覺像是在打字一樣，一個一個字元輸出了。

嚴格來說，如果知道了原理，感覺像是一種很可笑的操作。

不管怎樣，樣子就是那個樣子，有時候騙騙自己的眼睛也一種樂趣。

歡迎關注、收藏

---END---

VBA實現打字機輸出效果，一定要收藏起來

熱門文章