[مقال] Generic Delegates - Func and Action - نسخة قابلة للطباعة

PHP كود :

       Dim img As Bitmap = My.Resources.stripImage
        Dim counter As Integer = img.Width / img.Height
        Dim r As Rectangle = New Rectangle(0, 0, img.Height, img.Height)
        For i As Integer = 0 To counter - 1
            Dim current As Bitmap = img.Clone(r, img.PixelFormat)
            current.MakeTransparent(Me.BackColor)
            images.Add(current)
            r.X += img.Height
        Next

        PictureBox1.Image = images(0)
        PictureBox2.Image = images(1)
        PictureBox3.Image = images(2)
        PictureBox4.Image = images(3)
        PictureBox5.Image = images(4)
        PictureBox6.Image = images(5)
        PictureBox7.Image = images(6)
        PictureBox8.Image = images(7)

PHP كود :

ImageList1.TransparentColor = Me.BackColor

        Dim img As Bitmap = My.Resources.stripImage
        Dim counter As Integer = img.Width / img.Height
        Dim r As Rectangle = New Rectangle(0, 0, img.Height, img.Height)
        For i As Integer = 0 To counter - 1
            Dim current As Bitmap = img.Clone(r, img.PixelFormat)
            current.MakeTransparent(Me.BackColor)
            ImageList1.Images.Add(current)
            r.X += img.Height
        Next

        PictureBox1.Image = ImageList1.Images(0)
        PictureBox2.Image = ImageList1.Images(1)
        PictureBox3.Image = ImageList1.Images(2)
        PictureBox4.Image = ImageList1.Images(3)
        PictureBox5.Image = ImageList1.Images(4)
        PictureBox6.Image = ImageList1.Images(5)
        PictureBox7.Image = ImageList1.Images(6)
        PictureBox8.Image = ImageList1.Images(7)

PHP كود :

Public Class CairoImageList
    Implements IDisposable

    Private _list As ImageList

    Public Sub New()
        Me.New(CType(Nothing, ImageList))
    End Sub
    Public Sub New(list As ImageList)
        _list = list
    End Sub

    Protected ReadOnly Property ImageList As ImageList
        Get
            Return _list
        End Get
    End Property

    Protected Overloads Sub Ondisposed()
        If _list IsNot Nothing Then
            _list.Dispose()
            _list = Nothing
        End If
    End Sub
#Region "IDisposable Support"
    Private disposedValue As Boolean ' To detect redundant calls

    ' IDisposable
    Protected Overridable Sub Dispose(disposing As Boolean)
        If disposedValue Then
            Return
        End If

        If disposing Then
            ' TODO: dispose managed state (managed objects).
            Ondisposed()
        End If

            ' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
            ' TODO: set large fields to null.
            disposedValue = True
    End Sub

    ' TODO: override Finalize() only if Dispose(disposing As Boolean) above has code to free unmanaged resources.
    'Protected Overrides Sub Finalize()
    '    ' Do not change this code.  Put cleanup code in Dispose(disposing As Boolean) above.
    '    Dispose(False)
    '    MyBase.Finalize()
    'End Sub

    ' This code added by Visual Basic to correctly implement the disposable pattern.
    Public Sub Dispose() Implements IDisposable.Dispose
        ' Do not change this code.  Put cleanup code in Dispose(disposing As Boolean) above.
        Dispose(True)
        ' TODO: uncomment the following line if Finalize() is overridden above.
        ' GC.SuppressFinalize(Me)
    End Sub
#End Region
End Class