如何在PPT画面上插入一个倒计时工具（请高手帮忙）

一、如何在PPT画面上插入一个倒计时工具（请高手帮忙）

1、首先新建一个空白的PPT，点击工具栏“文件”；

2、点击“新建”，在弹出的页面中选择“教育”；

3、接着，在显示的界面中选择“课堂计时器”；

4、在跳出的页面中，选择“创建”；

5、PPT就自动出现了一个计时器PPT，点击播放就可以看到计时器了。

二、资源网站都是在哪找的？

资源网站有很多，例如：优质电影网、办公资源网、Pexels、蚂蚁BT、BT磁力链、Runbt、Ciliss、站长素材、迅捷视频、嗨哆咪影视、苦瓜书盘。

资源网站都是在哪找的？

1、优质电影网

优质电影网，优质电影网站分享网站，网站里面分享的电影不仅提供高清下载链接，还可以在线观看电影，并且不需要什么广告的，网站里面推荐了非常多的好看资源！

2、办公资源网

办公资源，职场PPT模板汇聚之地，各类模板资源应有尽有，无论是职场上的工作汇报、求职简介、商业企划，还是教育培训里面的毕业答辩、教师说课、课堂教育，不仅如此网站还有Word模板和Excel模板，就连制作PPT模板的音效都有！

3、Pexels

这个网站上面的图片和视频都是免费的，而且还可以商用，是没有版权的，里面的图片全部都是高清大图，都是由摄影爱好者提供到这个平台上共享的。每周都会定期更新，只支持英文搜索，不过很容易就能搜索到自己想要的，如果你有好看的图片，你也可以上传到这个平台，和大家一起共享，前提一定要是无版权且免费的哦。

4、蚂蚁BT

蚂蚁BT是一款像蚂蚁一样的搬运工，里面的资源就像蚂蚁洞一样，看是不起眼，但是里面却别有洞天，直接在网站的首页里面输入搜索内容就可以了，并且网站的首页也列举了热门资源框！

5、BT磁力链

这款BT搜索网站里面有许多令你大开眼见的资源，无论从网站的界面设计上还是从资源的收录情况来讲都是不二之选，经常喜欢在电脑上找些资源的朋友有福了，直接在里面搜索资源名称就可以找到！

6、Runbt

Runbt，号称最懂你的磁力链接搜索网站，它有超过4千万条磁力链接资源，很多热门的磁力链接都可以在这里找到，它搜索资源的速度也是杠杠的，各种电影、音乐、软件等资源，只有想不到的资源，没有找不到的资源~

7、Ciliss

世界那么大，我想搜搜看! Ciliss这个网站的界面很简洁，就是一个搜索框和一些热门搜索推荐。很多在网上找不到的电影资源都可以来这里找，这里的电影资源很丰富，搜一搜就知道它有多好用了。

8、站长素材

站长素材，一个素材资源超丰富的网站，在这里你可以找到所有你需要的素材，无论是办公素材或图片素材或视频素材，通通可以快速找到，效率杠杠的。

9、迅捷视频

一个提供视频和图片编辑、制作软件的资源网站，里面有着各种工具，可以对你的视频和图片进行各种各样的编辑操作。同时也支持在线PS、在线视频、图片、音频转换和编辑等等，可以很好的提高办公质量。

10、嗨哆咪影视

很多人找电影资源都会在网盘中搜索，其实这里就汇集了大量的电影、电视剧、动漫、综艺资源，每天都会更新最新的院线大片，最重要的是免费哦!

11、苦瓜书盘

苦瓜书盘，这个网站是文学爱好者的天堂，其中有海量各种类型的小说、诗歌散文、工具书、现代文学、古典文学等多种不同类型的电子书籍。

三、辩论计时器怎么做？

要感谢Rainbow_Route.窗体中一个TEXTBOX,三个COMMAND,一个TIMMER,看不到字就把TEXTBOX弄大点.

Private Declare Function GetTickCount Lib kernel32 () As Long

Public TStart, TNow, TLast, TMinute, TSecond, TTotal

Private Sub Command1_Click()

Command1.Enabled = False: Command2.Enabled = True: Command4.Enabled = False

Text1.Text =

End Sub

Private Sub Command2_Click()

Command3.Enabled = True

Timer1.Enabled = True

TTotal = TLast + TTotal

TStart = GetTickCount

Call Timer1_Timer

End Sub

Private Sub Command3_Click()

Command1.Enabled = True: Command2.Enabled = False

Command3.Enabled = False: Command4.Enabled = True

Timer1.Enabled = False

TStart = 0: TEnd = 0: LTime = 0: TMinute = 0: TSecond = 0: TLast = 0

End Sub

Private Sub Command4_Click()

End

End Sub

Private Sub Form_Load()

Command1.Caption = 开始: Command2.Caption = 计时: Command3.Caption = 停止: Command4.Caption = 退出

Command1.Default = True: Command2.Enabled = False: Command3.Enabled = False

Timer1.Interval = 1000: Timer1.Enabled = False

TStart = 0: TEnd = 0: LTime = 0: TMinute = 0: TSecond = 0: TLast = 0

End Sub

Private Sub Timer1_Timer()

TNow = GetTickCount

TLast = Val(TNow - TStart) \ 1000

TMinute = TLast \ 60

TSecond = TLast Mod 60

Text1.Text = 距你本次点击[计时]的时间为 & TMinute & ： & TSecond & vbCrLf & 从第一次点击[计时]到本次点击经过了： & TTotal & 秒

End Sub

顶一下

(0)

0%

踩一下

(0)

0%