Gelandang Internet yang mencoba melewati lorong sempit tanpa batas ruang dan waktu
Joint Venture Adsense

Cara membuat messagebox di Visual Basic (VB) 6.0

· · 0 comments
Assalamu'alaikum, wr.wb

Cara membuat messagebox di Visual Basic (VB) 6.0 - Pada tutorial dasar VB untuk pemula kali ini saya akan membahas penggunaan MsgBox di Visual Basic. MessageBox atau istilah yang lebih familiar dikalangan para programmer yaitu dialog box. Adalah sebuah pesan atau jendela dialog dengan menampilkan pilihan command sehingga user bisa mengeksekusi salah satu command (baca-tombol) dan program akan merespon atau melaksanakan kondisi seperti yang telah direncanakan seorang programmer pada command yang bersangkutan (muda-mudahan sahabat mengerti maksudnya, sebab barangkali racikan kata-kata saya terlalu tinggi, hehe). Analogi yang lebih mudah seperti ketika kita hendak menghapus sebuah file di handphone, maka akan keluar dialog box pilih "yes" atau "no". naahhhh ituh! yang saya maksud, XD. massagebox atau dialog box (msgbox) yang akan kita buat kali ini menggunakan VB (Visual Basic) 6.0. Untuk memahami konsep koneksi database saudara juga bisa baca artikel saya cara koneksi dabase acces dengan AdoDc di VB.

 Desain seperti gambar dibawah in, dialog box atau messagebox akan kita tanamkan di command "simpan"

tutorial pembuatan msgbox di VB 6.0













Masukkan source code program seperti gambar.
atau bisa copas ini

Private Sub Command1_Click()
Dim pesan  As Integer 
    pesan = MsgBox("apakah data sudah benar ?", vbInformation + vbYesNo, "Peringatan")
    If pesan = vbYes Then
         'Masukkan proses penyimpanan
     Else
         'Kondisi yang ingin ditambahkan, misal kondisi keluar"
    End If
End Sub



Proses meesage box (dialog box) di Visual Basic (VB) 6.0 telah selesai.

tutorial pembuatan msgbox di VB 6.0 dengan mudah
















untuk merapkan message box di program entri data buku pada pembahasan  cara koneksi database acces di VB menggunakan AdoDc.  berikan sentuhan coding dibawah ini :

Dim p As Integer
       p = MsgBox("Isi Data Lagi ?", vbInformation + vbYesNo, "Aplikasi Perpustakaan Danish. F")
       If p = vbYes Then
             Text1.Text = ""
             Text2.Text = ""
             Text3.Text = ""
             Text3.Text = ""
             Text4.Text = ""
             Text1.SetFocus
        Else
            End
       End If



 tutorial dialog box di VB 6.0











Penampakan hasil setelah dipoles dengan massage box atau kotak dialog.

cara membuat dialog box di vb 6.0




Demikian cara membuat  msgbox di Visual Basic (VB) 6.0 muda-mudahan bermanfaat bagi bangsa dan agama. aminn.baca juga cara membuat program simpan, edit dan hapus di Visual Basic dan download ebook gratis tutorial VB .


15 Sya'ban 1435 H / 13 Juni 2014

Content by : DAnish Fathurrahman

0 comments:

Post a Comment

- Komentar yang mengandung hujatan, negatif akan dianggap spam
- Komentar link akan dilaporkan ke posyandu terdekat & tidak akan ditampilkan