我想应该不能直接判断(哪位高手有办法啊)
不过可以间接实现,再写图片时,同时将它的 tag 属性设为1 , 到时判断这个属性就可以了.

解决方案 »

  1.   

    调试通过:   Dim a As Object
       Set a = Picture1.Picture
       If a = 0 Then
          MsgBox "没有图片!"
       Else
          MsgBox "有图片!"
       End If注意用is nothing判断不行,我试过了。
      

  2.   

    如果是用loadpicture引进的
    可用
    if pic1.picture=loadpicture("")
    判断
      

  3.   

    上面的代码只能判断用
    Picture属性得来的图片,不能判断用PaintPicture方法得来的图片,请注意用法。
    不好意思。
      

  4.   

    我是说自己的代码,呵呵。
    Hero的代码好像也是这样的。
    ^_^