Question

vb6程序中的一个过程的调用问题！

Private Sub cmdOpen_Click() '打开文件
dialog.DialogTitle = "打开一个声音文件" '标题为打开
dialog.Filter = "mp3file(*.mp3)|*.mp3|wavfile(*.wav)|*.wav|All Files(*.*)|*.*" '确定显示的文件类型
dialog.ShowOpen '对话框被指定为打开类型
dialog.FilterIndex = 1
myTimer.Enabled = True '启动
end sub
Private Sub drawSpec()
Call SetDIBitsToDevice(Pic1.hdc, 0, 0, WIDTH_, HEIGHT_, 0, 0, 0, HEIGHT_, wavebuf(-(WIDTH_ / 2)), bh, 0)
End Sub
Private Sub myTimer_Timer()
Call drawSpec
End Sub
我想不用计时器控件，直接把上述“ myTimer.Enabled = True '启动”句用“ Call drawSpec”替代，按“启动”按钮编译程序时提示“实时错误 9.下标越界”。为什么
Call SetDIBitsToDevice(Pic1.hdc, 0, 0, WIDTH_, HEIGHT_, 0, 0, 0, HEIGHT_, wavebuf(-(WIDTH_ / 2)), bh, 0) 过程的调用必须在计时器事件中才正常，否则就下标越界？这种情况下能否不用计时器控件而让程序编译正常（下标不越界）？

Answer 1

一、由于你提供的代码不完整，以致不明白数组wavebuf()及变量WIDTH_、HEIGHT_、bh是怎么来的，所以出现编译程序时提示“实时错误 9.下标越界”现象也不好判断。
二、给你提供一个调试方法：
当你把上述“ myTimer.Enabled = True '启动”句用“ Call drawSpec”替代后，在此处按F9设置断点，然后按F5运行，当程序运行到断点处停下来时，看看数组wavebuf()及变量WIDTH_、HEIGHT_、bh是否已经获取完毕，如果没有，则应完善代码，使程序正确运行。

Answer 2

WIDTH_是在哪里赋值的？出错时，你看看他的值是多少。用Timer时，他又是多少（用debug.print）

Answer 3

可能是打开的音频文件太大了