经常需要对控件和标签相关属性进行设置,本文有助于设计者掌握这些应用。
指定一个控件能否接受焦点
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 = 8290
Me. 控件.Left = 100
标签等字体粗细:
Me.Label2.FontWeight = 20000
控件边框颜色:
Me.Label2.BorderColor = 0
控件边框线条
BorderStyle 属性使用以下设置:
透明 0 (仅对于标签、图表和子报表而言是默认值)透明的
实线 1 (默认值)实线
虚线 2 虚线
短虚线 3 短虚线
点线 4 点线
稀疏点线 5 点距较宽的点线
点划线 6 虚线与点线组合的点划线
点点划线 7 虚线-点线-点线组合的点点划线
双实线 8 双实线
指定控件的边框宽度
使用 BorderWidth 属性可以指定控件的边框宽度
取值:0或1-6
指定控件是否透明
使BackStyle 属性可以指定控件是否透明。
True 、False