For i = 0 To 8
I1(i).BorderStyle = 1
I1(i).Stretch = True
str = "toolspic/" & i & ".jpg"
I1(i).Picture = LoadPicture(str)
Next
******************************
With addpath
.FileName = ""
.Filter = "MP3或WMA音乐文件|*.mp3;*.wma"
.ShowOpen
End With
If addpath.FileName = "" Then
Exit Sub
End If
temp = addpath.FileName
这两段代码有冲突
第一次运行程序 I1(i).Picture = LoadPicture(str)这不会有错
只要我运行第二段代码后如果在别的地方加载了歌曲
中断程序后再次运行程序就加载不了图片了这段程序报错
但当我把编译器关掉时,并再次启动只要不加载歌曲再次运行程序都不会有错
有谁能帮我吗 谢拉

明天中午会上网回复的