MessageBox-nya dapat diganti dengan UserForm
di Userform kita dapat menginsert object Image.
sepertinya hal ini sudah dicontohkan oleh pak puthut..
Kalau harus dengan MsgBox (hasil dari FUNGSI MsgBox),
"gambar"-nya terbatas beberapa saja.
Sebagai sebuah FUNGSI, MsgBox mempunyai 5 arguments.
Sintaks (aturan penulisan-nya) sbb:
MsgBox(prompt[, buttons] [, title] [, helpfile, context])
Argument #2 (buttons) adalah opsional, default-nya vbOkOnly
Jadi kalo inginnya hanya tombol OK; sampeyan ndak perlu menulis
seperti yg sering kita temui di milis:
MsgBox "pesan/prompt", VbOkOnly, "Title")
cukup
MsgBox "pesan/promt", , "title"
Kurung buka dan Kurung Tutup yg mengurungi para arguments hanya perlu dituliskan
jika RETURN VALUE (Respon penekanan tombol atas MsgBox yg muncul) ingin
langung dimasukkan ke sebuah variable
misal
Sub TanyaJawab()
Dim Jawab
Jawab = MsgBox("Mau Ikut atau Tidak ??", vbQuestion + vbYesNo, "PERTANYAAN")
If Jawab = vbYes Then
MsgBox "Mandi dulu dong..!"
Else
MsgBox "Ya udah.. di rumah saja, tapi jangan nakal ya"
End If
End Sub
Pilihan lain dapat dilihat di help MsgBox,
Di sana, minimal ada 4 pilihan argument <buttons> yg dapat menampilkan "gambar":
vbInformation, vbExclamation, vbCiritical, cvQuestion,
atau dapat diganti dengan: nilai 64, 48, 16, 32
Lebih jelasnya dapat dilihat di workbook terlampir..
(rename to *.ZIP please)
> Pada tanggal 24/08/09, ALIEF YANISA <aliefyanisa73@
>
> > *2. Bagaimana agar tampilan messageboxnya adalah gambar(image)
> > yang dapat kita browse pada folders di PC.
> > *
> > Regards,
> > Alief.
| Selamat menjalankan ibadah puasa... |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Nenhum comentário:
Postar um comentário