තවත් සරල පාඩමකින් නැවතත්.
මෙහිදීත් මම හඳුන්වා දීමට යන්නේ තවත් සරල පාලකයක් යොදා වැඩසටහනක් සකසා ගන්න අන්දමය.
මෙයට ඔබගේ පෙර Project යටම නව Form යක් එකතු කර ගන්න. ඉන්පසුව එය මතට බොත්තමක් සහ Progress Bar යක් tool Box යෙන් එක් කර ගන්න.ඉන්පසුව ඔබ සැලසුම් කර ගත් Form ය පහත රූපයේ ආකාරයට දිස් විය යුතුය.

Form ය මතට දමා ගත් බොත්තමේ Nameය ලෙස btnOkයද Textය ලෙස Ok ද Propertiesවලින් වෙනස් කර ගන්න.
ඉන්පසු බොත්තම Double Clickකර ලැබෙන කේත පේළි දෙක මැද පහත දැක්වෙන කේතය ලියන්න.
Dim intValue As Integer
ProgressBar1.Maximum = 1000000
Do While Not intValue = 1000000
ProgressBar1.Value = intValue
intValue = intValue + 1
Loop
මෙහිදී දැක්වෙන කේතය Do While Structureගැන අවබෝධයකින් තොරව තේරුම් ගැනීමට අපහසු නිසා එය මෙහිදී සඳහන් නොකරමි. If Else Structure ය සහ Do While Structure ගැන පසු වැඩසටහනකින් ගෙන එන්නම්.
ඉන්පසු මෙම Form ය ඔබගේ Project යේ Startup Form ය ලෙස සකසා වැඩසටහන ධාවනය කරන්න.
ඉන්පසුව ඔබට ඔබගේ වැඩසටහන මේ ආකාරයෙන් දිස් විය යුතුයි.
නැවතත් සරල පාලකයක් සහිත වැඩසටහනකින් හමු වෙමු..
කැන්ඩි....
0 comments:
Post a Comment