Menggunakan Varians dalam Delegasi (Visual Basic)

Saat Anda menetapkan metode ke delegasi, kovariansi dan kontravarian memberikan fleksibilitas untuk mencocokkan jenis delegasi dengan tanda tangan metode. Kovarian memungkinkan metode untuk memiliki jenis pengembalian yang lebih khusus daripada yang ditentukan dalam delegasi. Kontravarian memungkinkan metode yang memiliki jenis parameter yang kurang diturunkan daripada yang ada dalam jenis delegasi.

Contoh 1: Kovarians

Deskripsi

Contoh ini menunjukkan bagaimana delegate dapat digunakan dengan metode yang memiliki tipe pengembalian yang diturunkan dari tipe pengembalian dalam tanda tangan delegate. Jenis data yang dikembalikan oleh DogsHandler adalah dari jenis Dogs, yang diturunkan dari jenis Mammals yang ditentukan dalam deleget.

Kode

Class Mammals
End Class

Class Dogs
    Inherits Mammals
End Class
Class Test
    Public Delegate Function HandlerMethod() As Mammals
    Public Shared Function MammalsHandler() As Mammals
        Return Nothing
    End Function
    Public Shared Function DogsHandler() As Dogs
        Return Nothing
    End Function
    Sub Test()
        Dim handlerMammals As HandlerMethod = AddressOf MammalsHandler
        ' Covariance enables this assignment.
        Dim handlerDogs As HandlerMethod = AddressOf DogsHandler
    End Sub
End Class

Contoh 2: Kontravariansi

Deskripsi

Contoh ini menunjukkan bagaimana delegasi dapat digunakan dengan metode yang memiliki parameter yang jenisnya adalah jenis dasar dari jenis parameter tanda tangan delegasi. Dengan kontravariansi, Anda dapat menggunakan satu penanganan aktivitas alih-alih handler terpisah. Contoh berikut menggunakan dua delegasi:

• KeyEventHandler Delegasi yang menentukan tanda tangan peristiwa Button.KeyDown. Tanda tangannya adalah:

  Public Delegate Sub KeyEventHandler(sender As Object, e As KeyEventArgs)
  

• MouseEventHandler Delegasi yang menentukan tanda tangan peristiwa Button.MouseClick. Tanda tangannya adalah:

  Public Delegate Sub MouseEventHandler(sender As Object, e As MouseEventArgs)
  

Contoh mendefinisikan penangan kejadian dengan parameter EventArgs dan menggunakannya untuk menangani kejadian Button.KeyDown dan Button.MouseClick. Ini dapat melakukan ini karena EventArgs adalah jenis dasar dari KeyEventArgs dan MouseEventArgs.

Kode

' Event handler that accepts a parameter of the EventArgs type.
Private Sub MultiHandler(ByVal sender As Object,
                         ByVal e As System.EventArgs)
    Label1.Text = DateTime.Now
End Sub

Private Sub Form1_Load(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles MyBase.Load

    ' You can use a method that has an EventArgs parameter,
    ' although the event expects the KeyEventArgs parameter.
    AddHandler Button1.KeyDown, AddressOf MultiHandler

    ' You can use the same method
    ' for the event that expects the MouseEventArgs parameter.
    AddHandler Button1.MouseClick, AddressOf MultiHandler
End Sub

Lihat juga

• Variansi dalam Delegasi (Visual Basic)
• Menggunakan Variasi untuk Pendelegasian Generik Func dan Action (Visual Basic)