- 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 As
System.Object, ByVal e As
System.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 As
System.Object, ByVal e As
System.EventArgs) Handles BtnKeluar.Click
Dim
pesan As String
pesan = MsgBox("Anda yakin keluar?",
MsgBoxStyle.Question + MsgBoxStyle.OkCancel, "Peringatan")
If
pesan = MsgBoxResult.Ok Then
End
End
If
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.
EmoticonEmoticon