国产成人啪精品视频免费网-国产成人啪精品视频免费网站软件-国产成人盗拍精品免费视频-国产成人深夜福利在线观看-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

反饋

用戶
反饋

主站蜘蛛池模板: 欧洲免费无线码一二区 | 欧美国产日韩一区二区三区 | 美国毛片一级 | 日本人一级毛片免费视频 | 正能量www正能量免费网站 | 亚洲美女黄色片 | 欧美日韩一区二区三区四区在线观看 | 中文在线免费视频 | 99r精品在线 | 毛片免费在线视频 | 污美女网站www在线观看 | 在线观看免费国产成人软件 | 国产日韩精品一区在线不卡 | 超91在线 | 2022国产精品手机在线观看 | 亚洲日本激情 | 日韩精品一区在线观看 | 久久成人精品视频 | 黑人边吃奶边扎下面激情视频 | 久久久久在线 | 步兵社区 | 亚洲精品在线看 | 国产精品无码久久久久 | 成人偷拍视频 | 亚洲一级毛片免费在线观看 | 国产50页| 亚洲精品色综合色在线观看 | 国产精品亚洲片在线va | 国产精品天天爽夜夜欢张柏芝 | 久久精品国产欧美日韩亚洲 | 中文字幕精品视频 | 日本无玛| 国产成人看片免费视频观看 | 国产亚洲欧美精品久久久 | 国自产精品手机在线视频香蕉 | 精品亚洲欧美高清不卡高清 | 麻豆日韩 | 亚洲精品天堂一区在线观看 | 日韩欧美亚州 | 日本高清视频www夜色资源 | 天天亚洲 |