vb Array.ConvertAll汎用メソッド

 1 Imports System

 2 Imports System.Drawing

 3 Imports System.Collections.Generic

 4 

 5 Public Class Example

 6 

 7     Public Shared Sub Main()

 8 

 9         Dim apf() As PointF = { _

10             New PointF(27.8, 32.62), _

11             New PointF(99.3, 147.273), _

12             New PointF(7.5, 1412.2)  }

13 

14         Console.WriteLine()

15         For Each p As PointF In apf

16             Console.WriteLine(p)

17         Next

18 

19         Dim ap() As Point = Array.ConvertAll(apf, _

20             New Converter(Of PointF, Point)(AddressOf PointFToPoint))

21 

22         Console.WriteLine()

23         For Each p As Point In ap

24             Console.WriteLine(p)

25         Next

26 

27     End Sub

28 

29     Public Shared Function PointFToPoint(ByVal pf As PointF) _

30         As Point

31 

32         Return New Point(CInt(pf.X), CInt(pf.Y))

33     End Function

34 End Class