VB技巧:设置反使能控制

当你在Visual Basic 6之中创建数据入口窗体时,你经常会需要根据应用程序的状态来使能或反使能控制。要使你的应用程序看起来更加专业,就要在整个应用程序之中以同样的方式使能和反使能控制。
 

例如,给文本框和组合框设置BackColor和Locked属性,而不是对他们进行反使能,这样用户仍然可以从这些控制之中拷贝文本。同样地,你可以在多行的文本框之中使用滚条。

对于一个特定类型的控制,任何必需的特殊处理都可以在SetControlState程序之中给出,这可以通过在"If TypeOf"声明中加入一个额外的检查来实现。




Public Sub SetControlState(ByRef EditControl As Control, _ ByVal AllowEdit As Boolean) Dim lngBackColor As Long If AllowEdit Then lngBackColor = vbWindowBackground Else lngBackColor = vbButtonFace End If With EditControl .BackColor = lngBackColor .TabStop = AllowEdit If TypeOf EditControl Is TextBox Then .Locked = Not AllowEdit ElseIf TypeOf EditControl Is ListBox Then .Enabled = AllowEdit ElseIf TypeOf EditControl Is ComboBox Then .Locked = Not AllowEdit End If End With End Sub 

使用一种集中化的程序来设置控制状态可以促进你的应用程序的连贯性,让它看起来更加具有专业水准。由于代码就在一个地方,集中化程序还可以使对控制状态的修改变得很容易。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值