如何在VB中用Word打开doc

2024-11-10 15:37:46
推荐回答(1个)
回答1:

很简单,给你点代码
点工程-引用添加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