Question

怎样在ppt中插入一个VB中的timer控件？？

VB中的timer控件添加

Answer 1

PPT在全屏显示的播放状态下是没有时间显示的，使我们在上课与讲座对时间的控制非常不便（看表或看手机的时间都会影响到讲座的气氛和听众的情绪）。那么在PPT中可以使用时间（时钟）吗？经过试验，可以通过插入Flash时钟或ActiveX控件方式现实。其中插入Flash时钟与在PPT中插入普通的Flash文件一样，网上有很多的介绍，这里仅述以VB6.0为工具以ActiveX控件方式建立时钟，并插入到PPT中。
这里以VB6.0为例说明

1、 启动动VB，在新建工程对话框中选用“ActiveX控件”选项。

2、 VB自动建一个用户控件设计器（UserControl）窗口，并命名为“UserControl”。

3、 单击工具箱的Label控件（用它显示时间），

4、 双击工具箱中的“Timer”控件。

5、 控件属性调整：按PPT文件的背景色在调好窗体及Label的背景色。在Timer1控件中，将Enabled设为True，将Interval设为1000（单位为ms，）以每秒触发一次。

6、 代码：

Private Sub Timer1_Timer()

Label1.Caption = Format(Now, "hh:mm:ss AM/PM") 取得系统时间并设置时间的格式，AM.PM分别上下午

End Sub

Private Sub UserControl_Initialize()

Label1.Caption = "" Label1内容初始化为空白

End Sub

7、 在“工程”菜单中，选择“工程1属性”，在弹出的对话框中

8、 工程类型中写入“ActiveX”控件，以编译成”.OCX”为后缀名的ActiveX控件

9、 工程名任定(如取名为timer)

10、 在文件菜单中，单击“生成工程1.ocx”项，生成ActiveX控件，将其存于”Windows\system”或“winnt\system32”文件夹中。

11、 在PPT中选控件插入自己建好的ActiveX控件，如Timer，在PPT的母版中画出一个合适大小的图标，之后将它放在页脚等地方。

保存即可。
以上在Windows xp VB6.0 及Powerpoint2000中调试通过，如第二次打开文件时出现宏问题，请启用宏，如选打包则要把该控件也要插入所用机子的对应的文件夹中。

如何在ppt中插入时钟?你首先要下载一个时钟，然后按以下步骤操作 视图菜单工具栏 控件工具箱 点击“其他控件”按钮，在出现的窗口中选择“shock wave flash object” 在母版中 划一个矩形区域 那个矩形区域的快捷菜单 属性 在出现的属性窗口 的movie属性 里输入.swf路径和文件名

别人发的，转的给你！

Answer 2

'ocx控件代码， Frame1，Label1，timer1 ,ToggleButton1各一个，按ToggleButton1计时开始，来个邮箱，发给你
Dim H As Integer, M As Integer, S As Integer
Private Sub Timer1_Timer()
S = S + 1
If S >= 60 Then
S = 0
M = M + 1
If M >= 60 Then
M = 0
H = H + 1
End If
End If
Label1.Caption = Format(H, "00") & ":" & Format(M, "00") & ":" & Format(S, "00")
End Sub
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
Timer1.Enabled = True
Timer1.Interval = 1000
H = 0
M = 0
S = 0
Else
Timer1.Interval = 0
Timer1.Enabled = False
End If
End Sub

Private Sub UserControl_Initialize()
H = 0
M = 0
S = 0
'UserControl.Width = 1760
'UserControl.Height = 580
'Frame1.Width = 1620
'Frame1.Height = 550
'Frame1.Top = -10
'Frame1.Left = 40
End Sub

Private Sub UserControl_Resize()
UserControl.Width = 1720
UserControl.Height = 580
Frame1.Width = 1620
Frame1.Height = 550
Frame1.Top = -10
Frame1.Left = 40

End Sub

Answer 3

菜单里，工具---宏---VB编辑器