【正文】 行 Sub Main過程 Sub Main過程存放在標(biāo)準(zhǔn)模塊中。在一個工程中只能有一個Sub Main 設(shè)置 Sub Main過程為“啟動對象”的方法： 在“工程屬性”對話框的“通用”選項卡中，從“啟動對象”下拉列表框中選中“ Sub Main” (見 ) Sub Main過程 例 主頁 例 繪制一個圓，使之從小變大，再從大變小 分析： 為了得到一個圓大小變動的 動畫效果 ，先在某一位置上繪制一個圓，顯示一段時間 (延時 )后抹除，接著在下一位置上依此處理，直到指定位置為止 延時：利用 Timer函數(shù) ，該函數(shù)返回系統(tǒng)時鐘從午夜開始計算的秒數(shù) (帶兩位小數(shù) ) Private Sub Delay(d) ‘功能：延時 d秒 t = Timer() + d Do While Timer() t 39。利用空循環(huán)實現(xiàn)延遲 Loop End Sub 程序舉例 例 系統(tǒng)提供的當(dāng)前時間數(shù) 設(shè)定的時間數(shù) 了解 Timer的作用 開始位置 → 畫圓 → 延時 → 抹除 新位置 抹除方法： 采用底色(背景色 )來掩蓋圖形 采用 Circle方法可以畫一個圓 主頁 Private Sub Form_Load() Show = QBColor(15) 39。設(shè)置背景顏色 Call Pict(30, 1600, 30) 39。從小變大 Call Pict(1600, 30, 30) 39。從大變小 End Sub Private Sub Pict(a, b, c) ‘顯示 → 延遲 → 抹除 For i = a To b Step c ‘ 在 i位置上處理 Call Plot(i, 4) 39。顯示圓 Delay 39。延遲 Call Plot(i, 15) 39。抹除 Next i End Sub Private Sub Plot(r, clr) (2400, 1600), r, QBColor(clr) 39。畫圓 End Sub a及 b為半徑的開始值及結(jié)束值， c為每次半徑增量 r、 clr分別為圓半徑和顏色值 主頁 Private Sub Form_Load() Show Randomize = QBColor(15) 39。設(shè)置背景顏色 For i = 1 To 200 39。控制進(jìn)行 200次 clr = Int(15 * Rnd) 39。產(chǎn)生 0～ 14顏色碼 x = 400 + Int(4000 * Rnd) 39。產(chǎn)生圓心 x坐標(biāo)值 y = 400 + Int(4000 * Rnd) 39。產(chǎn)生圓心 y坐標(biāo)值 r = 300 + Int(500 * Rnd) 39。產(chǎn)生圓半徑 r值 Call Plot(x, y, r, clr) 39。畫圓 Delay 39。延時 Call Plot(x, y, r, 15) 39。抹除 Next i End Sub Private Sub Plot(x, y, r, clr) (x, y), r, QBColor(clr) 39。畫圓 End Sub 例 變幻圓 隨機(jī)產(chǎn)生圓的有關(guān)參數(shù) 例 隨機(jī)產(chǎn)生圓心位置、半徑及顏色值 主頁 在窗體上建立 3個文本框，使之以不同效果顯示文字“ 2022年世界奧運(yùn)會將在中國北京市舉行 ” 第一個文本框 Text1從左到右逐字顯示，直到把整行文字顯示出來； 第二個文本框 Text2使文字從左到右作水平移動； 第三個文本框 Text3以閃動方式顯示文字 設(shè)計階段 運(yùn)行階段 例 動態(tài)文字 例 主頁 Dim txt As String, n As Integer, k As Integer Private Sub Form_Load() n = 0 txt = 2022年世界奧運(yùn)會將在中國北京市舉行 k = Len(txt) = RGB(255, 0, 0) 39。紅色 = RGB(0, 0, 0) 39。黑色 = RGB(0, 0, 255) 39。藍(lán)色 End Sub 主頁 Private Sub Timer1_Timer() n = n + 1 ?模塊級變量 n是關(guān)鍵參數(shù) If n = k Then = Left(txt, n) ?逐次取 n個漢字， n每次加 1 = Space(2 * (k n)) + Left(txt, n) Else n = 0 = = End If If n Mod 2 = 0 Then ?以 2個定時時間為 1個周期，顯示及清除交替進(jìn)行 = txt 39。n為偶數(shù)時顯示 Else = 39。n為奇數(shù)時清除 End If End Sub 每次減少 2空格 1個漢字占 2個字符位置 每次增加 1個漢字