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 Notifikasi MsgBox VB6

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
Private Sub Command2_Click()
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
Private Sub Command3_Click()
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]


Download Project

Post a Comment

 
Top