ACCESS-VBA编程解析.doc
文本预览下载声明
ACCESS-VBA编程
第一章 控件1
常量 控件 acBoundObjectFrame 绑定对象框 acCheckBox 复选框 acComboBox 组合框 acCommandButton 命令按钮 acCustomControl ActiveX（自定义）控件 acImage 图像 acLabel 标签 acLine 线条 acListBox 列表框 acObjectFrame 未绑定对象框或图表 acOptionButton 选项按钮 acOptionGroup 选项组 acPage 页 acPageBreak 分页符 acRectangle 矩形 acSubform 子窗体/子报表 acTabCtl 选项卡 acTextBox 文本框 acToggleButton 切换按钮 在VB中对窗体控件的引用 键入包含控件的窗体或报表的标识符，后面紧接 ! 运算符和控件的名称。例如，下列标识 符将引用“订单”窗体上“订单ID”控件值： Forms![订单]![订单ID] 引用子窗体或子报表上的控件，不必使用“窗体”或“报表”属性为窗体或报表指定完整的标识符。例如，可以使用下列标识符来引用“订单”子窗体上的“数量”控件： Forms![订单]![订单子窗体]![数量] 判断窗体或报表中控件的数目，然后将该数目赋给一个变量。 Dim intFormControls As Integer Dim intReportControls As Integer intFormControls = Forms!Employees.Count intReportControls = Reports!FreightCharges.Count 设置控件可见性 Dim i, ii As Integer For ii = 3 To 10 Me.Controls.Item(ii).Visible = True Next For i = 11 To 22 Me.Controls.Item(i).Visible = False Next 按特殊名在VBA中设置控件的可见性： For i = 27 To 47 If Me.Controls.Item(i).Name Like A* Then Me.Controls.Item(i).Visible = False End If Next 指定一个控件能否接受焦点 Enabled属性： me.控件.Enabled = true能 =false不能 指定一个控件能否被编辑： locked 如： me.控件.Locked = true me.控件.Locked = false 设置控件标题显示的文字 Me.控件.Caption = 显示窗体 设置标签颜色： Me.LabelColor =200 获得焦点及失去焦点时字段变更颜色。 如果你的控件是文本框，名称为“txt字段”，写如下代码： Private Sub txt字段_GotFocus() Me.txt字段.BackColor =End Sub 当中是灰色，你可以自己选择希望的颜色，如果想在失去焦点时改为原来的颜色，写如下代码： Private Sub txt字段_LostFocus() Me.txt字段.BackColor =End Sub 使标签闪烁以引人注意 设置窗体的TimerInterval 值为1000 (1秒). forms OnTimer 加入代码: Sub Form_Timer() YourTextLabel.Visible = Not YourTextLabel.Visible End_Sub 设置标签字体颜色： Me.Label1.ForeColor = 设置文本框颜色： Me.TextColor = 300 设置文本框字体颜色： Me.TextFontColor = 500 标签等左边距离： Me.Label2.Left = 2200 定位控件 Me.控件.Top = 8290VBA编程 Me. 控件.Left = 100 标签等字体粗细： Me.Label2.FontWeight = 20000 控件边框颜色： Me.Label2.BorderColor = 0
控件边框线条 BorderStyle 属性使用以下设置： 透明 0 （仅对于标签、图表和子报表而言是默认值）透明的 实线 1 （默认值）实线 虚线 2 虚线 短虚线 3 短虚线 点线 4 点线 稀疏点线 5 点距较宽的点线 点划线 6 虚线与点线组合的点划线 点点划线 7 虚线-点线-点线组合的点点划线 双实线 8 双实线 指定控件的边框宽度 使用 BorderWidth 属性可以指定控件的边框宽度 取值：0或1－6
显示全部