国产成人啪精品视频免费网-国产成人啪精品视频免费网站软件-国产成人盗拍精品免费视频-国产成人深夜福利在线观看-a中文字幕1区-a毛片

二維碼
企資網

掃一掃關注

當前位置: 首頁 » 企業資訊 » 咨詢 » 正文

明月幾時有,千里共嬋娟

放大字體  縮小字體 發布日期:2021-09-22 02:45:03    作者:企資小編    瀏覽次數:76
導讀

又一年團圓佳節,制作一個動態顯示詩詞過程,沒有實際意義。每逢佳節倍思親,特別是這樣一個傳統團圓的節日,當然了,隨著網絡技術發展,現在的人們沒有以前信息不暢通時期那么思鄉心切了。這是科技帶給人們的改變,

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

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

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

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

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

根據一些時間計算和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---

 
(文/企資小編)
免責聲明
本文僅代表作發布者:企資小編個人觀點,本站未對其內容進行核實,請讀者僅做參考,如若文中涉及有違公德、觸犯法律的內容,一經發現,立即刪除,需自行承擔相應責任。涉及到版權或其他問題,請及時聯系我們刪除處理郵件:weilaitui@qq.com。
 

Copyright ? 2016 - 2025 - 企資網 48903.COM All Rights Reserved 粵公網安備 44030702000589號

粵ICP備16078936號

微信

關注
微信

微信二維碼

WAP二維碼

客服

聯系
客服

聯系客服:

在線QQ: 303377504

客服電話: 020-82301567

E_mail郵箱: weilaitui@qq.com

微信公眾號: weishitui

客服001 客服002 客服003

工作時間:

周一至周五: 09:00 - 18:00

反饋

用戶
反饋

主站蜘蛛池模板: 在线成年人网站 | 欧美日韩视频在线 | 亚洲国产综合人成综合网站00 | 91精品久久久久含羞草 | 免费播放欧美毛片欧美aaaaa | 久久亚洲精品国产精品777777 | 九色91| 在线免费观看一级片 | 失禁h啪肉尿出来高h健身房 | 亚洲九九色 | 欧美大片aaa | 91久久亚洲精品国产一区二区 | aaaaaa毛片免费看 | 成人18免费视频 | 日本a级毛片免费视频播放 日本a级三级三级三级久久 | 特黄特色一级特色大片中文 | 亚洲网站免费观看 | 2021国产精品一区二区在线 | 久草免费在线视频 | 国产一级aa大片毛片 | 久久香蕉国产精品一区二区三 | 69国产成人综合久久精品91 | 国产在线精品一区二区中文 | 成人影院午夜久久影院 | www.亚洲天堂 | 久久青草免费免费91线频观看 | 欧美成人免费看片一区 | 美女张开腿让人桶 | 日本不卡高清免费 | 日韩黄色在线 | 国产人成免费视频 | 国产欧美视频综合二区 | 日韩精品福利视频一区二区三区 | 成人在线观看不卡 | 手机看片精品国产福利盒子 | 欧美又粗又硬又大久久久 | 国产美女视频网站 | 91九色视频无限观看免费 | 扒开两腿猛进入爽爽视频 | 点击进入不卡毛片免费观看 | 亚洲综合国产一区二区三区 |