VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 让复选框生动起来
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:8280, 日期:2001-01-12
在上面的窗体里性别没有明白地表示为男或女,如下图示。


复选框内包含了检查符号,表示男

复选框内未包含检查符号,表示女


    我们来改进一下复选框。选中性别复选框,单击在属性表“事件/单击”右边的生成器按钮,选择代码生成器,就出现了代码的编辑窗口。写入如下程序:

Private Sub 性别_Click()

    注释:根据复选框的值显示男或女

    If (Me![性别] = -1) Then       注释:如果“是”就把标签改成“男”
      Me![性别标签].Caption = "男"
    End If

    If (Me![性别] = 0) Then        注释:如果“否”就把标签改成“女”
      Me![性别标签].Caption = "女"
    End If

End Sub

    以上这段程序能在单击复选框时自动改编标签显示的内容。为了在移动记录时正确显示性别,还需要在窗体的“事件/成为当前”里把这段程序再写一遍。

Private Sub Form_Current()

    注释:根据复选框的值显示男或女

    If (Me![性别] = -1) Then       注释:如果“是”就把标签改成“男”
      Me![性别标签].Caption = "男"
    End If

    If (Me![性别] = 0) Then        注释:如果“否”就把标签改成“女”
      Me![性别标签].Caption = "女"
    End If

End Sub