Membuat Event


Pada Kesempatan Kali ini saya akan membuat Sebuah Event Show Name Pertama buat Form seperti ini


Kemudian Untuk Source Codenya sebagai Berikut :
Fungsi NIM
Public Class Form1
Private WithEvents mhs As New Mahasiswa("43A87006090206", "Arif Perdana")

Private Sub RefreshData() Handles mhs.UbahData
TextBox1.Text = mhs.Nim
TextBox2.Text = mhs.Nama
End Sub
Untuk Ref res Data menggunakan code
Private Sub RefreshData() Handles mhs.UbahData
TextBox1.Text = mhs.Nim
TextBox2.Text = mhs.Nama
End Sub
Kemudian masukkan Fungsi TeksBox Ubah Nama sebagai berikut :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
mhs.Nama = TextBox3.Text
End Sub
Kemudian untuk Fungsi Untuk Input NIM sebagai berikut
Public Class Mahasiswa
Public Event UbahData()
Private _nim As String
Public Property Nim() As String
Get
Return _nim
End Get
Set(ByVal value As String)
_nim = value
End Set
End Property

Kemuduian untuk Fungsi NAMA sebagai berikut :
Public Property Nama() As String
Get
Return _nama
End Get
Set(ByVal value As String)
_nama = value
RaiseEvent UbahData()
End Set
End Property

Public Sub New(ByVal nim As String, _
ByVal nama As String)
Me.Nim = nim
Me.Nama = nama
End Sub
End Class


0 komentar:

Posting Komentar

Semangat Never Die

Diberdayakan oleh Blogger.

Cari Blog Ini