ACCESSVBA编程入门.ppt

《ACCESSVBA编程入门.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、练习_写出vb-java等价控件语句p192文本框文本区按钮选项框(组合框)选项.CommandButton.Caption等价javaButton("保存");ComboBox.Value等价javaChoice();ComboBox.AddItem"新鲜!"等价java选项框.addItem("新鲜!");单选按钮组OptionButton.Value等价javaCheckbox("父",选项按钮组,false),.CaptionTextBox.Text等价javaTextField(18);TextBox.Text(MultiLine-True)等价javaTextArea(3,25

2、);列表框列表项ListBox.AddItem"红色"等价java列表框.add("红色");Label.Caption等价javaLabel("总金额:");标签复选按钮Checkbox.Value等价javaCheckbox("本10元"),.CaptionListBox.Value等价javaList(2,false);练习_写出VB控件操作语句p192选项框(组合框)文本框.Text=CInt(文本框.Text)+1文本框.Text=ComboBox1.ValueIfOptionButton1.Value=TrueThen文本框.Text=OptionButton1.Caption

3、单选按钮组Else文本框.Text=OptionButton2.CaptionEndIft=Label1.CaptionTextBox2.Text=TextBox2.Text+文本框.Text文本框.Text=ListBox1.ValueIfCheckBox1.Value=TrueThen文本框.Text=CheckBox1.CaptionEndIfLabel1.Caption=文本框.Text文本框.Text=t练习_VB写出文件与文本框语句p192文本框TextBox1.Text=TextBox1.Text+inputdate磁盘文件"E.txt"Open"E.txt"ForOutpu

4、tAs#1Print#1,TextBox1.Text,Close1LoopClose#1Open"E.txt"ForInputAs#1inputdate=Input(1,#1)DoWhileNotEOF(1)Open文件名ForInput

5、Output

6、AppendAs[#]文件号#1列表框用于显示多个选项并从中选择。只能单选。示例，做两个使用列表框和两个按钮，用AddItem,RemoveItem和SetFocus方法以及ListIndex和ListCount属性来添加和删除ListBox的内容。‘要使用这个例子，需把示例编码复制到某窗体的。该窗体要包含：列表框DimEntryCount

7、AsSingle通用(声明)部分--------------------------PrivateSubUserForm_Initialize()EntryCount=0EndSubPrivateSubCommandButton1_Click()EntryCount=EntryCount+1ListBox1.AddItem(EntryCount&"-Selection")EndSubPrivateSubCommandButton2_Click()'ListBox1.setFocusListBox2.AddItem(ListBox1.Text)'useradd'确认ListBox包含列表项I

8、fListBox1.ListCount>=1Then'如果没有选中的内容，用上一次的列表项。IfListBox1.ListIndex=-1ThenListBox1.ListIndex=ListBox1.ListCount-1EndIfListBox1.RemoveItem(ListBox1.ListIndex)EndIfEndSubAAA列表框DimMyArray(6,3)'数组含有ListBox的列值。PrivateSubUserForm_Initialize()DimiAsSingleListBox21.ColumnCount=3‘这个列表框包含三个数据列'加载整数值MyArrayFo

9、ri=0To5MyArray(i,0)=iMyArray(i,1)=RndMyArray(i,2)=RndNexti'加载ListBox1ListBox21.List()=MyArrayEntryCount=0EndSubPrivateSubCommandButton1_Click()EntryCount=EntryCount+1ListBox1.AddItem(EntryCount&"-Selection")EndSu