明月幾時(shí)有，千里共嬋娟

又一年團(tuán)圓佳節(jié)，制作一個(gè)動(dòng)態(tài)顯示詩詞過程，沒有實(shí)際意義。

每逢佳節(jié)倍思親，特別是這樣一個(gè)傳統(tǒng)團(tuán)圓的節(jié)日，當(dāng)然了，隨著網(wǎng)絡(luò)技術(shù)發(fā)展，現(xiàn)在的人們沒有以前信息不暢通時(shí)期那么思鄉(xiāng)心切了。

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

所以，當(dāng)前的思鄉(xiāng)并不是那個(gè)時(shí)候的思鄉(xiāng)情結(jié)，不是一個(gè)概念。

本節(jié)示例是一個(gè)逐字顯示的過程，感覺像是用毛筆寫字但也沒那么細(xì)膩。

根據(jù)一些時(shí)間計(jì)算和Wait方法實(shí)現(xiàn)延時(shí)顯示的效果。

代碼：

Private Sub CommandButton2_Click()Dim Str As String, sObj As Object'Str = "明月千里映山川" & Chr(13) & "不及思鄉(xiāng)歸心切"Str = "明月幾時(shí)有" & 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

這個(gè)示例簡單，可以對(duì)照代碼進(jìn)行了解。

歡迎關(guān)注、收藏

---END---