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

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
    End If

MsgBox "Anda tidak jadi keluar dari app, Thanks"

Menembak cewek dengan MsgBox atau membuat virus cinta sampai target mengatakan "Ya"

Dim i As Integer

Do Until i = vbYes
i = MsgBox("Apa Kamu Mencintai Ku", vbYesNo + vbQuestion, " ILoveYou")
Loop

End

Sekian dulu. Thanks

Komentar

Postingan populer dari blog ini

Pemahaman Do While dan Do Until

Proses Pengulangan dengan menggunakan Do While dan Do Until adalah proses pengulangan yang di tentukan oleh sebuah kondisi, sama seperti statement IF Then Else beda nya do While adalah untuk proses pengulangan yang artinya proses akan berulang terus sesuai kondisi apa yang di berikan. 1/ Do While Proses Pengulangan dengan menggunakan do while adalah sebuah proses pengulangan dalam kondisi benar/true, jadi jika nilai pada sebuah kondisi adalah benar/true maka proses akan terus berulang dan akan berhenti jika nilai pada sebuah kondisi adalah salah/false. Contoh; dim a as integer a = 1 Do While a < 10 MsgBox a a = a + 1 Loop Dari coding diatas, kita membuat variable "a" sebagai integer, dan 1 adalah nilainya, berarti a adalah 1. Selanjutnya adalah melakukan perulangan dengan menentukan kondisi yang benar, bahwa "1 itu lebih kecil dari 10". Karena kondisi yang di tentukan adalah kondisi yang benar maka proses pengulangan di ...

Baca selengkapnya

Fungsi Like Operator : VB 6.0

Like Operator : Visual Basic 6.0 *Membandingkan String dengan pattern(string yang akan dibandingkan) Syntax result = string Like pattern Parameter result variable bertype data boolean string variable bertype data string pattern variable bertype data string

Baca selengkapnya

Memisahkan Angka Dan Huruf

Pada kesempatan kali ini kembali berbagi tutorial seputar VB6 untuk mengatasi permasalahan string yang mengharuskan output tidak mencampur adukan antara angka/nomer dengan huruf/karakter pada kondisi kondisi tertentu. Kita bisa mengatasi masalah ini dengan sangat mudah jika kalian telah mengetahui fungsi fungsi string pada visual basic yang kadang di anggap tidak begitu penting bagi kaum yang baru belajar terus ingin mahir dalam 24 jam HaHa, belum tau dan ngerti apa-apa main lompat ke pemograman database, gak heran setiap tindakan nya selalu di landa kebingungan terus ujung ujungnya mampir ke forum dengan pertanyaan yang tidak terkesan ada usaha nya sama sekali.. "bro,tolongin bro tugas kulian nih" HaHa

Baca selengkapnya

Visual Basic 6.0 Indonesia

Cari Blog Ini