如何在picture(i)這樣的picturebox陣列中畫

Question

麻煩各位一下
我利用了W.J.S. 大大教的方法
新建了另一個新的picturebox來
方法如下
Private Sub newblock_Click(index As Integer)
Dim i%
i = Picture2.Count
Load Picture2(i)
Picture2(i).Top = Picture2(i - 1).Top + Picture2(i - 1).Height
Picture2(i).Visible = True
End Sub
的確是新建出一個picturebox出來了
但是 在我的mousedown的地方卻出現問題
我的Picture2(i)_MouseDown事件 卻沒有辦法建立
就是當我要寫出
Private Sub Picture2(i)_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
這個事件時 就發生錯誤
出現 Picture2(i)_MouseDown 的底線部份 為不正確的字元的訊息
我猜想應該不是字元的問題
是哪裡錯了 我想請各位大大幫我解答一下 謝謝

不好意思 再請問一下
大大所說的我大概了解
但是 當我建出新的picturebox之後
我的繪圖位置 依然是在舊的picturebox之內
在其他新建的picturebox卻無法做出繪圖的動作
請問一下 我是否能做到這樣的動作
而能在每個picturebox上繪圖

Answer 1

'是否是這樣?按滑鼠左鍵繪圖Private Sub NewBlock_Click(Index As Integer)        Dim I%        I = Picture2.Count        Load Picture2(I)        Picture2(I).Top = Picture2(I - 1).Top + Picture2(I - 1).Height        Picture2(I).Visible = TrueEnd SubPrivate Sub Picture2_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)        If Button = 1 Then           Randomize           Picture2(Index).ForeColor = QBColor(Int(Rnd * 16))           Picture2(Index).PSet (X, Y)        End IfEnd SubPrivate Sub Picture2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)        If Button = 1 Then Picture2(Index).Line -(X, Y)End Sub