精品中文版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现在想要把名为“edtResultEditTextviewLabel，打开设计器现在想要把名为“edtResultEditTextviewLabel，打开设计器 Label（体说明，这里只放截图调整新LabelNameTextTextColor 设定为CornerRadiusNameTextTextColor 设定为CornerRadiusColorAlpha下添加一个Panel来盛放数字键盘按钮，调整位置和大小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现在Click 事件编写处理代码，除 btnAction 之外的所有按钮 btnEvent（。SubDimSendAsButton Send 用来保存触发事件的按SendSender 赋值给为了区分退格按钮和其它按钮使用Select/Case/EndSelect语Case如

5、果是BS Case其它非 BS 的所有按钮执行这EndSelect End SubSubEndDimlblResultAs希望把该按钮的值追加显示到lblResultLabel 注意“&点击退格按钮是要删除掉希望把该按钮的值追加显示到lblResultLabel 注意“&点击退格按钮是要删除掉lblResult 这个Label 中的最后一个字符，但也要注意IflblResult.Text.Length0ThenSubString2lblResult.Text = lblResult.Text.SubString2(0,lblResult.Text.Length - SubString2(Beg

6、inIndexEndIndex函数会从当前字符串中取出一段新的字符串， 起于 BeginIndex 参数（包含EndIndex 参数（不包含。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产生第一个19Number2 = Rnd(1, 10)产生第二个1至9的随机数 lblNumber1.Text = Number1把数字1 显示在Label 中 lblNumber2.Text = Number2把数字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产生第一个19Number2 = Rnd(1, 10)产生第二个1至9的随机数 lblNumber1.Text = Number1把数字1 显示在Label 中 lblNumber2.Text = Number2把数字2 显示在Label 中ments.TextEntertheresult&CRLF&an