admin 管理员组文章数量: 1086019
2024年3月28日发(作者：strcpy函数怎么修改)
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!
intReportControls = Reports!
设置控件可见性
Dim i, ii As Integer
For ii = 3 To 10
= True
Next
For i = 11 To 22
= False
Next
按特殊名在VBA中设置控件的可见性：
For i = 27 To 47
If Like "A*" Then
= False
End If
Next
指定一个控件能否接受焦点
Enabled属性：
me.控件.Enabled = true'能
=false'不能
指定一个控件能否被编辑：
locked
如：
me.控件.Locked = true
me.控件.Locked = false
设置控件标题显示的文字
Me.控件.Caption = "显示窗体"
设置标签颜色：
=200
获得焦点及失去焦点时字段变更颜色。
如果你的控件是文本框，名称为“txt字段”，写如下代码：
Private Sub txt字段_GotFocus()
字段.BackColor =
End Sub
当中“”是灰色，你可以自己选择希望的颜色，如果想在失去焦点时改为原来的颜色，写如下代码：
Private Sub txt字段_LostFocus()
字段.BackColor =
End Sub
使标签闪烁以引人注意
设置窗体的TimerInterval 值为1000 (1秒).
forms OnTimer 加入代码:
Sub Form_Timer()
= Not
End_Sub
设置标签字体颜色：
=
设置文本框颜色：
= 300
设置文本框字体颜色：
= 500
标签等左边距离：
= 2200
定位控件
Me.控件.Top = 8290
Me. 控件.Left = 100
设置控件宽度/高度
Me.考生答案.Width = 10000
Me.考生答案.Height = 1000
标签等字体粗细：
= 20000
版权声明：本文标题：Access_VBA编程(使用技巧大全) 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1711571260a600379.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论