VBA编程.doc

控件:ustomControlActiveX(自定义)控件acImage图像acLabel标签acLine线条acListBox列表框acObjectFrame未绑定对象框或图表acOptionButton选项按钮acOptionGroup选项组acPage页acPageBreak分页符acRectangle矩形acSubform子窗体/子报表acTabCtl选项卡acTextBox文本框acToggleButton切换按钮在VB中对窗体控件的引用键入包含控件的窗体或报表的标识符,后面紧接!运算符和控件的名称。例如,下列标识符将引用“订单”窗体上“订单ID”控件值:Forms![订单]![订单ID]引用子窗体或子报表上的控件,不必使用“窗体”或“报表”属性为窗体或报表指定完整的标识符。例如,可以使用下列标识符来引用“订单”子窗体上的“数量”控件:Forms![订单]![订单子窗体]![数量]判断窗体或报表中控件的数目,然后将该数目赋给一个变量。DimintFormControlsAsIntegerDimintReportControlsAsIntegerintFormControls=Forms!=Reports!,iiAsIntegerForii=(ii).Visible=TrueNextFori=(i).Visible=FalseNext按特殊名在VBA中设置控件的可见性:Fori=(i).NameLike"A*"(i).Visible=FalseEndIfNext指定一个控件能否接受焦点Enabled属性:=true'能=false'不能指定一个控件能否被编辑:locked如:==="显示窗体"设置标签颜色:=200获得焦点及失去焦点时字段变更颜色。如果你的控件是文本框,名称为“txt字段”,写如下代码:PrivateSubtxt字段_GotFocus()=12632256EndSub当中“12632256”是灰色,你可以自己选择希望的颜色,如果想在失去焦点时改为原来的颜色,写如下代码:PrivateSubtxt字段_LostFocus()=16777215EndSub使标签闪烁以引人注意设置窗体的TimerInterval值为1000(1秒).formsOnTimer加入代码:SubForm_Timer()=:=设置文本框颜色:=300设置文本框字体颜色:=500标签等左边距离:===100设置控件宽度/==1000标签等字体粗细:=20000控件边框颜色:=0控件边框线条BorderStyle属性使用以下设置:透明0(仅对于标签、图表和子报表而言是默认值)透明的实线1(默认值)实线虚线2虚线短虚线3短虚线点线4点线稀疏点线5点距较宽的点线点划线6虚线与点线组合的点划线点点划线7虚线-点线-点线组合的点点划线双实线8双实线指定控件的边框宽度使用BorderWidth属性可以指定控件的边框宽度取值:0或1-6指定控件是否透明使BackStyle属性可以指定控件是否透明。True、=False  '解除子窗体锁定将窗体上所有控件的输入法关掉!来源:不祥PrivateSubForm_Open(CancelAsInteger)&==2EndIfNextEndSub上述代码控制文本框,你还