编程论坛 » VB6论坛 » 求助！！缺少结束语句！急用!!

sxbmark 发表于 2008-5-10 20:30

求助！！缺少结束语句！急用!!

Private Sub Mnuopen_click()
CommonDialog1 .FileName = ""
CommonDialog1 .Filter = "(*.avi)(*.avi)(*.wave)(*.wav)(vcd.*dat)(*.dat)(*.midi)(*.midi)"
CommonDialog1.filerIndex = l
CommonDialog1.DialogTitle = "打开媒体文件"
CommonDialog1.spowopen
MMControl1.Command = "close"
If Conunanddialog1.FileName = "" Then
MsgBox "投有文件被选择", 37, "检查"
Elself Commondialog1.filterIndex=1 Then
MMControl1.DeviceType = "avivideo"
MMControl1.Timefomat = 3
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "open"
Elself Commondialog1.filterIndex=2 then
MMControl1.DeviceType = "WaveAudio"
MMControl1.TimeFormat = 1
MMControl1.FileName = CommonDialog1.FileName
MmcontrolI.Command = "open"
ElseIf CommonDialog.filterlndex = 3 Then
MMControl1.DeviceType = "Mpegvideo"
MMControl1.TimeFormat = 3
MMControl1.FileName = CommonDialog.FileName
MMControl1.Command = "open"
Elself CommonDialog1.FilterIndex= 4 then
MMControl1.DeviceType = "Sequencer"
MMControl1.TimeFormat = l
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "open"
End If
End Sub
其中“Elself Commondialog1.filterIndex=1 Then
      Elself Commondialog1.filterIndex=2 Then
      Elself Commondialog1.filterIndex=4 Then“缺少结束语句

西山居士 发表于 2008-5-10 23:27

[quote][bo]以下是引用 [un]sxbmark[/un] 在 2008-5-10 20:30 的发言：[/bo]

Else[color=Red]l[/color]f Commondialog1.filterIndex=1 Then
[/quote]
注意：
ElseIf Commondialog1.filterIndex=1 Then

jxyga111 发表于 2008-5-20 14:03

在提示下打 exit sub 居然都錯了還要運行一下的代碼，應該不用了

查看完整版本: 求助！！缺少结束语句！急用!!