老是无效限定符，大侠帮忙看下。

Question

刚才关于30张图片在30个image中显示的问题，我用了几个大侠的代码，但都是报同一个错误“无效限定符”，我列出一个代码，大家看应该怎么弄
private sub command1_click() 
  dim sfile as string 
  sfile=dir("c:\123\*.jpg") 
  for i=0 to 29 
      image(i).picture=loadpicture("C:\123\" & sfile  ) 
      sfile=dir 
  next 
end sub  

Answer 1

image(i).picture=loadpicture("C:\123\" & sfile  ) 
改为
image1(i).picture=loadpicture("C:\123\" & sfile  ) 

Answer 2

假设C:\123\下有0.jpg，1.jpg，2.jpg...29.jpg
private sub command1_click() 
  dim n as long
  for i=0 to 29 
      image(i).picture=loadpicture("C:\123\" & n ".jpg" ) 
      n=n+1
  next 
end sub

Answer 3

改成image1，就报类型不匹配了

Answer 4

("C:\123\" & n ".jpg" ) 这里不对啊，语法错误，我改成("C:\123\" & n & ".jpg" ) 后，还是继续报 无效限定符

Answer 5

private sub command1_click() 
  dim sfile as string, i As Integer 
  sfile=dir("c:\123\*.jpg") 
  Do Until sfile = ""
      image(i).picture=loadpicture("C:\123\" & sfile  ) 
      sfile=dir 
      i = i + 1
  Loop 
end sub 

Answer 6

Option Explicit
Private Sub command1_click()
  Dim sfile As String, i As Integer
  sfile = Dir("c:\112233\*.jpg")
  Do Until sfile = ""
      Image1(i).Picture = LoadPicture("C:\112233\" & sfile)
      sfile = Dir
      i = i + 1
  Loop
End Sub
6楼的我验证是没有问题的呀
楼主你把VB6重新安装一下吧，把SP6也打上

Answer 7

先把每个imgage控件名称全部改为Image1,Index依次设置为0,1,2,3........  For i = 0 To 29
     Image1(i).Picture = LoadPicture("C:\123\" & i & ".jpg")
  Next

Answer 8

你和6楼的区别就在Image1(i).Picture = LoadPicture("C:\112233\" & sfile，他是Image(i).Picture = LoadPicture("C:\112233\" & sfile
我现在已经解决了，谢谢大家