Create a funny custom Message Box ! ~ ၿငိမ္းခ်မ္းသူ(နည္းပညာ)

ကေလးကလားေတာ့ နဲနဲ ဆန္တယ္ဗ်ာ။ သေဘာက်စရာေတာ့ အေတာ္ေကာင္းတယ္။ ကြ်န္ေတာ္တို႕

windows ေပၚမွာ ကိုယ္ပိုင္ ဖန္တည္းထားတဲ့ message box ေလး ေပၚလာေအာင္လုပ္နည္းပါ။ ဒီလိုဗ်ာ ..

အဲလို message box သေဘာမ်ိဳးေပါ့။ စာေလးတစ္ေၾကာင္းေရးလိုက္ရံုနဲ႕ ေပၚေစတာေပါ့ဗ်ာ။ vbs လို႔ေခၚတဲ့ Visual Basic Script ေပါ့။ လြယ္လြယ္ေလးပါဗ်ာ။ Notepad ထဲမွာေရးလိုက္ရုံပါ။

ျမွားနဲ႔ ျပထားတာေတြကေတာ့ အဲဒီ function ကို ဘယ္လိုဖြဲ႕စည္းထားသလဲေပါ့။ function name ျဖစ္တဲ့ msgbox ဆိုတာကေတာ့ မျဖစ္မေနပါရမွာေပါ့ဗ်ာ။ သူ႕ေနာက္က " .." ၾကားက စာသားကေတာ့ ကိုယ္ေပၚခ်င္တဲ့ဟာေပါ့။ 64 ဆိုတာကေတာ့ အမ်ိဳးအစားေပါ့ဗ်ာ။ Error Box, Warning Box, Information Box စတာေတြေပါ့။ 64 ဆိုတာကေတာ့ Information Box အမ်ိဳးအစားလို႔ေျပာလိုက္တာေပါ့ဗ်ာ။ ေနာက္ဆံုးက ဟာကေတာ့ message box ရဲ႕ ေခါင္းစဥ္ေပါ့ဗ်ာ။ အဲလိုေရးၿပီးတဲ့ေနာက္ ကြ်န္ေတာ္တို႕က file >> Save as ကေန သိမ္းရမယ္။

သိမ္းတဲ့အခါမွာ အေရးၾကီးဆံုးအခ်က္ေတြကေတာ့ ..
၁။ filename ရဲ႕ေနာက္မွာ .vbs ဆိုပီးextension ထည့္ေပးရမယ္။
၂။ Save as type မွာ All Files ကိုေရြးရမယ္။
၃။ Encoding မွာေတာ့ ကြ်န္ေတာ္တို႕က ျမန္မာစာလံုးေပၚခ်င္တဲ့ အတြက္ Unicode လို႕ ေရြးရမယ္။ တကယ္လို႕ unicode မဟုတ္တဲ့စာေတြဆိုရင္ေတာ့ သူ႔မူရင္းအတိုင္းထားလိုက္ရံုပါပဲဗ်ာ။
အားလံုးေရြးၿပီးတဲ့အခါ ကြ်န္ေတာ္တို႕ Save ကို click ပါမယ္။ အဲဒါဆိုရင္ေတာ့ ေအာက္ကပံုေလးအတိုင္း file တစ္ခုရမွာ ျဖစ္ပါတယ္။

အဲဒီဖိုင္ကို ဖြင့္ၾကည့္လိုက္ရင္ေတာ့ .. ကြ်န္ေတာ္တို႕ ကိုယ္ပိုင္ေရးထားတဲ့ Message Box ေလးေပၚလာမွာ ျဖစ္ပါတယ္။ source file ကေတာ့ ဒီမွာပါ ။

Message Box အမ်ိဳးအစားေတြကေတာ့ ေအာက္မွာပါ ..။ 64 ဆိုတဲ့ေနရာကို အစားထိုးလို႕ရတဲ့ number ေတြျဖစ္ပါတယ္။

0 = vbOKOnly - OK button only
1 = vbOKCancel - OK and Cancel buttons
2 = vbAbortRetryIgnore - Abort, Retry, and Ignore buttons
3 = vbYesNoCancel - Yes, No, and Cancel buttons
4 = vbYesNo - Yes and No buttons
5 = vbRetryCancel - Retry and Cancel buttons
16 = vbCritical - Critical Message icon
32 = vbQuestion - Warning Query icon
48 = vbExclamation - Warning Message icon
64 = vbInformation - Information Message icon
0 = vbDefaultButton1 - First button is default
256 = vbDefaultButton2 - Second button is default
512 = vbDefaultButton3 - Third button is default
768 = vbDefaultButton4 - Fourth button is default
0 = vbApplicationModal - Application modal

ကဲဗ်ာ ပိုၿပီး ရွဳပ္ေထြးတဲ့ ဟာေလး တစ္ခုေလာက္လုပ္ရေအာင္ဗ်ာ။ Do u remember me? ဆိုတာမ်ိဳးေလးေပါ့။

No ဆိုၿပီး ႏိွပ္ရင္ေတာ့ .. ေအာက္က message box ထပ္ေပၚလာမွာ ျဖစ္ပါတယ္။ Yes လို႕ မေျပာ မခ်င္း ေပၚေနမွာပါ။

Yes ကို ႏွိပ္လိုက္မွသာ .. ေအာက္က box ေပၚလာၿပီး close သြားမွာျဖစ္ပါတယ္။

x=msgbox("သတိရရဲ႕လား ?",4,"ကဲ .. ေျပာ")
If x<>6 Then
Do
    x=msgbox("သတိမရဘူးဆိုရင္ ဆက္ေပၚလာမယ္ေနာ္",4,"ကဲ .. ေျပာ")
Loop While x<>6
End If
If x=6 Then
    msgbox "၀န္ခံရၿပီေပါ့ကြာ..",,"Yep!"
End If

အထက္က code ေလးကို ယူၿပီးလုပ္ၾကည့္ၾကည့္ဗ်။

အဆင္ေျပေပ်ာ္ရြင္ၾကပါေစဗ်ာ

http://nyeinchanthu3.blogspot.com/