如何实现vb中的checkbox控件的lock功能.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 8 行

实 现 你 的 要 求 有 些 麻 烦 ， 因 为 VB不 允 许 设 置 禁 止 状 态 时 的 颜 色 。 
    一 种 办 法 是 在 Click事 件 中 强 制 取 值 ， 比 如 将 CheckBox锁 定 为 选 中 ， 可 以 ： 
    Private Sub Check1_Click() 
     Check1.Value = 1 
    End Sub 
    当 然 这 种 方 法 ， 在 用 户 点 击 时 略 微 有 点 闪 。 
    另 一 种 更 好 的 办 法 是 先 放 置 一 个 Frame控 件 ， 在 Frame控 件 内 部 放 置 一 个 检 查 框 。 然 后 设 置 Frame控 件 的 BorderStyle属 性 为 0， Enabled属 性 为 False。 这 样 也 可 以 实 现 "Lock"功 能 。 这 种 方 法 没 有 前 面 方 法 的 闪 烁 的 毛 病 。 
<END>