黑莓开发新手入门教学帖,如何制作一个能控制LED颜色的程序二

通过第一课,我们创建了一个UI界面,并且在title上显示程序的名字LED Player.接下来,我们要做的是,把一些按钮之类的东西添加到这个SCREEN上(VB中叫做控件)。

首先我们确认我们需要一些可以选择的选项来让用户来选中LED需要发出的颜色,比如选择BLUE时,LED发出蓝光,RED时,发出红光等等。在这里,我们可以使用通过一下定义好的下拉菜单choicefield(比如enable/disable这样的,我们可以定义为blue/red/green/…),也可以用radiofield(单选按钮)来做,在这个例子中,我们将用radiofield来操作颜色的选取画面。

最初,我们需要写上一段文字表示下方的单选按钮是用来干吗的,于是我们添加一个RichTextField来显示“Setup blackBerry 's LED color with RGB:”,目的就是告诉用户,下面是选择颜色了。

add(new RichTextField("Setup blackBerry 's LED color with RGB:"));

另外,添加一个分割线来美化UI。
SeparatorField line1 = new SeparatorField();
add(line1);

建立一个RadioButtonGroup,在这个组里的所有RadioButtonfield,同一时刻只有一个能被用户选中,这就避免了选了blue又选green的错误,当然这个只是一个设计思维逻辑,相信有开发经验的朋友都有的。

// -----------------radio group
RadioButtonGroup rbGroup = new RadioButtonGroup();

final RadioButtonField rbField1 = new RadioButtonField("Red");
final RadioButtonField rbField2= new RadioButtonField("Orange");
final RadioButtonField rbField3 = new RadioButtonField("Yellow");
final RadioButtonField rbField4 = new RadioButtonField("Green");
final RadioButtonField rbField5 = new RadioButtonField("Cyan");
final RadioButtonField rbField6 = new RadioButtonField("Blue");
final RadioButtonField rbField7 = new RadioButtonField("Purple");
final RadioButtonField rbField8 = new RadioButtonField("White");
final RadioButtonField rbField9 = new RadioButtonField("Customize");
final RadioButtonField rbField10 = new RadioButtonField("disco I");
final RadioButtonField rbField11 = new RadioButtonField("disco II");
final RadioButtonField rbField12 = new RadioButtonField("None");
rbGroup.add(rbField1);
rbGroup.add(rbField2);
rbGroup.add(rbField3);
rbGroup.add(rbField4);
rbGroup.add(rbField5);
rbGroup.add(rbField6);
rbGroup.add(rbField7);
rbGroup.add(rbField8);
rbGroup.add(rbField9);
rbGroup.add(rbField10);
rbGroup.add(rbField11);
rbGroup.add(rbField12);
add(rbField1);
add(rbField2);
add(rbField3);
add(rbField4);
add(rbField5);
add(rbField6);
add(rbField7);
add(rbField8);
SeparatorField line2 = new SeparatorField();
add(line2);
add(rbField9);

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...