MsgBox Dalam Visual Basic 6 ialah berfungsi sebagai Pesan, bisa berupa pesan singkat atau apapun guna memebritahu user, MsgBox sangat lah diperlukan dalam membuat program coba kalian lihat di bawah ini itu adalah macam macam Notofikasi Msgbox
Macam - Macam MsgBox
- MsgBox Error dalam Program dituliskan vbCritical
- MsgBox Informasi dalam Program dituliskan vbInformation
- MsgBox Tanda Tannya dalam Program dituliskan vbQuestion
- MsgBox Paragraf baru dalam Program dituliskan vbNewLine
- MsgBox Error + Pertanyaan dalam Program dituliskan vbCritical+ vbYesNo
- MsgBox Informasi + Pertanyaan dalam Program dituliskan vbInformation+ vbYesNo
- MsgBox Tanda Tannya + Pertanyaan dalam Program dituliskan vbQuestion + vbYesNo
Mari Kita Jabarkan Source Codenya
Yang Diperlukan Hanyalah Commong Button dalam Project ini
- MsgBox Error
Private Sub Command1_Click()
MsgBox ("Tulis Text Di Sini - Contoh Program"), vbCritical
End Sub
- MsgBox Informasi
MsgBox ("Tulis Text Di Sini - Contoh Program"), vbInformation
End Sub
- MsgBox Tanda Tannya
Private Sub Command4_Click()
MsgBox ("Tulis Text Di Sini - Contoh Program"), vbQuestion
End Sub
- MsgBox Paragraf baru
Private Sub Command5_Click()
MsgBox "Paragraf Atas" _
& vbNewLine & "Paragraf Bawah - Silakan kunjungi www.raw16.blogspot.com", vbInformation, "Information"
End Sub
- MsgBox Error + Pertanyaan
RAW16 = MsgBox("Apakah anda yakin ingin logout?", vbQuestion + vbYesNo, "Logout")
If RAW16 = vbYes Then
Unload Me
End If
End Sub
- MsgBox Informasi + Pertanyaan
Private Sub Command6_Click()
Cmn6 = MsgBox("Apakah anda yakin !!!", vbCritical + vbYesNo, "RAW16")
If Cmn6 = vbYes Then
Unload Me
End If
End Sub
- MsgBox Tanda Tannya + Pertanyaan
Private Sub Command7_Click()
Cmn7 = MsgBox("Apakah anda Setuju ", vbQuestion + vbYesNo, "www.raw16.blogspot.com")
If Cmn7 = vbYes Then
Unload Me
End If
End Sub
Note : Command Bisa Anda Rubah Sesuai Program anda, dan cmn6, cmn7 dan RAW16 itu untuk membatu logika so rubah selera anda
[info title="Full Source Coe Visual Basic " icon="info-circle"]
' ----------------------------------------------------
' Rizki Aditya Wiratama 6 - 19 - 2016
' www.raw16.blogspot.com
'--------------------------------------------------------
Private Sub Command1_Click()
MsgBox ("Tulis Text Di Sini - Contoh Program"), vbCritical
End Sub
Private Sub Command2_Click()
MsgBox ("Tulis Text Di Sini - Contoh Program"), vbInformation
End Sub
Private Sub Command3_Click()
RAW16 = MsgBox("Apakah anda yakin ingin logout?", vbQuestion + vbYesNo, "Logout")
If RAW16 = vbYes Then
Unload Me
End If
End Sub
Private Sub Command5_Click()
MsgBox "Paragraf Atas" _
& vbNewLine & "Paragraf Bawah - Silakan kunjungi www.raw16.blogspot.com", vbInformation, "Information"
End Sub
Private Sub Command6_Click()
Cmn6 = MsgBox("Apakah anda yakin !!!", vbCritical + vbYesNo, "RAW16")
If Cmn6 = vbYes Then
Unload Me
End If
End Sub
Private Sub Command7_Click()
Cmn7 = MsgBox("Apakah anda Setuju ", vbInformation + vbYesNo, "www.raw16.blogspot.com")
If Cmn7 = vbYes Then
Unload Me
End If
End Sub
Private Sub Form_Load()
MsgBox "Terimakasih Telah Mendownload :)" _
& vbNewLine & "Untuk Program Menarik Lainnya Kunjungi www.raw16.blogspot.com", vbInformation, "RAW16"
End Sub
[/info]