Membuat Pesan Pemberitahuan Pada Setiap Tombol Di Form Visual Basic 6 ~ Aneka Tutorial Pemrograman

Untuk Source Code Pesan Pemberitahuan Pada setiap Button atau Tombol yang anda buat pada Form Source Code nya adalah sebagai berikut :

1. Pesan pemberitahuan pada Button Simpan atau Save

Masukan Source Code di bawah ini ke dalam Button Simpan atau Save.

Private Sub cmdsimpan_Click()

X = MsgBox("Data Sudah Disimpan", , "SIMPAN DATA")

end sub

Maka hasilnya akan nampak seperti pada gambar di bawah ini.

2. Pesan pemberitahuan pada Button Ubah atau Edit

Masukan Source Code di bawah ini ke dalam Button Ubah atau Edit.

Private Sub cmdedit_Click()

Dim a
a = MsgBox("Apakah Anda Ingin Merubah Data?", vbQuestion + vbYesNo, "Ubah Data")
If a = vbYes Then
MsgBox "Data Berhasil Di Edit", vbInformation, "Berhasil Ubah Data"
Unload Me
End If

end sub

Maka hasil nya akan nampak seperti pada gambar di bawah ini.

Jika Anda menekan tombol "Yes" pada pilihan seperti pada gambar di atas,maka akan nampak seperti pada gambar di bawah ini.

3. Pesan pemberitahuan pada Button Hapus atau Delete

Masukan Source Code di bawah ini ke dalam Button Hapus atau Delete.

Private Sub cmdhapus_Click()
Dim x
x = MsgBox("Anda Yakin Ingin Menghapus Data Ini.?", vbQuestion + vbYesNo, "Hapus Data")
If x = vbYes Then
MsgBox "Data Berhasil Dihapus..!!", vbInformation, "Hapus Data Berhasil"
Else
Exit Sub
End If
End Sub

Maka hasil nya akan nampak seperti pada gambar di bawah ini.

Jika Anda tekan tombol "yes",maka akan tampak tampilan seperti pada gambar di bawah ini.

4. Pesan pemberitahuan pada Button Cari atau Find.

Masukan Source Code di bawah ini ke dalam button Cari atau Find

Private Sub cmdcari_Click()

Dim vCari As String
vCari = InputBox("Silahkan Masukan Data Yang Anda Cari ", "Cari")
If Len(vCari) = 0 Then
    MsgBox "Tidak Ada Data,Silahkan Masukan Data?", , "Pencarian Data"
    Exit Sub
End If
    MsgBox "Maaf..!! Data Tidak Di Temukan", , "Pencarian Data"

end sub

Maka hasilnya akan nampak seperti pada gambar di bawah ini.

Jika pada pesan pencarian anda mengosongkan data nya,maka jika anda tekan tombol "OK" akan tampil pesan pemberitahuan seperti pada gambar di bawah ini.

Jika pada Pencarian Data nya Anda Masukan dengan Data yang tidak ada pada Datagrid anda,maka akan tampil pesan pemberitahuan seperti pada gambar di bawah ini.

5. Pesan pemberitahuan pada Button Keluar atau Exit.

Masukan Source Code di bawah ini ke dalam Button Keluar atau Exit.

Private Sub Command1_Click()
Dim X
X = MsgBox("Apakah Anda Ingin Keluar..?", vbQuestion + vbYesNo, "Keluar Dari Aplikasi")
If X = vbYes Then
Unload Me
Else
Cancel = 1
End If
End Sub

Maka hasilnya akan nampak seperti pada gambar di bawah ini.