vb 实时错误53
这是我的一段代码，主要用来将AVI文件转换为MPG文件，但是运行时，我能够生成AVI文件，但是一但点击生成MPG文件，就会出现“ 实时错误53”。这是转MPG文件的代码
'生成MPG
Private Sub Command12_Click()
Dim Mpgest, Mpger, TheMovie As String
SetTopMostWindow Me.hWnd, False
'm2apx3g.exe -b PoppingAssCherry1-7.mpg -f -o7 output.avi
'avi2mpg1 [-options] inputfile.avi [outputfile.mpg]
Dim RetVal
TheMovie = App.Path & "\MyAVI.avi"
Mpger = App.Path & "\MyMPEG1.mpg"
'Mpgest = App.Path & "\m2apx3g.exe -b " & TheMovie & " -f -o7 " & Mpger & ".avi"
Mpgest = App.Path & "\avi2mpg1.exe -n -f1 " & TheMovie & " " & Mpger
RetVal = Shell(Mpgest, 1) '这里出现“文件未找到”的错误
End Sub
Private Sub Command13_Click() '播放MPG
SeeFlag = "mpg"
Load Form1
Form1.Show
End Sub
Private Sub Command2_Click() '生成AVI文件
Dim i As Long
Load fMain
fMain.Show
File1.Refresh
For i = 0 To File1.ListCount - 1
fMain.lstDIBList.AddItem App.Path & "\Images\" & File1.List(i)
Next
fMain.cmdWriteAVI_Click
Unload fMain
Set fMain = Nothing
End Sub
Private Sub Command2_MouseDown(Button As Int
相关问答：
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
把已有数据（数据大于20行）的RS(recordset)的第10行数据与第11行数据做加法后，删除第11行的数据，然后把后面的数据向前移。
RS的话修改数据是会更新数据库，现在的问题是RS里的已有数据是用SQL语句分类统计出来的 ......
