关于载入图片的问题

Question

我有100张图片，像1.bmp，2.bmp，3.bmp，4.bmp，5.bmp，6.bmp，7.bmp，8.bmp，9.bmp………怎么样才能一个循环语句加载这些图片

Answer 1

for i= 1 to 100
Path = App.Path & i & ".bmp" '图片存在根目录下，如果在其他目录请设置如：path="c:\" & i & ".bmp"
loadpicture(path)
next i

Answer 2

Dim aa$, bb$, i%, h$, s
Private Sub Form_Load()
   Command1.Caption = "导 入"
 
   Open "c:\temp.txt" For Input As #1
   aa = StrConv(InputB(LOF(1), 1), vbUnicode)
   Close #1
End SubPrivate Sub Command1_Click()
   bb = ""
   For i = 1 To Len(aa)
      h = Hex(Asc(Mid(aa, i, 1)))
      bb = bb & CStr(Val("&H" + Mid(h, 1, 2)) * 256 + Val("&H" + Mid(h, 3, 2))) & " "
      Path = "c:\" & bb & ".bmp"
      Image1.Picture = LoadPicture(Path)
   Next i
   Open "c:\test.txt" For Output As #1
   Print #1, bb
   Close #1
   MsgBox "导入完成"
End Sub我转化之后的第一个字符的编码是49321，编译后说没有找到49321.bmp，但是我在c盘存在这个图片，请求达人指点

Answer 3

你aa有没pubic ?
在command1_click 里怎么算len（aa）？

Answer 4

bb = bb & CStr(Val("&H" + Mid(h, 1, 2)) * 256 + Val("&H" + Mid(h, 3, 2))) & " ",图片名有没空格

Answer 5

bb = bb & CStr(Val("&H" + Mid(h, 1, 2)) * 256 + Val("&H" + Mid(h, 3, 2))) & " ",图片名有没空格

Answer 6

我转化之后BB里的值是这些
49321 46323 47010 51706 46552 47037 48892 49332 52149 46323 48338 47016 49865 45218 46323 48338 49066 47010 49325 49066 46323 48338 47010 49611 49064 46328 48610 47045 49066 47010 48885 46531 49066 49611 51448 47058 49387 49066 48338 41900 49064 46552 47037 41379 41919 41889 41387 41892 41891 41893 41389 41465 8192 8192 8192 8192 12544
空格去掉之后，这些空格也就没了，然后我把图片的名字都命名为49321.bmp，46323.bmp…………现在我把空格去掉了，可以输出一张图片，然后提示文件未找到c:\4932146323.bmp.请求高人指点，我这个程序应该怎么写，上面这个程序的图片框只有一个，其实我是要设计一个图片诓数组的，然后把各个图片放到图片框中。

Answer 7

添加一个image,将index值改为0Dim aa$, bb$, i%, h$, s 
Private Sub Form_Load() 
   Command1.Caption = "导 入" 
  
   Open "c:\temp.txt" For Input As #1 
   aa = StrConv(InputB(LOF(1), 1), vbUnicode) 
   Close #1 
End Sub Private Sub Command1_Click() 
   bb = "" 
   For i = 1 To Len(aa)
      h = Hex(Asc(Mid(aa, i, 1)))
      cc = CStr(Val("&H" + Mid(h, 1, 2)) * 256 + Val("&H" + Mid(h, 3, 2)))
      bb = bb & cc & " "
      Path = "c:\" & cc & ".bmp"
      Load Image1(Image1.UBound + 1)
      Image1(Image1.UBound).Move Image1(Image1.UBound - 1).Left + Image1(Image1.UBound - 1).Width
      Image1(Image1.UBound).Picture = LoadPicture(Path)
      Image1(Image1.UBound).Visible = True
   Next i   Open "c:\test.txt" For Output As #1 
   Print #1, bb 
   Close #1 
   MsgBox "导入完成" 
End Sub