Private Sub List1_Click()
Text1.Text = List1
Text2.Text = List1
Text1.Text = MyLastReplace(Text1.Text, ".ogg", ".wav")
Dim Ret As Long
Form1.Refresh
Ret = RSPOggPlay1.OGGVorbisToWav(Text2.Text, Text1.Text)
List1.RemoveItem List1.ListIndex
List1_Click
End Sub
-------------------------------
当运行到List1.RemoveItem List1.ListIndex的时候就提示 :
------------------------
实时错误 “5”;
无效的过程调用或参数
----------------------
当我把List1_Click 这拿掉后就没问题了..........
于是求解决
Text1.Text = List1
Text2.Text = List1
Text1.Text = MyLastReplace(Text1.Text, ".ogg", ".wav")
Dim Ret As Long
Form1.Refresh
Ret = RSPOggPlay1.OGGVorbisToWav(Text2.Text, Text1.Text)
List1.RemoveItem List1.ListIndex
List1_Click
End Sub
-------------------------------
当运行到List1.RemoveItem List1.ListIndex的时候就提示 :
------------------------
实时错误 “5”;
无效的过程调用或参数
----------------------
当我把List1_Click 这拿掉后就没问题了..........
于是求解决
解决方案 »
- VB读取大文件的问题
- 看這個存儲過程哪有問題?
- TreeView有checkbox 当父节点选择框选中 子节点将全部选中 代码怎么写的?
- winsock控件接收数据问题(接收上来的数据全是0)
- 请问recordset调用了.open方法之后是马上更新数据库的吗?
- vb编译一个exe网站后台运行!请高手帮忙!
- 一表Unit有一字段UnitName,設置了主鍵,如果在程序用主鍵來判斷添加記錄時是否已存在此單位
- DataReport只能用于显示表中的字段吗?
- MSFlexGrid11.DataSource=rs 怎么提示出错!!!!!
- 我的偶像们,别再吵了!有点良心的说句话吧!
- VSFlexGrid 合并单元格后的Bug(?)
- 求助vb改注册表权限
List1.Selected(0) = True