Bagikan melalui

Panduan: Membuat dan Menerapkan Antarmuka (Visual Basic)

Antarmuka menjelaskan karakteristik properti, metode, dan peristiwa, tetapi membiarkan detail implementasi hingga struktur atau kelas.

Panduan ini menunjukkan cara mendeklarasikan dan mengimplementasikan antarmuka.

Nota

Panduan ini tidak memberikan informasi tentang cara membuat antarmuka pengguna.

Nota

Komputer Anda mungkin menampilkan nama atau lokasi yang berbeda untuk beberapa elemen antarmuka pengguna Visual Studio dalam instruksi berikut. Edisi Visual Studio yang Anda miliki dan pengaturan yang Anda gunakan menentukan elemen-elemen ini. Untuk informasi lebih lanjut, lihat Mempersonalisasi IDE.

Untuk menentukan antarmuka

  1. Buka proyek Aplikasi Windows Visual Basic baru.

  2. Tambahkan modul baru ke proyek dengan mengklik Tambahkan Modul pada menu Proyek .

  3. Beri nama modul Module1.vb baru dan klik Tambahkan. Kode untuk modul baru ditampilkan.

  4. Tentukan antarmuka bernama TestInterface dalam Module1 dengan mengetik Interface TestInterface antara Module pernyataan dan End Module , lalu tekan ENTER. Editor Kode mengindenInterface kata kunci dan menambahkan End Interface pernyataan untuk membentuk blok kode.

  5. Tentukan properti, metode, dan peristiwa untuk antarmuka dengan menempatkan kode berikut antara Interface pernyataan dan End Interface :

    Property Prop1() As Integer
Sub Method1(ByVal X As Integer)
Event Event1()

Pelaksanaan

Anda mungkin melihat bahwa sintaks yang digunakan untuk mendeklarasikan anggota antarmuka berbeda dari sintaks yang digunakan untuk mendeklarasikan anggota kelas. Perbedaan ini mencerminkan fakta bahwa antarmuka tidak dapat berisi kode implementasi.

Untuk mengimplementasikan antarmuka

  1. Tambahkan kelas bernama ImplementationClass dengan menambahkan pernyataan berikut ke Module1, setelah End Interface pernyataan tetapi sebelum End Module pernyataan, lalu tekan ENTER:

    Class ImplementationClass

    Jika Anda bekerja dalam lingkungan pengembangan terintegrasi, Editor Kode memberikan pernyataan pencocokan End Class saat Anda menekan ENTER.

  2. Tambahkan pernyataan berikut Implements ke ImplementationClass, yang menamai antarmuka yang diterapkan kelas:

    Implements TestInterface

    Ketika dicantumkan secara terpisah dari item lain di bagian atas kelas atau struktur, Implements pernyataan menunjukkan bahwa kelas atau struktur mengimplementasikan antarmuka.

    Jika Anda bekerja dalam lingkungan pengembangan terintegrasi, Editor Kode mengimplementasikan anggota kelas yang diperlukan saat TestInterface Anda menekan ENTER, dan Anda dapat melewati langkah berikutnya.

  3. Jika Anda tidak bekerja dalam lingkungan pengembangan terintegrasi, Anda harus mengimplementasikan semua anggota antarmuka MyInterface. Tambahkan kode berikut ke ImplementationClass untuk mengimplementasikan Event1, Method1, dan Prop1:

    Event Event1() Implements TestInterface.Event1

Public Sub Method1(ByVal X As Integer) Implements TestInterface.Method1
End Sub

Public Property Prop1() As Integer Implements TestInterface.Prop1
    Get
    End Get
    Set(ByVal value As Integer)
    End Set
End Property

    Pernyataan menamai Implements antarmuka dan anggota antarmuka yang diimplementasikan.

  4. Selesaikan definisi Prop1 dengan menambahkan bidang privat ke kelas yang menyimpan nilai properti:

    ' Holds the value of the property.
Private pval As Integer

    Mengembalikan nilai dari pval melalui akses 'get' properti.

    Return pval

    Atur nilai pval di aksesor set properti.

    pval = value

  5. Selesaikan definisi Method1 dengan menambahkan kode berikut.

    MsgBox("The X parameter for Method1 is " & X)
RaiseEvent Event1()

Untuk menguji implementasi antarmuka

  1. Klik kanan formulir startup untuk proyek Anda di Penjelajah Solusi, dan klik Tampilkan Kode. Editor menampilkan kelas untuk formulir startup Anda. Secara default, formulir startup disebut Form1.

  2. Tambahkan bidang berikut testInstance ke Form1 kelas :

    Dim WithEvents testInstance As TestInterface

    Dengan mendeklarasikan testInstance sebagai WithEvents, Form1 kelas dapat menangani peristiwanya.

  3. Tambahkan penanganan aktivitas berikut ke Form1 kelas untuk menangani peristiwa yang dimunculkan oleh testInstance:

    Sub EventHandler() Handles testInstance.Event1
    MsgBox("The event handler caught the event.")
End Sub

  4. Tambahkan subroutine bernama Test ke Form1 kelas untuk menguji kelas implementasi:

    Sub Test()
    '  Create an instance of the class.
    Dim T As New ImplementationClass
    ' Assign the class instance to the interface.
    ' Calls to the interface members are 
    ' executed through the class instance.
    testInstance = T
    ' Set a property.
    testInstance.Prop1 = 9
    ' Read the property.
    MsgBox("Prop1 was set to " & testInstance.Prop1)
    '  Test the method and raise an event.
    testInstance.Method1(5)
End Sub

    Prosedur Test ini membuat instans dari kelas yang mengimplementasikan MyInterface, menetapkan instans tersebut ke bidang testInstance, mengatur properti, dan menjalankan metode melalui antarmuka.

  5. Tambahkan kode pada formulir startup Anda untuk memanggil prosedur Test dari prosedur Form1 Load.

    Private Sub Form1_Load(ByVal sender As System.Object,
                       ByVal e As System.EventArgs) Handles MyBase.Load
    Test() ' Test the class.
End Sub

  6. Jalankan Test prosedur dengan menekan F5. Pesan "Prop1 telah diatur ke 9" ditampilkan. Setelah Anda mengklik OK, pesan "Parameter X untuk Method1 adalah 5" ditampilkan. Klik OK, dan pesan "Penangan kejadian menangkap peristiwa" ditampilkan.

Lihat juga

  • Last updated on