VB6.0 自動畫方塊(shape) 20點

表單長6000

表單高4000

我想要在裡面放滿

長高都400的正方形

有辦法嗎?

據我所知,Line可以設定頭尾座標

這樣就可以用for迴圈讓電腦自動畫滿表單

但shape有辦法嗎???

感激!

已更新項目:

那請問我用Set 做出來的按鈕(RENDC)

如果要讓它按了有反應(END)

我是不是要這樣寫?

Private Sub RENDC_Click()

End

End Sub

但是按了之後沒有反應耶...

2 個解答

評分
  • 樹哥
    Lv 5
    8 年前
    最佳解答

    Dim j, k, m As Integer

    Private Sub Command1_Click()

    m = 0

    Dim Shape(1600) As Shape

    For j = 0 To 10

    For k = 1 To 14

    m = m + k

    Set Shape(m) = Controls.Add("vb.shape", "shape" & m)

    Shape(m).Top = 1200 + 400 * j

    Shape(m).Left = 400 * k

    Shape(m).Shape = 0

    Shape(m).Height = 400

    Shape(m).Width = 400

    Shape(m).Visible = True

    ' Shape(m).BackStyle = 1 '填滿

    ' Shape(m).BackColor = &HC0FFFF '淡黃色

    Next

    Next

    MsgBox m

    End Sub

    • Commenter avatar登入以對解答發表意見
  • 8 年前

    可以

    Shape1(0).Top = 0 '

    Shape1(0).Left = 0

    Shape1(0).Height = 4000

    Shape1(0).Width = 6000

    For i = 1 To 2

    Load Shape1(i) '新增一個新的 shape 一開始就要在form將Shape1物件 改成 陣列

    Shape1(i).Visible = True

    Shape1(i).Left = Shape1(i - 1).Left + Shape1(i - 1).Width

    next

    • Commenter avatar登入以對解答發表意見
還有問題?馬上發問,尋求解答。