如何在VB中用Word打开doc

来源：百度知道 编辑：UC知道 时间：2024/06/19 05:12:37
1.如何在VB窗体中加入背景音乐,只要一运行这个程序后音乐就自动响起,而且需要有一个按钮可以再次人工关闭背景音乐.
2.如何在VB中让按钮可以连接到当前文件夹下的"综合实践报告.DOC"综合实践视频.WMV"

注:第一个问题大家尽力解决,如果不行的话有没有点击程序后先播放音乐音乐播放完成后再启动窗体的代码也共享出来吧.第二个问题大家一定要解决,我说的是让VB用一个按钮控件点击后启动word打开这个文档和点击后启动Windows media player播放这段视频录像而不是用VB自己打开.
麻烦说清楚点我刚初一~新手!

很简单，给你点代码
点工程-引用添加WindowsMediaPlayer控件
将控件添加到窗体，然后写入：
Private Sub Form_Load()
WindowsMediaPlayer1.url = "file:///" + Replace(app.path, "\", "/")+"/音乐文件名" '播放音乐文件
WindowsMediaPlayer1.settings.playCount = 2 '使音乐文件循环播放
End Sub
Private Sub Command1_Click()
shell (app.path+"\综合实践报告.DOC") '按下Command1时打开综合实践报告.DOC
End Sub
Private Sub Command2_Click()
shell (app.path+"\综合实践视频.WMV") '按下Command2时打开综合实践视频.WMV
End Sub
Private Sub Command3_Click()
WindowsMediaPlayer1.url = "stop" '按下Command3时停止播放音乐
End Sub

工程，引用啊，这么简单。。。

其实最简单的就是用OLE，嘿嘿，懒人的绝招

好难 我也要学学

假设word的路径在"C:\Windows\office2003\word2003\word.exe"
歌曲在"本路径:\综合实践视频.WMV"

添加Command1,开始输入代码:
Private Sub Command1_Click()
Dim retval
retval = Shell("C:\Windows\o