1、文档来源:ACCESSVBA 编程.控件:常量 控件 acBoundObjectFrame 绑定对象框 acCheckBox 复选框 acComboBox 组合框 acCommandButton 命令按钮 acCustomControl ActiveX(自定义)控件 acImage 图像 acLabel 标签 acLine 线条 acListBox 列表框 acObjectFrame 未绑定对象框或图表 acOptionButton 选项按钮 acOptionGroup 选项组 acPage 页 acPageBreak 分页符 acRectangle 矩形 acSubform 子窗体/子报表
2、acTabCtl 选项卡 acTextBox 文本框 acToggleButton 切换按钮在 VB 中对窗体控件的引用键入包含控件的窗体或报表的标识符,后面紧接 ! 运算符和控件的名称。例如,下列标识符将引用“订单” 窗体上“ 订单 ID”控件值: Forms!订单!订单 ID 文档来源:引用子窗体或子报表上的控件,不必使用“窗体” 或“报表” 属性为窗体或报表指定完整的标识符。例如,可以使用下列标识符来引用“订单”子窗体上的“数量”控件:Forms!订单!订单子窗体!数量 判断窗体或报表中控件的数目,然后将该数目赋给一个变量。Dim intFormControls As IntegerDi
3、m intReportControls As IntegerintFormControls = Forms!Employees.CountintReportControls = Reports!FreightCharges.Count设置控件可见性Dim i, ii As IntegerFor ii = 3 To 10Me.Controls.Item(ii).Visible = TrueNextFor i = 11 To 22Me.Controls.Item(i).Visible = FalseNext按特殊名在 VBA 中设置控件的可见性:For i = 27 To 47If Me.Cont
4、rols.Item(i).Name Like “A*“ ThenMe.Controls.Item(i).Visible = FalseEnd If文档来源:Next指定一个控件能否接受焦点Enabled 属性: me.控件.Enabled = true能=false不能指定一个控件能否被编辑:locked如:me.控件.Locked = trueme.控件.Locked = false设置控件标题显示的文字Me.控件.Caption = “显示窗体“设置标签颜色:Me.LabelColor =200获得焦点及失去焦点时字段变更颜色。如果你的控件是文本框,名称为“txt 字段” ,写如下代码:P
5、rivate Sub txt 字段_GotFocus()Me.txt 字段.BackColor = 12632256End Sub当中“12632256”是灰色,你可以自己选择希望的颜色,如果想在失去焦点时改为原来的颜色,写如下代码:文档来源:Private Sub txt 字段_LostFocus()Me.txt 字段.BackColor = 16777215End Sub使标签闪烁以引人注意设置窗体的 TimerInterval 值为 1000 (1 秒).forms OnTimer 加入代码:Sub Form_Timer()YourTextLabel.Visible = Not Your
6、TextLabel.VisibleEnd_Sub设置标签字体颜色:Me.Label1.ForeColor =设置文本框颜色:Me.TextColor = 300设置文本框字体颜色:Me.TextFontColor = 500标签等左边距离:Me.Label2.Left = 2200定位控件Me.控件.Top = 8290Me. 控件.Left = 100文档来源:标签等字体粗细:Me.Label2.FontWeight = 20000控件边框颜色:Me.Label2.BorderColor = 0控件边框线条BorderStyle 属性使用以下设置:透明 0 (仅对于标签、图表和子报表而言是默
7、认值)透明的 实线 1 (默认值)实线 虚线 2 虚线 短虚线 3 短虚线 点线 4 点线 稀疏点线 5 点距较宽的点线 点划线 6 虚线与点线组合的点划线 点点划线 7 虚线-点线-点线组合的点点划线 双实线 8 双实线 指定控件的边框宽度使用 BorderWidth 属性可以指定控件的边框宽度取值:0 或 16指定控件是否透明使 BackStyle 属性可以指定控件是否透明。True 、False 解除子窗体锁定Me.进_子窗体.Locked = False 解除子窗体锁定文档来源:将窗体上所有控件的输入法关掉!来源:不祥 Private Sub Form_Open(Cancel As I
8、nteger)Dim ctl As Access.ControlFor Each ctl In Me.ControlsDebug.Print ctl.Name & ctl.ControlTypeIf ctl.ControlType = acTextBox Thenctl.IMEMode = 2End IfNextEnd Sub 上述代码控制文本框,你还可以控制其他的,只要 copy 进窗体就可以了 列表框的值的引用如果是单选的列表框,用 me.列表框名 来引用;如果要引用不是结合型列的值,可以用 me.列表框名 .column(n) (第一列 n=0,第二列 n=1)引用多列组合框或列表框中特
9、定的列或列与行的组合用 0 引用第一列,用 1 引用第二列,依此类推。用 0 引用第一行,用 1 引用第二行,依此类推。例如在含有一列客户 ID 和一列客户名称的列表框中,可以使用如下方式引用第二列、第五行的客户名称:Forms!Contacts!Customers.Column(1, 4)可以使用 Column 属性将组合框或列表框的内容指定给另一控件,如文本框。例如,若要将文本框的 ControlSource 属性设为列表框第二列中的值,可以使用以下表达式:=Forms!Customers!CompanyName.Column(1)文档来源:如果引用了组合框或列表框中的列,但用户未做选择,
10、则 Column 属性设置将为 Null。可以使用 IsNull 函数来确定是否进行了选择,示例如下:If IsNull(Forms!Customers!Country)Then MsgBox “No selection.“End If显示获得焦点的控件的 Name:ctl As ControlSet ctl = Screen.ActiveControlMsgBox ctl.Name窗体:指定当窗体上的命令按钮保持按下状态时,是否重复执行事件过程或宏使用 AutoRepeat 属性可以指定当窗体上的命令按钮保持按下状态时,是否重复执行事件过程或宏True 、False允许添加me.AllowA
11、dditions= True 记录不锁定me.RecordLocks = 1文档来源:是否自动居中AutoCenter= True,False 是否自动调整AutoResize = True,False 窗体边框样式me.BorderStyle=1 中译:无 其它1 无2 细边框3 可调边框4 对话框边框设置窗体、页眉、页脚颜色:Me.Section(0).BackColor = 200Me.Section(1).BackColor = 200Me.Section(2).BackColor = 200窗体标题me.Caption=“中国 ACCESS 软件网“ 中译:窗体标题为“中国 ACCE
12、SS 软件网“(不含引号)关闭按钮me.CloseButton =True 中译 允许关闭按钮其它:true:允许 False:不允许文档来源:控制框me.ControlBox =True 允许其它:true:允许 False:不允许默认视图me.DefaultView =0 为单一窗口其它:0:单一窗口 1:连续窗体 2:数据表允许分隔线me.DividingLines =True 中译 允许分隔线其它:true:允许 False:不允许允许打印版式英文:me.LayoutForPrint =True 中译 允许打印版式其它:true:允许 False:不允许无最大最小化按钮英文:me.Mi
13、nMaxButtons =0 中译 无最大最小化按钮其它:0:无 1:最大化 2:最小化 3:两者都有允许浏览按钮英文:me.NavigationButtons =True 中译 允许浏览按钮其它:true:允许 False:不允许滚动条me.ScrollBars =0 二者均无其它:0:二者均无 1:只垂直 2:只水平 3:二者都有文档来源:允许/不允许添加me.AllowAdditions=True/False 允许/不允许删除me.AllowDeletions=True/False 允许/不允许编辑me.AllowEdits=True/False 指定是否允许打开绑定窗体进行数据输入使用
14、 DataEntry 属性可以指定是否允许打开绑定窗体进行数据输入。DataEntry 属性不决定是否可以添加记录,只决定是否显示已有的记录。Boolean 型,可读/写。True 、False允许/不允许筛选me.AllowFilters=True/FalseFilter=“筛选内容“ 筛选 应用与/否筛选FilterOn=True/False 将 MyForm 窗体的 BackColor 属性,改成 ColorCode 参数指定的色彩。使用 QBColor 函数将 MyForm 窗体的 BackColor 属性,改成 ColorCode 参数指定的色彩。QBColor 可接受 0 到 15 的整型值。