Aplikasi Kode Msgbox Vb6 Secara Terperinci

Tutorial Visual Basic 6 – Artikel kali ini membahas Aplikasi Kode Msgbox Vb6 Secara Terperinci. Kode Msgbox Biasanya digunakan untuk pesan pemberitahuan bila ada Data yang mau dihapus, bila ada ketikan textbox yang salah, bila ada data yang sudah disimpan, bila ada salah satu data yang belum diisi pada textbox saat mau menyimpan data, dan lain-lain. Kita langsung saja Membahas Aplikasi Kode Msgbox Vb6 Secara Terperinci  nya:

Kode Msgbox bisa sederhana , kita gunakan Object  command1 dan Procedure Click untuk melaksanakan Perintah Kodenya :

Private Sub Command1_Click()
MsgBox "Tutorial Visual Basic 6", , "Pemberitahuan"
End Sub

Dan Hasilnya seperti gambar 1 dibawah ini :

Gamba 1 : Tutorial Visual Basic 6

Kode Msgbox Bisa lebih Lengkap, kita gunakan Object Command1 dan Procedure Click Untuk melaksanakan Perintah Kodenya :

Private Sub Command1_Click()
MsgBox "Tutorial Visual Basic 6", vbInformation, "Pemberitahuan"
End Sub

Pada kode diatas “vbInformation” bisa diganti dengan  “vbCritical” bisa diganti “vbOKOnly” dan lain-lain sesuai pilihan yang ada setelah ada tanda koma (,)  dan tentu saja bisa ditambah dengan vbOKOnly atau yang lainnya, seperti pada kode Msgbox seperti dibawah ini :

Private Sub Command1_Click()
MsgBox "Tutorial Visual Basic 6", vbYesNo + vbCritical, "Pemberitahuan"
End Sub

Pada Kode Msgbox diatas, jika command1 di klik maka  Hasil nya akan seperti gambar 2 dibawah  ini :

Gamba 2 : Tutorial Visual Basic 6

Kode Msgbox bisa lebih Rumit dan lebih terlihat profesional, kita gunakan Object command1 dan Procedure Click Untuk melaksanakan Perintah Kode Msgbox dan kita gunakan Text1 untuk tambahan kode Msgbox nya. Perhatikan kode dibawah ini :

Private Sub Command1_Click()
MsgBox "Nama = " & Text1.Text &, vbOKOnly, "Pemberitahuan"
End Sub

Pada kode diatas, ketika kita mengetik sesuatu di text1 kemudian Command1 di klik, maka hasilnya seperti gambar 3 dibawah ini :

Gamba 3 : Tutorial Visual Basic 6

Kode diatas rasanya masih kurang bila tidak ditambah kalimat keterangan lain, dan Kode Msboxnya seperti dibawah ini :

Private Sub Command1_Click()
MsgBox "Nama = " & Text1.Text & " Telah disimpan", vbOKOnly, "Pemberitahuan"
End Sub

Pada kode diatas, Ketika kita mengetik sesuatu di  Text1, kemudian Command1 di klik maka hasilnya seperti gambar 4 di bawah ini :

Gamba 4 : Tutorial Visual Basic 6

:
Kode Msgbox Bisa lebih Rapi dan Terstruktur, kita gunakan Object command1 dan Procedure Click Untuk melaksanakan Perintah Kode Msgbox dan kita gunakan Text1 untuk tambahan kode Msgbox nya. Perhatikan kode dibawah ini :

Private Sub Command1_Click()
MsgBox "Nama = " & Text1 & vbNewLine & "Berhasil Disimpan", vbInformation, "Pemberitahuan"
End Sub

Pada kode diatas, Penambahan Kode ” vbNewline” akan membuat kata “Berhasil Disimpan” berada di  garis baru dibawah. Bila Command1 di Klik maka hasil gambarnya seperti pada gambar 5 dibawah ini :

Gamba 5 : Tutorial Visual Basic 6

Untuk Penambahan Kode vbnewline lagi akan membuat sebuah garis baru lagi, perhatikan kode Msgbox dibawah ini :

Private Sub Command1_Click()
MsgBox "Nama = " & Text1 & vbNewLine & vbNewLine & vbNewLine & vbNewLine & "Berhasil Disimpan", vbInformation, "Pemberitahuan"
End Sub

Pada Kode Msgbox diatas, bakal ada empat baris baru hasil dari empat tambahan kode vbnewline, Sehingga bila Command1 di klik maka hasil gambarnya seperti pada gambar 6 dibawah ini

Gamba 6 : Tutorial Visual Basic 6

Kode Msgbox Pada Keterangan Misal Konten Yes, No, Ignore, dll bisa diisi Kode Untuk pilihan konten tersebut, kita gunakan Object command1 dan Procedure Click Untuk melaksanakan Perintah Kode Msgbox dan kita gunakan Text1 untuk tambahan kode Msgbox nya, lalu Jenis Msgbox yang kita gunakan untuk lebih gampang dan sering dipakai dalam aplikasi Vb6 yaitu “vbYesNo”. Perhatikan kode dibawah ini :

Private Sub Command1_Click()
A = MsgBox("MENGHAPUS DATA " & Text1 & " ?", vbYesNo + vbQuestion, "PEMBERITAHUAN")
If A = vbNo Then
Exit Sub
Else
If A = vbYes Then
End If
End If
MsgBox "Data  Berhasil dihapus", vbInformation, "Pemberitahuan"
End Sub

Hasil Gambarnya seperti gambar 7 dibawah ini :

Gamba 7 : Tutorial Visual Basic 6

Pada gambar diatas, bila di tekan tombol “no” tidak akan terjadi apa-apa, tapi bila di tekan tombol “yes”, maka hasilnya akan muncul pesan seperti pada gambar 8 di bawah ini :

Gamba 8 : Tutorial Visual Basic 6

Sekian Artikel Tentang Membahas Aplikasi Kode Msgbox Vb6 Secara Terperinci, Semoga bermanfaat – Tutorial Visual Basic 6

Share this Aplikasi Kode Msgbox Vb6 Secara Terperinci article :

Facebook Twitter Google+

Artikel Terkait Aplikasi Kode Msgbox Vb6 Secara Terperinci

TENTANG PENULIS

Nanang Sugiarto

Penulis seorang Programmer Aplikasi Database Vb6 dan Blogger. Situs Web yang dibuat Penulis yaitu : Nanang Sugiarto WorkShop, Tutorial VB6 Sugiarto, Tutorial Microsoft Office Sugiarto, dan Seputar Pengetahuan Pangan.