明月幾時有，千里共嬋娟

又一年團圓佳節，制作一個動態顯示詩詞過程，沒有實際意義。

每逢佳節倍思親，特別是這樣一個傳統團圓的節日，當然了，隨著網絡技術發展，現在的人們沒有以前信息不暢通時期那么思鄉心切了。

這是科技帶給人們的改變，無論是人類情感還是社會節奏，都不可能是從前的樣子，更不是古代人的樣子。

所以，當前的思鄉并不是那個時候的思鄉情結，不是一個概念。

本節示例是一個逐字顯示的過程，感覺像是用毛筆寫字但也沒那么細膩。

根據一些時間計算和Wait方法實現延時顯示的效果。

代碼：

Private Sub CommandButton2_Click()Dim Str As String, sObj As Object'Str = "明月千里映山川" & Chr(13) & "不及思鄉歸心切"Str = "明月幾時有" & Chr(13) & "千里共嬋娟"Set sObj = Me.Shapes(3)Dim si As Integer, s As Integersi = VBA.Len(Str)sObj.Textframe2.TextRange.Text = ""For s = 1 To si    sObj.Textframe2.TextRange.Text = sObj.Textframe2.TextRange.Text & VBA.Mid(Str, s, 1)    newHour = Hour(Now())    newMinute = Minute(Now())    newSecond = Second(Now()) + 1    waittime = TimeSerial(newHour, newMinute, newSecond)    Application.Wait waittime'等待1秒    DoEventsNext sEnd Sub

這個示例簡單，可以對照代碼進行了解。

歡迎關注、收藏

---END---