据我所知,groupname比frames好。
Option Explicit
Private C As Control
Private F As Frame
Private Sub CommandButton1_Click()
Me.HIDE
Dim i As Integer
For Each C In Controls
If TypeOf C Is Frame Then
Set F = C
For i = 0 To F.Controls.Count - 1
If F.Controls.Item(i).Name = F.ActiveControl.Name Then
Debug.Print i, F.ActiveControl.Name
End If
If F.Controls.Item(i).Value = True Then
Debug.Print "Value", F.ActiveControl.Name
End If
Next
End If
Next
End Sub
你的用户名说明了一切
:丑陋:
它是如何发展 cmdr? 你想用这些控件做什么?如果我们知道您需要做什么,可能会有一个更简单/更好的不同解决方案。
页:
1
[2]