精品中文版b4a新手指南第3章第二個程序secondprogram

1、CopyrightCopyright2011,2012,AnywhereEdition3 章 第二個程序B4A（227825693 ）這個程序的代碼在源碼文件夾中有：SourceCodeSecondProgramSecondProgram.b4a3 章 第二個程序B4A（227825693 ）這個程序的代碼在源碼文件夾中有：SourceCodeSecondProgramSecondProgram.b4aProgram.b4aSecondProgramProgram 文件夾（的文件夾）中的所有文件和文件夾拷貝進來， 然后把 My 在IDEProgram.b4a 改名為 viewPackageNa

2、meIDE Project項，點擊“Package b4a.secondprogramApplicationabel#ApplicationLabel:SecondProgram現(xiàn)在想要把名為“edtResultEditTextviewLabel，打開設計器現(xiàn)在想要把名為“edtResultEditTextviewLabel，打開設計器 Label（體說明，這里只放截圖調(diào)整新LabelNameTextTextColor 設定為CornerRadiusNameTextTextColor 設定為CornerRadiusColorAlpha下添加一個Panel來盛放數(shù)字鍵盤按鈕，調(diào)整位置和大小Pan

3、elpnlKeyPanelpnlKeyboardpnl CornerRadius把“OK”按鈕從Activity移動到pnlKeyboard這個Panel中去在設計器中設定屬性，把ParentPanelmentsLabel pnlKeyboard Panel把選中pnlKeyboardmentsLabel pnlKeyboard Panel把選中pnlKeyboardPanelDrawable elistDrawableEnabled OColorBlack兩個按鈕的屬性按照下圖來設定（左邊是退格，右邊是兩個按鈕的屬性按照下圖來設定（左邊是退格，右邊是下要修改相應的代碼，首先得把原來的edtR

4、esult的文本框替換成下要修改相應的代碼，首先得把原來的edtResult的文本框替換成選中找到EditReplace with lblResult，然后點擊Replace All viewtypeEditTextReplace with lblResult，然后點擊Replace All viewtypeEditText現(xiàn)在Click 事件編寫處理代碼，除 btnAction 之外的所有按鈕 btnEvent（。SubDimSendAsButton Send 用來保存觸發(fā)事件的按SendSender 賦值給為了區(qū)分退格按鈕和其它按鈕使用Select/Case/EndSelect語Case如

5、果是BS Case其它非 BS 的所有按鈕執(zhí)行這EndSelect End SubSubEndDimlblResultAs希望把該按鈕的值追加顯示到lblResultLabel 注意“&點擊退格按鈕是要刪除掉希望把該按鈕的值追加顯示到lblResultLabel 注意“&點擊退格按鈕是要刪除掉lblResult 這個Label 中的最后一個字符，但也要注意IflblResult.Text.Length0ThenSubString2lblResult.Text = lblResult.Text.SubString2(0,lblResult.Text.Length - SubString2(Beg

6、inIndexEndIndex函數(shù)會從當前字符串中取出一段新的字符串， 起于 BeginIndex 參數(shù)（包含EndIndex 參數(shù)（不包含。SubDimSendAsButton Send 用來保存處罰事件的按Send = Sender把Sender賦值給Send CaseIflblResult.Text.Length0 Case BSIflblResult.Text.Length0lblResult.Text=lblResult.Text.SubString2(0,lblResult.Text.Length-1) End IfCaselblResult.Text=lblResult.Text

7、&Send.Tag End SelectEndCase BSCaselblResult.Text = lblResult.Text & Send.TagEnd SelectEndments Label NewCheckResultments Label NewCheckResultSubIflblResult.Text=Number1+Number2ments.TextGOODresult&CRLF&ClickonNEW ments.Color = Colors.RGB(128,255,128)btnAction.Text=NEments.Text = W R O N G result & C

8、RLF & Enter a new result & CRLF & and click OKments.Color淺紅EndIf End SubSubNumber1Rnd(1產(chǎn)生第一個19Number2 = Rnd(1, 10)產(chǎn)生第二個1至9的隨機數(shù) lblNumber1.Text = Number1把數(shù)字1 顯示在Label 中 lblNumber2.Text = Number2把數(shù)字2 顯示在Label 中ments.TextEntertheresult&CRLF&andclickonOK ments.Color = Colors.RGB(255,235,128)lblResult 的字

9、EndEndIf Case ElselblResult.Text=lblResult.Text&Send.Tag End SelectEnd的首位輸入“0首先要修改NewbtnEvent_Click 的顯示與隱藏（的首位輸入“0首先要修改NewbtnEvent_Click 的顯示與隱藏（0則隱藏，反之顯示lblResult SubDimSendAsButton Send 用來保存處罰事件的按Send = Sender把Sender賦值給Send CaseIflblResult.Text.Length0lblResult.Text=lblResult.Text.SubString2(0,lblResult.Text.Length-1) End IfCaselblResult.Text=lblResult.Text&Send.Tag End SelectIflblResult.Text.Length=0Then btn0.Visible = FalseSubNumber1Rnd(1產(chǎn)生第一個19Number2 = Rnd(1, 10)產(chǎn)生第二個1至9的隨機數(shù) lblNumber1.Text = Number1把數(shù)字1 顯示在Label 中 lblNumber2.Text = Number2把數(shù)字2 顯示在Label 中ments.TextEntertheresult&CRLF&an