第一个问题:
一组扑克牌图片，从1.bmp到52.bmp，加入资源文件后
Image1.Picture = LoadResPicture(126, vbResBitmap)能正常显示，
Image1.Picture = LoadResPicture(101, vbResBitmap)就无法显示，错误481,无效图片。
直接在image1的picture属性里加入1.bmp文件(经过资源添加后变成101.bmp)可以正常显示。用电脑自带的画图软件打开1.bmp另存，然后再经过资源添加，结果同上。
求助。

第二个问题:

Private Sub Command1_Click()

For i = 1 To 54
     Load Image1(i)
    Image1(i).Left = Image1(i - 1).Left + Image1(i - 1).Width / 5
    Image1(i).Picture = Image1(i - 1).Picture
    Image1(i).Picture = LoadPicture(appath + "card/" + LTrim(Str(i)) + ".bmp")
    Image1(i).Visible = True
Next i

End Sub

///////
我想动态添加image控件来显示54张牌,结果出来的样式是第一张牌显示在最上面,其它都被压在下面(叠加方式显示的).
实际出来的就好象放倒了一样,如何才能让后面的显示在上方??
求助!!!



[ 本帖最后由 capfmud 于 2010-2-20 19:13 编辑 ]

For i = 1 To 54
     Load Image1(i)
    Image1(i).Left = Image1(i - 1).Left + Image1(i - 1).Width / 5
    Image1(i).Picture = Image1(i - 1).Picture
    Image1(i).Picture = LoadPicture(appath + "card/" + LTrim(Str(i)) + ".bmp")
    Image1(i).Visible = True
    Image1(i).ZOrder
Next i