在 “工具”/“自定义” 里，找到 “工具拦” 选项卡，找到“控件和工具箱”，将前面打钩。
在一张幻灯片上拖个 按钮 和 文本框。
双击 按钮，打开代码窗口
输入：
view plaincopy to clipboardprint?
- PrivateSubCommandButton1_Click()win_hwnd=GetActiveWindow()TextBox1.Text=”10″SetTimerwin_hwnd,101,1000,AddressOftimerEndSubPrivateSubTextBox1_Change()IfTextBox1.Text<=0ThenKillTimerwin_hwnd,101MsgBox”TimeUp!”,vbInformation,”T_T”EndIfEndSub
再在里面添加一个模块，输入：
view plaincopy to clipboardprint?
- PublicDeclareFunctionGetActiveWindowLib”user32″()AsLongPublicDeclareFunctionSetTimerLib”user32″(ByValhwndAsLong,_ByValnIDEventAsLong,ByValuElapseAsLong,ByVallpTimerFuncAsLong)AsLongPublicDeclareFunctionKillTimerLib”user32″(ByValhwndAsLong,_ByValnIDEventAsLong)AsLongPublicwin_hwndAsLongPublicSubtimer()Slide1.TextBox1.Text=Val(Slide1.TextBox1.Text)-1EndSub
关闭代码窗口
开始放映幻灯片，点 按钮，好了开始计时了
当明知不可挽回，唯一补偿的方法就是怀念，