ACCESS-VBA编程大全.docVIP

文档来源： ACCESS－VBA编程. 控件： 常量 控件 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 = 8290 Me. 控件.Left = 100 标签等字体粗细： Me.Label2.FontWeight = 20000 控件边框颜色： Me.Label2.BorderColor = 0 控件边框线条 BorderStyle 属性使用以下设置： 透明 0 （仅对于标签、图表和子报表而言是默认值）透明的 实线 1 （默认值）实线 虚线 2 虚线 短虚线 3 短虚线 点线 4 点线 稀疏点线 5 点距较宽的点线 点划线 6 虚线与点线组合的点划线 点点划线 7 虚线-点