ACCESSVBA编程入门.ppt

1、练习_写出vb-java等价控件语句p192,文本框,文本区,按钮,选项框(组合框),选项.,CommandButton .Caption 等价 java Button(保存);,ComboBox .Value 等价 java Choice();,ComboBox.AddItem 新鲜! 等价 java 选项框.addItem(新鲜!);,单选按钮组,OptionButton. Value 等价 java Checkbox(父 ,选项按钮组 ,f alse), . Caption,TextBox .Text 等价 java TextField(18);,TextBox .Text(MultiL

2、ine-True) 等价 java TextArea(3,25);,列表框,列表项,ListBox.AddItem 红色 等价 java 列表框.add(红色);,Label .Caption 等价 java Label(总金额:);,标签,复选按钮,Checkbox . Value 等价 java Checkbox(本10元), .Caption,ListBox .Value 等价 java List(2,false);,练习_写出VB控件操作语句p192,选项框(组合框),文本框.Text = CInt(文本框.Text) + 1,文本框.Text = ComboBox1.Value,If

3、 OptionButton1.Value = True Then 文本框.Text = OptionButton1.Caption,单选按钮组,Else 文本框.Text = OptionButton2.Caption End If,t = Label1.Caption,TextBox2.Text = TextBox2.Text + 文本框.Text,文本框.Text = ListBox1.Value,If CheckBox1.Value = True Then 文本框.Text = CheckBox1.Caption End If,Label1.Caption = 文本框.Text,文本框.

4、Text = t,练习_ VB写出文件与文本框 语句p192,文本框,TextBox1.Text = TextBox1.Text + inputdate,磁盘文件E.txt,Open E.txt For Output As #1,Print #1, TextBox1.Text,Close 1,Loop Close #1,Open E.txt For Input As #1,inputdate = Input(1, #1),Do While Not EOF(1),Open 文件名 For Input | Output | Append As #文件号,#1,列表框用于显示多个选项并从中选择。只能

5、单选。 示例，做两个使用列表框和两个按钮，用AddItem , RemoveItem 和 SetFocus 方法以及 ListIndex 和 ListCount 属性来添加和删除 ListBox 的内容。 要使用这个例子，需把示例编码复制到某窗体的 。该窗体要包含：,列表框,Dim EntryCount As Single 通用(声明) 部分 - Private Sub UserForm_Initialize() EntryCount = 0 End Sub,Private Sub CommandButton1_Click() EntryCount = EntryCount + 1 ListBox1.AddItem (EntryCount y=4;z=2及上面代码后 F8键调试 制作并