Langsung ke konten utama

Postingan

Menampilkan postingan dari Desember, 2015

Tips dan Trik InputBox/MsgBox

Mendeteksi Tombol Cancel/Close InputBox     st = InputBox("Mendeteksi Tombol Cancel Atau Close")     If StrPtr(st) = 0 Then         MsgBox "Anda menekan tombol cancel/close"     End If Login dengan InputBox a:     st = InputBox("Masukan pass", "ADMIN")     If StrPtr(st) = 0 Then         End     End If     If Not st = upass Then         MsgBox "Password Salah !!!", vbCritical         GoTo a     End If     'tulis statemen di sini MsgBox "Selamat Datang" Membuat dialog keluar dari app dengan MsgBox Dim pilihan As Integer pilihan = MsgBox("Apa anda ingin keluar", vbYesNo + vbInformation, "Keluar")     If pilihan = vbYes Then         End ...