VB.NET的DataSource定义，定义多个点的位置如何使用For循环

Question

  VB.NET中：

在DataSource中，.Locantion = New Point((SizeHeight + 0) * (value.IndexOf(item) Mod 32), (SizeWidth + 0) * (value.IndexOf(item) \ 32)),。这句是16*32的阵列排布，但我想要得到512个框是以不规则排布的，每个框的中心坐标通过自己For循环定义，我该怎么去修改？

下面是我改后程序，但是识别不了For语句，只能识别For循环的最后一个点

 Public Property DataSource As List(Of String)
        Get
            Return (From item In DrawItems Select item.Name).ToList
        End Get
        Set(value As List(Of String))
            Dim a As Double = 0
            Dim b As Double = 0
            For i = 0 To 511
                a = a + 1
                b = b + 1

                DrawItems.Clear()
                DrawItems.AddRange(From item In value Select New RenderingAttribute() With {
                                   .Name = item,
                                   .Locantion = New Point(a, b),
                                   .Size = New Size(SizeWidth, SizeHeight),
                                   .LayerIndex = 0})
                Continue For
            Next
        End Set
    End Property

 

Answer 1

现场v不能