VB技巧:设置反使能控制
2004-07-11 14:02
337 查看
当你在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 使用一种集中化的程序来设置控制状态可以促进你的应用程序的连贯性,让它看起来更加具有专业水准。由于代码就在一个地方,集中化程序还可以使对控制状态的修改变得很容易。
对于一个特定类型的控制,任何必需的特殊处理都可以在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 使用一种集中化的程序来设置控制状态可以促进你的应用程序的连贯性,让它看起来更加具有专业水准。由于代码就在一个地方,集中化程序还可以使对控制状态的修改变得很容易。
相关文章推荐
- 服务器Windows Server 2008 远程控制安全设置技巧
- Win2008 远程控制安全设置技巧
- iOS中tableView cell分割线的一些设置技巧
- vb的一些技巧和心得
- Win8系统分配访问限制用户使用范围的设置技巧
- win2003设置技巧大全
- IIS服务器防范攻击安全设置技巧
- 韩顺平_轻松搞定网页设计(html+css+javascript)_第23讲_js三大流程控制(顺序流程、分支控制、循环控制)_js调式技巧_学习笔记_源代码图解_PPT文档整理
- VBA控制菜单栏上的菜单(如页面设置、打印)
- 0x3f3f3f3f...编程中无穷大常量的设置技巧
- FCL应用技巧之------如何设置ListView控件中的列头、SubItem单元的颜色
- VB.Net Dictionary的技巧和8个实例
- word 如何快速给字体上色---快捷键设置 && 删除多余回车符的技巧
- Chrome 中的 JavaScript 断点设置和调试技巧
- 【电脑使用技巧】半角和全角如何设置
- 使用Chrome调试JavaScript的断点设置和调试技巧
- PocketTouch控制iPod工具使用及设置教程
- 02-05 控制AutoCAD环境(五) 设置AutoCAD选项
- ASP.NET MVC 3 入门级常用设置、技巧和报错
- RobotArt设置速度技巧