在VB中如何让OLE自动运行？

不如说我在OLE1里嵌入了以首歌，点击按钮后让OLE1中的这首歌播放，但是问题就在于每次点按钮系统会弹出一个对话框，提示是否运行。非常麻烦。我想点击按钮后跳过这个对话框而自动播放这首歌。PS:嵌入其他程序后点按钮运行他也是如此。请教各位方法。有什么方法斗说把，尽量简单点，拜托了！！！！是在XP环境下的OLE1.Action = 7 单击按钮后会弹出一个安全警告上面有2个选项,`运行`和`取消`我就是想跳过这个窗口而直接运行唉~~~遗憾啊!!!还有4天就结束了,还是没有人回答的话只有OVER了.分就给你吧

2026年09月22日 14:27

有1个网友回答

网友（1）：

Private Sub Command1_Click()
OLE1.Action = 7
End Sub
就让音乐播放了，没有什么提示啊

很抱歉，我没有看到这个提示，这样的问题也没有遇到过，帮不到你。