Question

VB中怎样自动弹出对话框，并选择文件自动播放

Answer 1

所谓的自动弹出，应该是满足一定条件下进行自动弹出，比如说打开了某个窗体、点击了某个控件、某个变量发生变化、时间到达指定点等等。

追问

移动鼠标就能自动调出媒体播放器，并且自动播放设定的一个文件，该怎样做？

追答

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X > 50 Or Y > 50 Then
MsgBox "通过XY的变化，确定鼠标发生了移动。"
'这里用shell “路径\文件名"来调用播放器
End If
End Sub
但不建议你用form_mouseMove,因为form面积太大，很容易出现多次mouseMove,可以在某个小控件上进行

Answer 2

可不可以问具体点

追问

鼠标移动就能自动播放一个MP3文件，怎样做？

追答

你在工具箱添加WindowsMediaPlayer控件，然后再窗体上画出WindowsMediaPlayer。在编写如下代码：
Private Sub WindowsMediaPlayer1_MouseMove(ByVal nButton As Integer, ByVal nShiftState As Integer, ByVal fX As Long, ByVal fY As Long)
WindowsMediaPlayer1.URL = "D:\青花瓷 - 纯音乐.mp3" '这是你的音乐文件路径。
End Sub

使用方法是：在WindowsMediaPlayer控件上划过鼠标就开始播放，当然，我没有写停止播放程序。