已有23人关注
《视频学Visual Basic》的“项目开发实战A 多媒体播放器”运行出错
发表在VB答疑区 2011-02-14
是否精华
版块置顶:
运行源程序"多媒体播放器.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] [u] List1.AddItem Space(8) & Right(Lyric(i), Len(Lyric(i)) - 10)
[/font][/u]            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
麻烦解决,谢谢!!
分享到:
精彩评论 1
vb_music
学分:0 LV1
2011-02-16
沙发
你好:
    这里可能是某一个数值超出了边界。你可以采用打印值的方式或者通过设置断点获取程序运行到某一点时候的数值。
如果数值不合法可以通过合理途径进行修改。使其正常运行。
首页上一页 1 下一页尾页 1 条记录 1/1页
手机同步功能介绍
友情提示:以下图书配套资源能够实现手机同步功能
明日微信公众号
明日之星 明日之星编程特训营
客服热线(每日9:00-17:00)
400 675 1066
mingrisoft@mingrisoft.com
吉林省明日科技有限公司Copyright ©2007-2022,mingrisoft.com, All Rights Reserved长春市北湖科技开发区盛北大街3333号长春北湖科技园项目一期A10号楼四、五层
吉ICP备10002740号-2吉公网安备22010202000132经营性网站备案信息 营业执照