ACCESS-VBA编程.
控件:
常量控件
acBoundObjectFrame 绑定对象框
acCheckBox 复选框
acComboBox 组合框
acCommandButton 命令按钮
acCustomControl ActiveX(自定义)控件
acImage 图像
acLabel 标签
acLine 线条
acListBox 列表框
acObjectFrame 未绑定对象框或图表
acOptionButton 选项按钮
acOptionGroup 选项组
acPage 页
acPageBreak 分页符
textbox控件边框设置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
控件边框颜:
= 0
控件边框线条
BorderStyle 属性使用以下设置:
透明 0 (仅对于标签、图表和子报表而言是默认值)透明的
实线 1 (默认值)实线
虚线 2 虚线
短虚线 3 短虚线
点线 4 点线
稀疏点线 5 点距较宽的点线
点划线 6 虚线与点线组合的点划线
点点划线 7 虚线-点线-点线组合的点点划线
双实线 8 双实线
指定控件的边框宽度
使用 BorderWidth 属性可以指定控件的边框宽度
取值:0或1-6
指定控件是否透明
使BackStyle 属性可以指定控件是否透明。
True 、False
解除子窗体锁定
Me.进_子窗体.Locked = False '解除子窗体锁定
将窗体上所有控件的输入法关掉!
来源:不祥
Private Sub Form_Open(Cancel As Integer)
Dim ctl As
For Each ctl In
&
If = acTextBox Then
= 2
End If
Next
End Sub
上述代码控制文本框,你还可以控制其他的,只要copy进窗体就可以了
列表框的值的引用
如果是单选的列表框,用 me.[列表框名] 来引用;如果要引用不是结合型列的值,可以用 me.[列表框名].column(n) (第一列n=0,第二列n=1…)
引用多列组合框或列表框中特定的列或列与行的组合
用 0 引用第一列,用 1 引用第二列,依此类推。用 0 引用第一行,用 1 引用第二行,依此类推。例如在含有一列客户 ID 和一列客户名称的列表框中,可以使用如下方式引用第二列、第五行的客户名称:
Forms!Contacts!(1, 4)
可以使用Column属性将组合框或列表框的内容指定给另一控件,如文本框。例如,若要将文本框的ControlSource 属性设为列表框第二列中的值,可以使用以下表达式:
=Forms!Customers!(1)
如果引用了组合框或列表框中的列,但用户未做选择,则Column属性设置将为 Null。可以使用IsNull函数来确定是否进行了选择,示例如下:
If IsNull(Forms!Customers!Country)
Then MsgBox "No selection."
End If
显示获得焦点的控件的 Name:
ctl As Control
Set ctl =
MsgBox
窗体:
如何让窗体的标题条闪烁以引起用户注意?
在窗体中放一个Timer控件Timer1,设置其Inteval=200
*API函数声明
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
注释:在窗体中写下如下代码:
Private Sub Timer1_Timer()
FlashWindow , True
End Sub
窗体上如何使用windows的媒体播放器
插入Microsoft Media Player控件
插入控件后,在控件中属性中的几个主要选项:
FileName:要播放的文件名,包括路径
AutoStrat:是否自动播放
AutoRevind:播放完后是否自动回到起点
指定当窗体上的命令按钮保持按下状态时,是否重复执行事件过程或宏
使用 AutoRepeat 属性可以指定当窗体上的命令按钮保持按下状态时,是否重复执行事件过程或宏
True 、False
以隐藏方式打开一个窗体
=false
'允许添加
= True
'记录不锁定
= 1
是否自动居中
AutoCenter= True,False
是否自动调整
AutoResize = True,False
窗体边框样式
=1 中译:无
其它
1 无
2 细边框
3 可调边框
4 对话框边框
设置窗体、页眉、页脚颜:
(0).BackColor = 200
(1).BackColor = 200
(2).BackColor = 200
窗体标题
="中国ACCESS软件网" 中译:窗体标题为"中国ACCESS软件网"(不含引号)
关闭按钮
=True 中译允许关闭按钮
其它:true:允许 False:不允许
控制框
=True 允许
其它:true:允许 False:不允许
默认视图
=0 为单一窗口
其它:0:单一窗口1:连续窗体2:数据表
vba如何獲取/設置在數據表方式下個列的寬度
一、 = 800
二、Me.子窗体名.("列名").ColumnWidth = 400
允许分隔线
=True 中译允许分隔线
其它:true:允许 False:不允许
允许打印版式
英文: =True 中译允许打印版式
其它:true:允许 False:不允许
无最大最小化按钮
英文: =0 中译无最大最小化按钮
其它:0:无 1:最大化 2:最小化 3:两者都有
允许浏览按钮
英文: =True 中译允许浏览按钮
其它:true:允许 False:不允许
滚动条
=0二者均无
其它:0:二者均无 1:只垂直 2:只水平3:二者都有
允许/不允许添加
=True/False
允许/不允许删除
=True/False
允许/不允许编辑
=True/False
指定是否允许打开绑定窗体进行数据输入
使用 DataEntry 属性可以指定是否允许打开绑定窗体进行数据输入。DataEntry 属性不决定是否可以添加记
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。
发表评论