【CBM666 的最简单歌曲播放】

最新推荐文章于 2008-03-08 19:29:00 发布

cbm6666

最新推荐文章于 2008-03-08 19:29:00 发布

阅读量636

点赞数

分类专栏： VB 专栏文章标签： command object string c

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.csdn.net/cbm666/article/details/2121832

版权

VB 专栏专栏收录该内容

11 篇文章 0 订阅

订阅专栏

'添加 Command1

Option Explicit
Dim songnm$

Private Sub Command1_Click()
songnm = "c:/test.mp3"
Call playmusic(songnm)
End Sub

Public Sub playmusic(Snm As String)
   Dim ObjShell As Object
   Set ObjShell = CreateObject("Wscript.Shell")
   ObjShell.Run Snm
   Set ObjShell = Nothing
End Sub

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
1
评论
复制链接

分享到 QQ

分享到新浪微博

扫一扫

专栏目录

评论 1

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。