විෂුවල් බේසික් 7 වන කොටස - Check Box හඳුණා ගනිමු..

   පසුගිය ලිපියෙන් මම If ,Then ,Else භවිතා කරන ආකාරය ඉතාම සරලව විස්තර කලා.. මේ ලිපියෙන් කියන්න හදන්නෙ Check box ගැන.

• Check Box

     මෙය Tool Box එකෙහි දැකිය හැකි Object එකක් වන අතර මෙහි Name හා Caption ලෙස ප්‍රධාන property 2ක් දැකිය හැක. තවද මෙහි Value නමින් Property එකක් දැකිය හැකි අතර අදාල Check box එක select කර ඇති අවස්ථව Value එක 1 වන අතර එසේ නොමැති අවස්ථාව Value එක 0 වේ.

     Check box භවිතා කරන ආකාරය සරල වැඩසටහනක් මගින් අධ්‍යනය කරමු. මේ සඳහා Text box 1 ක් , cheak box 1 ක් හා Command button එකක් අවශ්‍ය වේ. පළමුව New form එකක්
ලබා ගන්න. ඉන් පසු පසු Form එක මතට Text box 1 ක් , check box 1 ක් හා Command button එකක් Add කර ගන්න.

ඉහත ආකාරයට Form එක සකස් කරගත් පසු පහත දැක්වෙන ආකාරයට Properties සකස්
කර ගන්න. 

Object	Name	Caption
Command1	cmdexit	EXIT
Text1	txtname
Check1	chkname	Name

ඉහත දැක්වෙන පරිදි Propeerties සකස් කරගත් පසු වැඩසටහනේ ආකෘතිය නිර්මාණය කරගැනීම අවසන් වේ. 

දැන් ඉතිරිව ඇත්තේ වැඩසටහන සඳහා අවශ්‍ය කේත ඇතුලත් කර ගැනීමයි.

ඒ සඳහා පහත පියවර අනුගමනය කරන්න.

• Name check box එක Double click කර පහත කේත ඇතුලත් කර ගන්න.
  

Private Sub chkname_Click()
If chkname.Value = 1 Then
txtname.Text = "GIHAN"
Else
txtname.Text = ""
End If
End Sub

    මෙහිදී සිදුවන්නේද පසුගිය ලිපියෙහි සඳහන් වූ If condition එක භාවිතා කිරීමයි. chkname check box එකෙකි අගය 1 නම් txtname text box එකෙහි text property එකෙහි GIHAN ලෙස අතුලත් කරන ලෙසත්  chkname check box එකෙහි අගය 0 නම් txtname text box  එකෙහි text property එක හිස්ව තිබෙන ලෙසත් විධනය ලබාදී ඇත. එනම් check box එක select කර ඇති අවස්ථාවේ පමණක් text box එකෙහි නම
දිස්වේ.

• EXIT Command button එක Double click කර පහත කේත ඇතුලත් කර ගන්න.

Private Sub cmdexit_Click()
End
End Sub

දැන් වැඩසටහන Run කර බලන්න.  [F5]

 8 කොටස>>