Vb6 如何不断更改mdi窗体的背景图像？

我正在用vb6做一个项目。我想知道如何在MDI加载后立即更改其背景图像

我试着制作一组图像，然后设置计时器 这是我的密码

Private Sub Timer1_Timer()
    For i = 0 To 2
        Picture1.Picture = LoadPicture(arr(i))
        i = i + 1

        If i = 3 Then
            i = 0
        End If
    Next i
End Sub

Private Sub MDIForm_Load()
    arr(0) = "images\Shop.jpg"
    arr(1) = "images\Display1.jpg"
    arr(2) = "images\Display2.jpg"
end sub

请帮忙

---

谢谢您

在编写代码时遇到了几个问题。首先，您不需要使用picturebox，MDI表单应该有一个可以直接设置的Picture属性

第二，正如所写的，每次触发计时器事件时，您都会循环遍历数组中的所有图像。您真正想要的是对每个计时器事件进行一次更改，并在每个计时器事件结束时存储/增加数组索引，如下所示：

Private Sub Timer1_Timer()
    MDIForm.Picture = LoadPicture(arr(arrIndex))
    If arrIndex + 1 <= UBound(arr) Then
        arrIndex = arrIndex + 1
    Else
        arrIndex = 0
    End If
End Sub

Dim arrIndex as Integer

Private Sub MDIForm_Load()
    arr(0) = "images\Shop.jpg"
    arr(1) = "images\Display1.jpg"
    arr(2) = "images\Display2.jpg"
    arrIndex = 0
end sub

---

索引的Dim应位于MDI窗体的顶部。这将在每次触发计时器事件时更改背景图片。

您需要根据MDI父窗体的名称稍微修改它。在MDIForm.Picture行上，将MDIForm更改为您的MDI父级或我的名称。