类似picture控件的picture.cls 
image可以吗 ?

解决方案 »

  1.   

    Private Sub Command1_Click()
      Me.Image1.Picture = LoadPicture("")
      
    End Sub
    清空
      

  2.   

    Image1.Picture = LoadPicture("图片路径")
      

  3.   

    Private Sub Command1_Click()
      Me.Image1.Picture = LoadPicture("")清除
      Image1.Picture = LoadPicture("图片路径")装入
    End Sub
    其实
      Image1.Picture = LoadPicture("图片路径")就可以了啊,干嘛去清楚啊