VB6：对象变量或块变量未设置

Question

目前正在学习 vb6 的高中生在尝试设置这些图像框的左值和上值时遇到了这个主要问题。我不断收到错误：

对象变量或未设置块变量

并且调试似乎将其引导到左侧和顶部值变量。

Option Explicit

Dim GapY As Integer
Dim GapX As Integer

Dim x As Integer
Dim y As Integer

Dim Tile() As Image
Dim NumOfTiles

Dim h, i As Integer 'Counter       

Private Sub cmdRender_Click()
    x = 480
    y = 480

    GapX = Val(InputBox("Enter How Many tile you want horizontally:"))
    GapY = Val(InputBox("Enter How Many tile you want vertically"))

    NumOfTiles = (GapY * GapX)

    ReDim Tile(NumOfTiles)

    For i = 1 To GapY
        For h = 1 To GapX

           Tile(h).Height = 615
           Tile(h).Width = 615
           Tile(h).Left = x
           Tile(h).Top = y         
           'Tile(h).Stretch = True
           x = x + 600
        Next
        y = y + 600
        x = 480
    Next                
End Sub

Answer 1

您尚未将任何图像分配给您的 tile 数组，即您有一个包含 NumOfTiles 空位置的数组。

我不知道您从哪里获取图像。您可以使用new Image 创建图像或从文件中读取图像或从表单上的图像框中获取它们等。

---

您可能想使用PictureBox 控件。如果您在表单上有这样的控件，则必须这样输入数组

Dim Tile() As PictureBox
ReDim Tile(NumOfTiles) As PictureBox

然后从您的表单中分配它们（假设您在表单上放置了一些）：

Set Tile(1) = pictureBox1
Set Tile(2) = pictureBox2
...

或在循环中

For i = 1 To NumOfTiles
    Set Tile(i) = Me("pictureBox" & i)
    Tile(i).Left = ...
Next

或者用类似这样的方式在表单上创建它们（我没有尝试过）

Set Tile(i) = Me.Controls.Add("VB.PictureBox", "pictureBox" & i)