ACCESSVBA编程入门.ppt
练习_写出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(MultiLine-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 OptionButton1.Value=True Then文本框.Text=OptionButton1.Caption,单选按钮组,Else文本框.Text=OptionButton2.CaptionEnd If,t=Label1.Caption,TextBox2.Text=TextBox2.Text+文本框.Text,文本框.Text=ListBox1.Value,If CheckBox1.Value=True Then文本框.Text=CheckBox1.CaptionEnd If,Label1.Caption=文本框.Text,文本框.Text=t,练习_ VB写出文件与文本框 语句p192,文本框,TextBox1.Text=TextBox1.Text+inputdate,磁盘文件E.txt,Open E.txt For Output As#1,Print#1,TextBox1.Text,Close 1,LoopClose#1,Open E.txt For Input As#1,inputdate=Input(1,#1),Do While Not EOF(1),Open 文件名 For Input|Output|Append As#文件号,#1,列表框用于显示多个选项并从中选择。只能单选。示例，做两个使用列表框和两个按钮，用AddItem,RemoveItem 和 SetFocus 方法以及 ListIndex 和 ListCount 属性来添加和删除 ListBox 的内容。要使用这个例子，需把示例编码复制到某窗体的。该窗体要包含：,列表框,Dim EntryCount As Single 通用(声明)部分-Private Sub UserForm_Initialize()EntryCount=0End Sub,Private Sub CommandButton1_Click()EntryCount=EntryCount+1 ListBox1.AddItem(EntryCount&-Selection)End Sub,Private Sub CommandButton2_Click()ListBox1.setFocusListBox2.AddItem(ListBox1.Text)user add 确认 ListBox 包含列表项 If ListBox1.ListCount=1 Then 如果没有选中的内容，用上一次的列表项。If ListBox1.ListIndex=-1 Then ListBox1.ListIndex=ListBox1.ListCount-1 End If ListBox1.RemoveItem(ListBox1.ListIndex)End IfEnd Sub,AAA,列表框,Dim MyArray(6,3)数组含有 ListBox 的列值。Private Sub UserForm_Initialize()Dim i As Single ListBox21.ColumnCount=3 这个列表框包含三个数据列 加载整数值 MyArray For i=0 To 5 MyArray(i,0)=i MyArray(i,1)=Rnd MyArray(i,2)=Rnd Next i 加载 ListBox1 ListBox21.List()=MyArray EntryCount=0End SubPrivate Sub CommandButton1_Click()EntryCount=EntryCount+1 ListBox1.AddItem(EntryCount&-Selection)End Sub,Private Sub CommandButton3_Click()确认 ListBox 包含列表项 If ListBox2.ListCount=1 Then 如果没有选中的内容，用上一次的列表项。If ListBox2.ListIndex=-1 Then ListBox2.ListIndex=ListBox2.ListCount-1 End If ListBox1.AddItem(ListBox2.Text)user add ListBox2.RemoveItem(ListBox2.ListIndex)End IfEnd Sub,Private Sub CommandButton2_Click()ListBox1.setFocusListBox2.AddItem(ListBox1.Text)user add 确认 ListBox 包含列表项 If ListBox1.ListCount=1 Then 如果没有选中的内容，用上一次的列表项。If ListBox1.ListIndex=-1 Then ListBox1.ListIndex=ListBox1.ListCount-1 End If ListBox1.RemoveItem(ListBox1.ListIndex)End IfEnd Sub,AAA,组合框,列表框,Private Sub CommandButton1_Click()ListBox1.AddItem sdListBox1.AddItem 1dListBox1.AddItem 2dListBox1.AddItem 3dListBox1.AddItem 4d,ComboBox1.AddItem b1ComboBox1.AddItem b2ComboBox1.AddItem b3ComboBox1.AddItem b4ComboBox1.AddItem b5ComboBox1.AddItem b6ComboBox1.AddItem b7ComboBox1.AddItem b8End Sub,AAA,组合框,列表框,Private Sub ComboBox100_DblClick(ByVal Cancel As MSForms.ReturnBoolean)ComboBox100.AddItem b1ComboBox100.AddItem b2ComboBox100.AddItem b3ComboBox100.AddItem b4ComboBox100.AddItem b5ComboBox100.AddItem b6ComboBox100.AddItem b7End Sub,Private Sub ListBox100_DblClick(ByVal Cancel As MSForms.ReturnBoolean)ListBox100.AddItem sdListBox100.AddItem 1dListBox100.AddItem 2dListBox100.AddItem 3dListBox100.AddItem 4dEnd Sub,AAA,滚动条,微调控件,输入网址：,输入网址,WebBrowser1.Navigate2(TextBox1.text),建立试题库,第一步：使用ACCESS建立试题库function_chr.mdb，内含表chr内建立rubric字段(试题标题)，option1.option4(预设4个选择项字段)。提示：使用ACCESS版本必须低于ADO类的版本，即能被ADO识别第二步：设置ppt启用宏,打开ppt，设置工具/宏/安全性为中或低，然后关闭后重新启动PPT。第三步：在幻灯片内添加必须控件。在当前幻灯片，打开VB工具栏(使用自定义工具栏添加)新建一个label或textbox控件，用于放置试题题目；新建4个checkbox控件，用于放置试题选项新建1个commandbutton控件，用于启动VBA命令，调用ACCESS库第四步：导入ADO类使用菜单工具/引入命令(vba)，引入Microsoft ActiveX Data objects 2.5 library类,第五步：在声明内声明connection、recordset对象实例，并赋给相应变量,Public dbconnect As New ADODB.ConnectionPublic rs As New ADODB.RecordsetPrivate Sub CommandButton1_Click()若连接对象已经建立，关闭它If dbconnect.State=adStateOpen And Not IsEmpty(adStateOpen)Then dbconnect.Close指定用于连接的提供者的名称，我理解为数据源的设备驱动程序dbconnect.Provider=microsoft.jet.oledb.4.0 access 97 ois 3.51通过传递详细的字符串来指定数据源，这里取用了相对路径调用dbconnect.ConnectionString=datafunction_chr.mdb“建立连接dbconnect.Open 若记录集已经打开关闭它If rs.State=adStateOpen And Not IsEmpty(adStateOpen)Then rs.Close按用户要求打开记录集,open的具体用法请查阅帮助rs.Open chr,dbconnect,adOpenDynamic,adLockOptimistic chr是表名，包含function_chr.mdb里，结果为全部字段的记录集,进入后做练习，回来判卷,WIN文件操作,function compute(obj)obj.result.value=eval(obj.xy.value),xy,result,JavaScript,练习,结合教材中的实例，掌握VBA编程的基本方法。完成本章习题。,测试我双击上面按钮F8键调试制作并双击按钮,输入上面代码后F8键调试制作并双击按钮,输入x=1;y=4;z=2及上面代码后F8键调试制作并双击按钮,输入上面代码后调试菜单中添加监视x,s F8键调试MSGBOX()Ctrl+G 打开立即窗口(或视图菜单),可看到Debug.Print()输出,
