來自 謝廠節(jié)的博客

1. 新建一個(gè)PPT
2. 設(shè)計(jì)好背景界面
3. 點(diǎn)擊菜單視圖-工具欄-Visual Basic
4. 點(diǎn)擊圖示，拖動(dòng)按鈕到界面上
   
   
5. 拖到界面的按鈕上點(diǎn)右鍵，選擇“屬性”
   
   
6. 在Caption輸入“開始倒計(jì)時(shí)”
   
   
7. 如下圖所示，再拖動(dòng)幾個(gè)控件到界面上
   
   
8. 在按鈕上點(diǎn)右鍵，選擇“查看代碼”（或按鍵Alt+F11，打開VBA編程環(huán)境，后雙擊Slide1）
9. ff
10. 輸入代碼
    [vb] view plain copy

     

    1. Private Declare Function GetTickCount Lib "kernel32.dll" () As Long  
    2. Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)  
    3. 'Private Declare Function PlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszName As String, ByVal uFlags As Long) As Long  
    4. Const InterVal = 1000 '自定義的時(shí)間間隔  
    5.   
    6. Private Sub CommandButton1_Click()  
    7.   
    8. Static State, myStop As Boolean  
    9. Dim preTime, curTime, myTime, jsTime, txTime As Long  
    10. If State Then myStop = True: Exit Sub  
    11. CommandButton1.Caption = "停止倒計(jì)時(shí)"  
    12. State = True  
    13. preTime = GetTickCount  
    14. myTime = Val(TextBox2) + 1  
    15. jsTime = Val(TextBox2) + 2  
    16. txTime = Val(TextBox3)  
    17. Label3.Visible = False  
    18. Label4.Visible = False  
    19. TextBox2.Visible = False  
    20. TextBox3.Visible = False  
    21. Label2.Caption = "計(jì)時(shí)進(jìn)行中"  
    22. Do  
    23.     curTime = GetTickCount  
    24.     If curTime - preTime >= InterVal * (jsTime - myTime) Then  
    25.         myTime = myTime - 1  
    26.         TextBox1 = myTime  
    27.         DoEvents  
    28.         If myTime = txTime Then  
    29.             Label2.Caption = "計(jì)時(shí)將結(jié)束"  
    30.            ' Call PlaySound("Ding.wav", 0&)  
    31.         End If  
    32.         If myTime = 0 Then  
    33.             State = False  
    34.             myStop = False  
    35.             CommandButton1.Caption = "開始倒計(jì)時(shí)"  
    36.            ' Call PlaySound("End.wav", 0&)  
    37.             Exit Do  
    38.         End If  
    39.     End If  
    40.     Sleep (20)  
    41.     Label1 = Time  
    42.     DoEvents  
    43.     If myStop Then  
    44.         State = False  
    45.         myStop = False  
    46.         CommandButton1.Caption = "開始倒計(jì)時(shí)"  
    47.         MsgBox "倒計(jì)時(shí)終止！", vbInformation + vbOKOnly, "操作提示"  
    48.         Exit Do  
    49.     End If  
    50. Loop  
    51. Label2.Caption = "計(jì)時(shí)時(shí)間到"  
    52. Label3.Visible = True  
    53. Label4.Visible = True  
    54. TextBox2.Visible = True  
    55. TextBox3.Visible = True  
    56. End Sub  
    
    
11. 保存后，按Shift+F5 ， 演示。在請(qǐng)輸入倒計(jì)時(shí)時(shí)間（秒）填入60，在倒計(jì)時(shí)結(jié)束前提醒（秒）填入5，點(diǎn)擊“開始倒計(jì)時(shí)”按鈕。