请问一下：我用PowerPoint控件在窗体中做了一个幻灯片，应该怎么放映啊？？？？急用，请大家帮个忙

[zxcdsaqwe21]

请问一下：我用PowerPoint控件在窗体中做了一个幻灯片，应该怎么放映啊？？？？急用，请大家帮个忙

[begintoday]

帮你顶

[zxcdsaqwe21]

谢谢

[lxcc]

在窗体上加载一个WebBrowser控件
Private Sub Form_Load()
WebBrowser1.Top = 0
WebBrowser1.Left = 0
WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight
WebBrowser1.Navigate "c:\1.ppt"
End Sub

Private Sub Form_Resize()
WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight
End Sub

[zhzhq800204]

在窗体上加载一个WebBrowser控件
Private Sub Form_Load()
WebBrowser1.Top = 0
WebBrowser1.Left = 0
在窗体上加载一个WebBrowser控件
Private Sub Form_Load()
WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight
WebBrowser1.Navigate "c:\1.ppt"
End Sub

Private Sub Form_Resize()
WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight
End Sub
这个方法可以，根据窗体的大小设定控件的大小。昨天才做了

[zxcdsaqwe21]

我的意思是：仍用powerpoint放映，怎么用VB来控制powerpoint来放映演示文稿

[laidon]

直接双击你做进去的pp文件就可以像PP一样演示了

[lxcc]

'托一个OLE控件,选择由文件创建,指定你想要DEMO的ppt文件路径名称
Private Sub Command1_Click()
OLE1.DoVerb 0
End Sub

Private Sub Command2_Click()
OLE1.DoVerb 1
End Sub

Private Sub Command3_Click()
OLE1.DoVerb 2
End Sub

Private Sub Form_Load()
Command1.Caption = "显示"
Command2.Caption = "编辑"
Command3.Caption = "打开"
End Sub