公用对话控件实例

我看看是什么，是MP3播放器..............

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
'打开窗体就直接打开程序所在文件夹下的"文档文件\胡大勤整理excel常用重要函数公式和VBA代码.doc"文件
'Dim Word As Object
'On Error Resume Next
'Set Word = CreateObject("Word.Application")
'Set a = Word.Documents.open(App.Path & "\文档文件\胡大勤整理excel常用重要函数公式和VBA代码.doc")
'Word.Visible = True
'a.PrintPreview

End Sub
Private Sub Command1_Click() ''添加音乐文件
'20121223胡大勤QQ;617986369



On Error Resume Next
CommonDialog1.Filter = "所有文件(*.*)|*.*|mp3(*.mp3)|*.mp3|文本文件(*.txt) |*.txt|"
CommonDialog1.FilterIndex = 1 '通过filterindex的值,如上例中设为2时,则默认为txt.设为1时,则默认为*.*文件(所有文件)注意,是从1开始的
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub
Private Sub Command2_Click() '执行按钮
'20121223胡大勤
'下面是'播放音乐文件
WindowsMediaPlayer1.URL = CommonDialog1.FileName
WindowsMediaPlayer1.Controls.play
'下面是播放影片或广告代码:
Me.ShockwaveFlash1.Movie = CommonDialog1.FileName '播放动画影片（Flash控件）

End Sub

[ 本帖最后由 益西翁登 于 2012-12-29 07:11 编辑 ]

还是Artless老师说的对,看标题哦,这主要是用于初学者学习公用对话框控件!