VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对(
首页上一页 1 下一页尾页 4 条记录 1/1页
重复第三次提问：《视频学Visual Basic》的“项目开发实战A 多媒体播放器”中的“歌词”部分的代码有误
发表在VB答疑区
2011-03-01
是否精华
是
否
版块置顶:
是
否
运行源程序"多媒体播放器.vbp"时，提示“实时错误'5':无效的过程调用或参数”，按调试按钮，显示位置如下内容中的下划线部分（红色部分）：
Public Sub ShowLRC()
Dim fN As String '定义文件名
Dim iNum As Integer '存储文件扩展名的长度
If Frm_PlayList.Lvw_PlayList.ListItems.Count = 0 Then
Exit Sub
Else
fN = Frm_PlayList.List1.List(Frm_PlayList.Lvw_PlayList.selectedItem.Index - 1)
iNum = Len(GetExtension(fN))
fN = Left(fN, Len(fN) - iNum) & "lrc"
List1.Clear
Picture1.Visible = False
If LyricsAnalyse(fN) = True Then
Dim i As Integer
For i = 0 To 7
List1.AddItem " "
Next i
For i = 0 To UBound(Lyric)
[font color=#FF0000]List1.AddItem Space(8) & Right(Lyric(i), Len(Lyric(i)) - 10)
[/font]Next i
For i = 0 To 7
List1.AddItem " "
Next i
Else
Picture1.Visible = True
Lbl_FileName.Caption = SongName(fN)
End If
End If
End Sub
麻烦明日科技视《频学Visual Basic》的“项目开发实战A 多媒体播放器”作者提供一个邮箱，我将源代码、歌曲、歌词一并附上给您们，帮助检查一下。
在此处回答，解决不了问题，你们让我按某某办法，一是我是初学者，水平有限；二是您们提供给我们读者的原始程序代码都无法正常运行，让我失去了仔细学习看懂您们提供的代码的信心。第一次我已将源代码发给回答者，但已石沉大海。但我还是愿意相信您们提供的这个论坛网站和您们在所出版的书上的承诺是真心为读者服务的。谢谢！
Public Sub ShowLRC()
Dim fN As String '定义文件名
Dim iNum As Integer '存储文件扩展名的长度
If Frm_PlayList.Lvw_PlayList.ListItems.Count = 0 Then
Exit Sub
Else
fN = Frm_PlayList.List1.List(Frm_PlayList.Lvw_PlayList.selectedItem.Index - 1)
iNum = Len(GetExtension(fN))
fN = Left(fN, Len(fN) - iNum) & "lrc"
List1.Clear
Picture1.Visible = False
If LyricsAnalyse(fN) = True Then
Dim i As Integer
For i = 0 To 7
List1.AddItem " "
Next i
For i = 0 To UBound(Lyric)
[font color=#FF0000]List1.AddItem Space(8) & Right(Lyric(i), Len(Lyric(i)) - 10)
[/font]Next i
For i = 0 To 7
List1.AddItem " "
Next i
Else
Picture1.Visible = True
Lbl_FileName.Caption = SongName(fN)
End If
End If
End Sub
麻烦明日科技视《频学Visual Basic》的“项目开发实战A 多媒体播放器”作者提供一个邮箱，我将源代码、歌曲、歌词一并附上给您们，帮助检查一下。
在此处回答，解决不了问题，你们让我按某某办法，一是我是初学者，水平有限；二是您们提供给我们读者的原始程序代码都无法正常运行，让我失去了仔细学习看懂您们提供的代码的信心。第一次我已将源代码发给回答者，但已石沉大海。但我还是愿意相信您们提供的这个论坛网站和您们在所出版的书上的承诺是真心为读者服务的。谢谢！
分享到：
