vb制作VCD播放器的问题

1.添加通用对话框控件
下面是完整的代码
2.Private Sub mnuOpen_Click()
Dim temp As Integer
Dim stringtext As String
Dim midx, midy As Double
On Error Resume Next
CommonDialog.FileName = ""
CommonDialog.Filter = "(*.avi)|*.avi|(*.wave)|*.wave|(vcd *.dat)|*.dat|(midi *.mid)|*.mid"
CommonDialog.FilterIndex = 1
CommonDialog.DialogTitle = "打开媒体文件"
CommonDialog.Action = 1
mmcomtrol.Command = "close"
If CommonDialog.FileName = "" Then
temp = MsgBox("没有文件被选择", vbOKOnly, "检查")
Else
If CommonDialog.FilterIndex = 1 Then
MMControl.DeviceType = "avivideo"
MMControl.TimeFormat = 3
MMControl.FileName = CommonDialog.FileName
MMControl.Command = "open"
Slider.Min = 0
Slider.Max = MMControl.Length
End If
End If
End Sub

这个的意思实说你的代码里面有冲法出现的代码啊Common得意思就是说你的代码出现重复你只要把里面出现的重复做掉就会减少的，再一个就是这个1是表示的是逻辑真啊，你们学过的当逻辑真在用的时候需要加什么，你还是好好的检查一遍，细心一点

很简单，你没有添加通用对话框控件。