Aplikasi MsgBox Sederhana dengan Visual Basic 2008

Baca Juga

• Buat lah project baru

• Masukkan kontrol – kontrol berikut :

No	Object	Property	Nilai
1	Form1	Text	Aplikasi MsgBox
2	Label1	Text	Masukkan nama anda :
3	Label2	Text	Masukkan usia anda :
4	TextBox1	Name Text	TxtNama -
5	TextBox2	Name Text	TxtUsia -
6	Button1	Name Text	BtnProses Proses
7	Button2	Name Text	BtnKeluar Keluar

 

• Desain project sesuai dengan gambar berikut :

 

• Masukkan kode program berikut pada tombol BtnProses

Private Sub BtnProses_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles BtnProses.Click

        MsgBox("Nama : " + TxtNama.Text + " Usia " + TxtUsia.Text, MsgBoxStyle.Information, "Informasi")

End Sub

• Masukkan kode program berikut pada tombol BtnProses

Private Sub BtnKeluar_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles BtnKeluar.Click

        Dimpesan As String

        pesan = MsgBox("Anda yakin keluar?", MsgBoxStyle.Question + MsgBoxStyle.OkCancel, "Peringatan")

        Ifpesan = MsgBoxResult.Ok Then

            End

        EndIf

End Sub

• Jalankan program, masukan nama dan usia anda. Jika program berhasil maka saat anda meng-klik tombol Proses  nama dan usia anda akan ditampilkan pada Message Box.

 

Subscribe to receive free email updates: