access-VBA编程 第一章 控件1

时　间:2009-02-07 08:40:11
作　者:UMVsoft整理   ID：1445  城市：上海
摘　要: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 = 12632256
End Sub
当中“12632256”是灰色，你可以自己选择希望的颜色，如果想在失去焦点时改为原来的颜色，写如下代码：
Private Sub txt字段_LostFocus()
Me.txt字段.BackColor = 16777215
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

下一节