Private Sub Form_Load()

 Image1.Stretch = True

 Image2.Stretch = True

 Image3.Stretch = True

 Image4.Stretch = True

 Image5.Stretch = True

 Image6.Stretch = True

 Image7.Stretch = True

 Image8.Stretch = True

 Image9.Stretch = True

 Image1.Picture = LoadPicture("E:\haha\images3X3\ni_png_2_0008_02.jpg")

 Image2.Picture = LoadPicture("E:\haha\images3X3\ni_png_2_0008_03.jpg")

 Image3.Picture = LoadPicture("E:\haha\images3X3\ni_png_2_0008_04.jpg")

 Image4.Picture = LoadPicture("E:\haha\images3X3\ni_png_2_0008_05.jpg")

 Image5.Picture = LoadPicture("E:\haha\images3X3\ni_png_2_0008_06.jpg")

 Image6.Picture = LoadPicture("E:\haha\images3X3\ni_png_2_0008_07.jpg")

 Image7.Picture = LoadPicture("E:\haha\images3X3\ni_png_2_0008_08.jpg")

 Image8.Picture = LoadPicture("E:\haha\images3X3\ni_png_2_0008_09.jpg")
End Sub

开始时我只加载了一张图片，可以
但现在就一直出现“实时错误 ‘481' ”

除了提示你错误号是481，还有提示吧

还有“无效图片”
附：
我几种格式（GIF PNG JPG)都试过就是这样的提示
有一次我加载一张图时，GIF的可加载，但现在多了不知道为什么不行了

也许这些图片是其它程序生成的，文件头与WINDOWS默认的图像文件有区别。你将IMAGE控件换成PICTURE控件试试，或者尝试用图像编辑软件打开后另存为试试，或者把几个图像发上来看看

那个我是用“PS”做出来的

我去试试你的方法，谢谢

不行的话再上传

用“PICTUREBOX"也没用
就如这个图

你这都是png格式的图片，vb只接受jpg和bmp格式的图片。你可能自己强行将这些图片后缀名改为jpg了，这只是掩耳盗铃的做法。

[ 本帖最后由 lowxiong 于 2011-6-6 15:41 编辑 ]

额。。。基本同意楼上的

红框处之位元深度...这是问题点吗？



http://topic.
http://fy5388.blog.

是可以载入〜但是不能用一般方法〜例如：LoadPicture("")


这方法原本是用来让PictureBox载入的GIF图档的〜

Option Explicit

'专案/设定引用项目/ActiveMovie Control type Libray
'在PictureBox控件中显示GIF动画（图片）,凡有句柄hwnd的窗体控件均可以
'在窗体Form1上添加2个命令按钮Command1,Command2和1个图片框控件Picture1
'调用运动图像类型库Quartz.dll,在c:\windows\system32目录下
Private pMC As FilgraphManager '定义pMC为FilgraphManager对像
Private pVW As IVideoWindow '定义pVW为IVideoWindow对像
Private a As FilgraphManager
Private b As IVideoWindow

Private Sub Command1_Click()
On Error Resume Next
    Set pMC = New FilgraphManager
    pMC.Stop
    pMC.RenderFile ""
   

    '加载GIF文件
     On Error GoTo Lhandle
'    pMC.RenderFile App.Path & "\enter.gif" '加载GIF动画（图片）
    pMC.RenderFile App.Path & "\20110606.jpg"
     On Error Resume Next
    Set pVW = pMC
    pVW.WindowStyle = CLng(&H6000000)
   

    '限定动画在Picture1的大小中
     pVW.Left = 0: pVW.Top = 0
    pVW.Width = Picture1.ScaleWidth
    pVW.Height = Picture1.ScaleHeight
   

    pVW.Owner = Picture1.hWnd '在Picture1中显示
    pVW.MessageDrain = Picture1.hWnd '此行非常重要，用来定义动画的右键菜单所必须
    pMC.Run
Exit Sub

Lhandle:
    MsgBox ("Load Error！")
End Sub

Private Sub Form_Load()
    Me.ScaleMode = 3
    Picture1.ScaleMode = 3
End Sub

[ 本帖最后由 wube 于 2011-6-7 23:03 编辑 ]

谢谢大家的帮忙
感激不尽