如果复选框是选中函数

722 · 发表于 2007-10-24 15:49:03

嗨
承认，我不太擅长编写函数；实际上我很糟糕
但是，我们需要一次取消选中表单中的所有复选框，所以不是一个接一个地执行每个复选框，
我设法编写了这段代码：

Dim Ctrl As Control
 For Each Ctrl In Me.Controls
  If TypeOf Ctrl Is CheckBox Then
    Ctrl.Value = False
  End If
Next Ctrl

现在，意识到我可能会在这个项目中多次使用它，我认为尝试为此编写一个小函数可能是个好主意。
这是我的第一次尝试

copy

Private Function IsCheckBoxChecked(ByRef Checkbox As Control) As Boolean
  Dim Ctrl As Control
   For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is Checkbox Then
     IsCheckBoxChecked = True
    Exit Function
    End If
   Next Ctrl
    IsCheckBoxChecked = False
End Function

我不确定这是否写得正确？？？
如果没有，有人能帮我吗？
另外，我如何在潜艇中调用它？？
谢谢
马克

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

撒旦恶魔 · 发表于 2007-10-24 15:56:55

首先，我会让它成为一个子而不是一个函数 - 只是因为我试图坚持subs不返回值，函数这样做。既然你只是在做某事，而不是寻找答案，我会使用一个sub.
现在在代码上，你是否试图通过调用它来清除值？如果是这样，我会只使用你首先发布的内容添加到子声明

copy

Private Sub Uncheck()
Dim Ctrl As Control
 For Each Ctrl In Me.Controls
  If TypeOf Ctrl Is CheckBox Then
    Ctrl.Value = False
  End If
Next Ctrl
End Sub

我没有测试这个，但是如果它适用于你的其他形式，它应该工作