vb.net - 当一个drawing.point在里面时Arraylist访问x和y

Question

我想访问一个包含点的数组列表。下面的示例适用于选项严格关闭。但是我怎样才能在选项严格的情况下以正确的方式做到这一点？提前谢谢了！

Option Strict Off
Imports System.Drawing

Module Module2
    Sub Main()

        Dim ArrayList As New ArrayList
        Dim R As New Random

        For i = 0 To 9
            ArrayList.Add(New Point(R.Next(50), R.Next(50)))
        Next i

        Dim firstY As Integer = ArrayList(0).Y
        Dim firstX As Integer = ArrayList(0).X

    End Sub
End Module

Answer 1

您可能会考虑使用更类型安全的泛型集合（例如List(Of T)代替ArrayList）：

Imports System.Collections.Generic
Imports System.Drawing

Module Module2
    Sub Main()

        Dim Points As New List(Of Point)
        Dim R As New Random

        For i = 0 To 9
            Points.Add(New Point(R.Next(50), R.Next(50)))
        Next i

        Dim firstY As Integer = Points(0).Y
        Dim firstX As Integer = Points(0).X

    End Sub
End Module

Answer 2

所以这就是解决方案：

        Dim p As Point = CType(ArrayList(0), Point)
        Dim x As Integer = p.X
        Dim y As Integer = p.Y