MsgBox dan InputBox

Macam-macam MsgBox:

vbOKOnly

vbOKCancel

vbAbortRetryIgnore

vbYesNoCancel

vbYesNo

vbRetryCancel

Nilai kembalian:

1.       vbOK

2.       vbCancel

3.       vbAbort

4.       vbRetry

5.       vbIgnore

6.       vbYes

7.       vbNo

Contoh:

Private Sub cmdkeluar_Click()

If MsgBox("yakin ingin keluar aplikasi ?", vbYesNo + vbDefaultButton2 + vbQuestion, "Question") = vbYes Then

End

End If

End Sub

Private Sub Command1_Click()

z = MsgBox("yakin mau keluar?" & vbNewLine & "Pilih Yes atau No" & vbNewLine & "(zkashare tutor)", vbYesNo + vbQuestion, "Pertanyaan")

        If z = vbYes Then

        End

        Else

        MsgBox "Tidak jadi keluar" & vbNewLine & "OK", vbOKOnly, "Info"

        End If

End Sub

Private Sub Command1_Click()

Dim pesan As Integer

pesan = MsgBox("Tekan Ok untuk proses selanjutnya", vbYesNoCancel + vbExclamation, "Aplikasi MsgBox (Title)")

If pesan = 6 Then

    Label1.Caption = "Anda baru saja menekan tombol Yes"

ElseIf pesan = 7 Then

    Label1.Caption = "Anda baru saja menekan tombol No"

Else

    Label1.Caption = "Anda baru saja menekan tombol Cancel - Fail"

End If

End Sub

INPUT Box

Private Sub Command1_Click()

Dim pesan As String

pesan = InputBox("Masukkan pesan Anda", "Aplikasi InputBox (Title)", "Masukkan pesan Anda di sini", 1400, 600)

If pesan <> "" Then

    Label1.Caption = pesan

Else

    Label1.Caption = "Tidak Ada Pesan"

End If

End Sub