又一年團圓佳節，制作一個動態顯示詩詞過程，沒有實際意義。
每逢佳節倍思親，特別是這樣一個傳統團圓的節日，當然了，隨著網絡技術發展，現在的人們沒有以前信息不暢通時期那么思鄉心切了。
這是科技帶給人們的改變，無論是人類情感還是社會節奏，都不可能是從前的樣子，更不是古代人的樣子。
所以，當前的思鄉并不是那個時候的思鄉情結，不是一個概念。
本節示例是一個逐字顯示的過程，感覺像是用毛筆寫字但也沒那么細膩。
根據一些時間計算和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---
