MsgBox membuat jendela dialog dengan dengan pesan agar pengguna memberikan tanggapan dengan mengklik salah satu tombol yang ada.
Format penulisan : MsgBox(prompt[, Kode_Tombol]][, title][, helpfile, context])
i = msgbox (“Read this !”, vbOKOnly, “Test Message”)
InputBox membuat jendela dialog input data yang meminta untuk memasukkan data string.
Format penulisan : InputBox(prompt[, title][, default][, xpos][, ypos][, helpfile, context])
Dim Message, Title, Default, MyValue
Message = “Enter a value between 1 and 3”
Title = “InputBoxDemo” ‘set title
MyValue = InputBox(Message, Title, Default)
‘ Helpfile and context, add Help button automatically
MyValue = InputBox(message, Title, , , , ”DEMO.HLP”, 10)
‘ Display dialog box at posotion 100,100
MyValue = InputBox(Message, Title, Default, 100, 100)
Tidak ada komentar:
Posting Komentar