# Re: 请问如何将一个按钮群组的enabled=false

Posted by balor on October 27, 1999 at 23:14:15:

In Reply to: Re: 请问如何将一个按钮群组的enabled=false posted by George on October 27, 1999 at 12:31:27:

: : 请问如何将一个按钮群组的enabled=false
: : 除了用回圈的方式以外
: : 还有其他的方法吗
: : 谢谢

: 你可写一支专门让控制项的enabled=true or false
: 每次只要你呼叫这支程式,并把想改变的控制项名称
: 传入,如此可弹性运用

这是我遇到此问题的解决方法...
如果您有更好的方法请您mail给我!!!

'Command = True 表示要将FrameX以及在FrameX上的控制项全部 Enable
'若为False则Disable
'FrameX 为要处理的Frame
'FormX 为FrameX所在的表单
Public Function Control_Frame(Command As Boolean, FrameX As Frame, FormX As Form)
Dim TempObject As Object
Dim TempString As String
If Command = True Then
FrameX.Enabled = True
Else
FrameX.Enabled = False
End If
On Error Resume Next
For Each TempObject In FormX.Controls
TempString = ""
TempString = TempObject.Container
If TempString = FrameX.Caption Then
If Command = True Then
TempObject.Enabled = True
Else
TempObject.Enabled = False
End If
End If
Next
End Function

Follow Ups: