(၁) Picture box တစ္ခု၊ Command button ႏွစ္ခု ကို Form ထဲကို ထည့္လိုက္ပါ။


(၂) Picture box ရဲ ့Name ကို ဒီအတိုင္းပဲထားပါ။ Button ႏွစ္ခုကိုေတာ့ Name ၿပင္ပါမယ္။ တစ္ခုကို cmdadd, က်န္တစ္ခုကို cmdsave လို ့ေပးလိုက္ပါ။

(၃) cmdadd အတြက္ coding ကိုေရးပါမယ္။

Code:


‘Code for cmdadd
If Dir$("a:\picture\led.jpg") <> "" Then
        MsgBox "The file does not exit.", vbInformation, "File Error"
Else
      Picture1.Picture = LoadPicture("a:\pictures\led.jpg")
End If


Note : a:\picture\led.jpg မွာ ကိုယ္ေၿပာင္းခ်င္တဲ့ပံုရွိတဲ့ လမ္းေၾကာင္းနဲ ့ပံုနာမည္ကိုသာထည့္ပါ။
If Dir$("a:\picture\led.jpg") <> "" Then က condition စစ္တာပါ။
ဖြင့္မယ့္ဖိုင္မရွိရင္ error တက္မွာမို ့လို ့ဖိုင္ရွိမရွိအရင္စစ္တာပါ။

Picture1.Picture = LoadPicture("a:\pictures\led.jpg") ကေတာ့ Picture box ထဲကို ကိုယ္ေရြးထားတဲ့ ပံုကို Picture box ထဲ ထည့္တဲ့ code ၿဖစ္ပါတယ္။

(၄) အခု Button ေနာက္တစ္ခုၿဖစ္တဲ့ cmdsave အတြက္ coding ေရးပါမယ္။

Code:


SavePicture Picture1.Picture, "a:\pictures\led.hn" 
MsgBox "The file has been saved.", vbInformation, "Successfully Saved"


(၅) ကဲ…အခု program ကို run လိုက္ပါမယ္။ ၿပီးရင္…Add ကိုႏိွပ္လိုက္ပါ။ Picture box မွာ ေရြးထားတဲ့ပံုေလးေပၚလာရင္ Save ကိုႏွိပ္လိုက္ရင္ .hn ဆိုတဲ့ file ကိုေရြးေပးထားတဲ့ Folder ထဲမွာ save လုပ္ၿပီးသားၿဖစ္သြားပါလိမ့္မယ္။


hn ေနရာမွာ ႏွစ္သက္ရာကိုထည့္ႏိုင္ပါတယ္။ ကြ်န္ေတာ္ကေတာ့ ကြ်န္ေတာ့နာမည္ကိုထည့္ထားတာပါ။ ဒါေပမယ့္….(၂) ခုရွိတယ္။ တစ္ခုက အဲ့ဒီဖိုင္ကို right click ႏွိပ္ၿပီး rename လုပ္၊ extention ကို .jpg လို ့
ၿပင္လိုက္ရင္ေတာ့ မူလ file ကိုၿပန္တယ္။ ေနာက္တစ္ခုက file size က ပိုၾကီးသြားတယ္။
ေအာက္က ပံုေလးေတြကိုၾကည့္ၾကည့္ပါ။


ပံုမွန္ .jpg ဖိုင္


ေၿပာင္းထားေသာ .hn ဖိုင္