用VB编RM格式压缩软件
dingProgressChanged(ByVal duration As Long, ByVal timestamp As Long, ByVal PercentDone As Long, ByVal AudioPeakLevel As Long)
lblfacemul.Caption = "已压缩 " + CStr(PercentDone) + "%" ''显示压缩百分比率
End Sub
Private Sub ProducerControl1_OnEncodingStopped()
Timer1.Enabled = False
cmdstop.Enabled = False
cmdstart.Enabled = True
lblface.Caption = "压缩完成"
lblfacemul.Caption = "谢谢您的使用!"
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i > 59 Then
i = 0
j = j + 1
End If
If j > 59 Then
j = 0
k = k + 1
End If
If k > 23 Then
k = 0
End If
lbltime.Caption = Format(k, "00") & ":" & Format(j, "00") & ":" & Format(i, "00")
End Sub
以上简单的实现了RM文件的压缩，通过对象浏览器，你可以为程序增加批量压缩功能，可以设定目标听众等，因篇幅关系，我就不写出来了。欢迎与我交流（elby@21cn.com）。
lblfacemul.Caption = "已压缩 " + CStr(PercentDone) + "%" ''显示压缩百分比率
End Sub
Private Sub ProducerControl1_OnEncodingStopped()
Timer1.Enabled = False
cmdstop.Enabled = False
cmdstart.Enabled = True
lblface.Caption = "压缩完成"
lblfacemul.Caption = "谢谢您的使用!"
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i > 59 Then
i = 0
j = j + 1
End If
If j > 59 Then
j = 0
k = k + 1
End If
If k > 23 Then
k = 0
End If
lbltime.Caption = Format(k, "00") & ":" & Format(j, "00") & ":" & Format(i, "00")
End Sub
以上简单的实现了RM文件的压缩，通过对象浏览器，你可以为程序增加批量压缩功能，可以设定目标听众等，因篇幅关系，我就不写出来了。欢迎与我交流（elby@21cn.com）。