image - VB6 - 加载/存储稍后使用的图像

Question

我的表单上有一个图像控件，我希望图片根据特定事件发生变化。假设有四种不同的可能图像。我知道我可以将控件设置为我想要使用的任何图像:

imgBox1.Picture = LoadPicture(sPath & "img1.bmp")

但我想我的问题确实是，每次我想将 imgBox1 更改为不同的图片(比如“img2.bmp”)时，我是否必须使用 LoadPicture 函数？或者我可以将四个不同的图像加载到某种对象，然后将 imgBox1.Picture 设置为等于该对象吗？我尝试了几种不同的方法，但都无法正常工作。

Answer 1

StdPicture 是用于存储图像的类型。

下面的示例一次从磁盘加载 3 张图像，然后在单击按钮时循环播放它们。

Private mPics(2) As StdPicture
Private mIndex As Long

Private Sub Form_Load()
    Set mPics(0) = LoadPicture("C:\kitty_born.bmp")
    Set mPics(1) = LoadPicture("C:\kitty_life.bmp")
    Set mPics(2) = LoadPicture("C:\kitty_dead.bmp")
End Sub

Private Sub someButton_Click()
    If mIndex > UBound(mPics) Then mIndex = 0

    Set somePictureOrImageBox.Picture = mPics(mIndex)

    mIndex = (mIndex + 1)
End Sub