資訊好好玩

0愛的鼓勵 0訂閱站台

Private Sub Form_Load()
    Call Gridinit
End Sub
Private Sub Gridinit()
Dim maxX, maxY As Integer               '設定水平/垂直格子數
Dim map_w, map_h As Integer             '設定格子寬/高
Dim h, v As Integer                     '水平/垂直繪製計數
Dim map_count As Integer                '動態物件計數
'-------------------------------------------------------------
maxX = 12
maxY = 12
map_count = 0
'-------------------------------------------------------------
'設定Image圖片屬性值
'計數寬高，便於計算座標，填入表單適當位置
'-------------------------------------------------------------
map(0).Picture = ImageList1.ListImages(1).Picture
map_h = map(0).Height
map_w = map(0).Width

'-------------------------------------------------------------
'設定Image圖片屬性值
'計數寬高，便於計算座標，填入表單適當位置
'-------------------------------------------------------------
For h = 0 To maxX - 1
    For v = 0 To maxY - 1
        map(h * maxX + v).Picture = ImageList1.ListImages(1).Picture
        map(h * maxX + v).Visible = True
        map(h * maxY + v).Move v * map_w, h * map_h
        map_count = map_count + 1
        If map_count <= maxX * maxY - 1 Then
            Load map(map_count)
         End If
    Next
Next
'-------------------------------------------------------
'表單物件配置
'-------------------------------------------------------
Resion.Width = maxX * map_h
Resion.Height = maxY * map_h
Resion.Left = (Me.ScaleWidth - Resion.Width) * 0.5
Resion.Top = (Me.ScaleHeight - Resion.Height) * 0.5 + 100
End Sub