Arraylist доступ к х и у, когда точка рисования находится внутри

Question

Я хочу получить доступ к массиву, который содержит точки. Приведенный ниже пример работает со строгой опцией off. Но как я могу сделать это на правильном пути с опцией строго? Большое спасибо заранее!

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

Вы можете рассмотреть возможность использования обобщенных c коллекций (например, 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