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:

0 Response to "Aplikasi MsgBox Sederhana dengan Visual Basic 2008"

Post a Comment