Harap posting sesuai dengan Kategorinya agar anggota yang lain mudah dalam bernavigasi!
0 Members and 1 Guest are viewing this topic.
saya sedang mempersiapkan untuk share custom messagebox yang saya ambilkan dari zetoc pro 3
*************************************************************************Program Name : myMsgBoxCreator : tazLicense : GPL / Free to use either for commercial or personal use*************************************************************************Cara pakai1. Save program dibawah atau tambahkan dalam procedure yang sudah ada2. Set procedure ke program tersebut3. Untuk memanggil berikan perintah : =myMsgBox(2,cPassLogin,0,.F.)Untuk keterangan parameter dilihat di list program dibawah**************************************************************************!* LIST PROGRAM*************************************************************************PROCEDURE myMsgBox PARAMETERS nTipeLogo,cConfirmText,nAlignment,lWithReturnValue*!* nTipeLogo lists*!* 1 = msgHelp*!* 2 = msgExclamation*!* 3 = msgInfo*!* 4 = msgStop*!* cConfirmationText = Isi text messagebox*!* nAlignment*!* 0 = Left*!* 1 = right*!* 2 = center*!* lWithReturnValue*!* .T. = with return value*!* .F. = without return value IF lWithReturnValue DO FORM msgBox WITH 2,cConfirmText,0 TO lNilaiRet RETURN lNilaiRet ELSE DO FORM msgBox WITH 2,cConfirmText,0 ENDIFENDPROC**************************************************************************!* END LIST PROGRAM*************************************************************************
Declare Integer MBox in HTWindow ; String cMsg, String cTitle, ; Integer nBtnType, Integer nTimeout, Integer nBlinkTitle, ; Long nIconID, String cBtnCaption? MessageBox( 'MessageBox versi sebenarnya', 'Perhatian', 64 )? MBox( 'MessageBox yg dimodikasi', 'Perhatian', 64, ; 0, 0, 0, '&Baiklah')? MBox( 'MessageBox yg dimodikasi', 'Perhatian', 64, ; 0, 0, 0, '&Monggo')? MessageBox( 'MessageBox versi sebenarnya', 'Perhatian', 64+4 )? MBox( 'MessageBox dengan Bahasa Indonesia', 'Perhatian', 64+4, ; 0, 0, 0, '&Ya|&Tidak')? MessageBox( 'MessageBox versi sebenarnya', 'Perhatian', 64+3 )? MBox( 'MessageBox dengan Bahasa Indonesia', 'Perhatian', 64+3, ; 0, 0, 0, '&Ya|&Tidak|&Batal')Clear DLLs
Mas Sinyo, waktu saya click link nya, kok di halaman tsb ga ada apa2 ? Coba deh dicek lagi, mungkin kelupaan atau gimana gitu
.... thanks mr. sinyo sudah sharing...
Ohhh...iya tuh...udah bisa pake FireFox...hehehe . Thanks for sharing mas Sinyo
Bukan, belum ada release baru. Masih sibuk banget nih sama proyek saya (client minta nambah terus, duit ga nambah ).
Itu cuma halaman download nya UT aja yg baru...jadi semua nya dianggap file2 baru, begitu mas Sinyo
Sama-sama, senang bisa berbagi...jika ada yang kurang..silahkan dimodif sesuai keinginan, dan dishare lagi kesini
Quote from: HermanT on May 12, 2008, 04:32:40 PMBukan, belum ada release baru. Masih sibuk banget nih sama proyek saya (client minta nambah terus, duit ga nambah ). Bisa aja Bapak ini ...
Oh gitu ya, btw terima kasih juga sharingnya ...sukes untuk anda
Saya kemarin janji upload source code untuk custom messagebox, rekan2 yang berminat bisa ambil disini :http://komputer.irenk.com/?mz=free#126NB: - Kang Tolo ..makasih udah bantuin upload dan nyediakan space.
bung Sinyo, saya udah build mboxres jadi dll, tapi cara pakainya bagaimana ya?
Pak sinyo terus klo sudah saya registrasikan cara pakainya gmana lagi