Public Class Form1
Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click
If MessageBox.Show("Apakah Data Yang Anda Masukkan Sudah Benar?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
TxtNim.Clear()
TxtNama.Clear()
TxtNim.Focus()
Else
TxtNim.Focus()
End If
End Sub
End Class
VB (Program MessageBox)
Category:
0
komentar
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar