PPT实现倒计时功能(VBA实现)

在 “工具”/“自定义” 里,找到 “工具拦” 选项卡,找到“控件和工具箱”,将前面打钩。

在一张幻灯片上拖个 按钮 和 文本框。

双击 按钮,打开代码窗口

输入:

 

  1. Private Sub CommandButton1_Click()  
  2.     win_hwnd = GetActiveWindow()  
  3.     TextBox1.Text = "10"  
  4.     SetTimer win_hwnd, 101, 1000, AddressOf timer  
  5. End Sub  
  6.   
  7. Private Sub TextBox1_Change()  
  8.     If TextBox1.Text <= 0 Then  
  9.         KillTimer win_hwnd, 101  
  10.         MsgBox "Time Up!", vbInformation, "T_T"  
  11.     End If  
  12. End Sub  

 

再在里面添加一个模块,输入:

 

  1. Public Declare Function GetActiveWindow Lib "user32" () As Long  
  2. Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, _  
  3.     ByVal nIDEvent As LongByVal uElapse As LongByVal lpTimerFunc As LongAs Long  
  4. Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, _  
  5.     ByVal nIDEvent As LongAs Long  
  6.   
  7. Public win_hwnd As Long  
  8.   
  9. Public Sub timer()  
  10.     Slide1.TextBox1.Text = Val(Slide1.TextBox1.Text) - 1  
  11. End Sub  

 

关闭代码窗口

开始放映幻灯片,点 按钮,好了开始计时了

评论 7
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值