විෂුවල් බේසික් 4 වන කොටස - Command Button හා Label භාවිතය..

මා මේ විෂය පිළිබඳව සියලුම දේවල් දන්නා අයෙකු නොවන මුත් මා දන්නා සුලු ප්‍රමාණය හෝ නොදන්නා කෙනෙකු වෙනුවෙන් ඉදිරිපත් කිරීම මෙම ලිපි පෙළෙහි අරමුණයි..

   මයික්‍රොසොෆ්ට් විෂුවල් බේසික් වල ඇති Command Button හා Label භාවිතා කරන හැටි මම කලින් ලිපියෙන් ඉදිරිපත් කලා. මේ ලිපියෙන් ඒ ගැන තව දුරටත් විස්තර කරන්න තමයි හදන්නෙ. ඒත් මෙතනදී පාවිච්චි වෙන්නෙත් කලින් ලිපියෙන් කතා කරපු දේවල්ම තමා..

  මේ සඳහා මුලින්ම File > New Project මගින් Form එකක් සකස් කරගෙන ඉන් පසු Label 4ක් හා Command Button 5ක් Form එක මතට Add කරගත යුතු වේ.


ඉන් පසු පහත දැක්වෙන ආකාරයට Label වල properties සකස් කර ගන්න..
Label1
Name        =  lblindex
Caption     =  " "      (empty)
Label2
Name        =  lblname
Caption     =  " "      (empty)
Label3
Name        =  lblage
Caption     =  " "      (empty)
Label4
Name        =  lbltel
Caption     =  " "     (empty)
ඉන් පසු පහත දැක්වෙන ආකාරයට Command Button වල properties සකස් කර ගන්න..
command1

Name        =  cmdindex
Caption     =  Index No:
command2
Name        =  cmdname
Caption     =  Name
command3
Name        =  cmdage
Caption     =  Age
command4
Name        =  cmdtel
Caption     =  Telephone
command5
Name        =  cmdexit
Caption     =  EXIT
මෙහිදී සමාන්‍යයෙන් command button නම් කිරීමේදී cmd ලෙසත් Label නම් කිරීමේදී lbl ලෙසත් යොදනු ලබන්නේ අදාල Object එක command button එකක් හෝ label එකක් බව පහසුවෙන් හඳුණා ගැනීම සඳහාය. ඒ සඳහා ඔබට අවශ්‍ය නම් කැමති නමක් ලබාදිය හැක.

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



දැන් ඉතිරිව තිබෙන්නෙ වැඩසටහන සඳහා අවශ්‍ය Code එක සකසා ගන්න එක. ඒ සඳහා පහත පියවර අනුගමනය කරන්න.

• cmdindex command button එක Double click කර පහත code එක ඇතුලත් කරගන්න.

Private Sub cmdindex_Click()
lblindex.Caption = "5555"
End Sub

• cmdname command button එක Double click කර පහත code එක ඇතුලත් කරගන්න.
  

Private Sub cmdname_Click()
lblname.cation = "GIHAN"
End Sub

• cmdage command button එක Double click කර පහත code එක ඇතුලත් කරගන්න.

Private Sub cmdage_Click()
lblage.Caption = "999"
End Sub

• cmdtel command button එක Double click කර පහත code එක ඇතුලත් කරගන්න.

Private Sub cmdtel_Click()
lbltel.Caption = "0123456"
End Sub
රතු පැහැයෙන් දක්වා ඇති දත්ත සඳහා ඔබට කැමති අගයන් ඇතුලත් කරගත හැකිය.

ඉහත ආකාරයට වැඩසටහන නිමා කරගත් පසු එය Run කර බලන්න. එක් එක් ලේබලය සඳහා අදාල command button එක click කල විට ඔබ ලබාදුන් තොරතුරු ලේබල් එක මත දිස්වේවි..
මේ පිළිබඳ ඔබේ අදහස් Comment එකට Add කරන්න..  :-)
5 වන කොටස >>

•