如何在VB中用Word打开doc

发布网友发布时间：2022-05-10 09:47

共1个回答

热心网友时间：2024-02-06 12:06

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com