我已经从学校设置了一个项目来在 VB.Net 中设计蛇,但我正在努力动态添加用户控件,该控件充当蛇体中的一个点。每次我在蛇上加一个点,以前的就消失了。我认为这是由于我通过创建对象的新实例覆盖了前一个实例,但我找不到添加新实例的方法。
Dim body As New Dot
Sub AddToSnake(ByVal i As Integer)
'add 1 dot on to the back of the snake
body.Location = New Point(50 + i, 50)
body.Visible = True
Me.Controls.Add(body)
End Sub
我曾尝试使用 body(i) 和其他方式添加对象的新实例,但被卡住了。当需要新的控件时,将调用该子程序。