在运行时填充表单控件

碧纱沉烟 · 发表于 2007-4-26 16:34:52

好的，下一个问题&nbsp；我不知道该怎么说，所以请容忍我；给定上面的pic格式，我可以枚举其中一个帧内的控件，并按数字捕获所选控件吗（假设枚举是基于零的，则获取所选控件0-？）

米秀 · 发表于 2007-4-26 16:37:07

或者一个数组。。。

米秀 · 发表于 2007-4-26 21:03:12

这可能会有所帮助，我记得我经历了同样的事情，却忘记了答案
据我所知，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

大天狼星 · 发表于 2007-4-27 13:25:46

你的用户名说明了一切：丑恶：
最近怎么样？

韩妃 · 发表于 2007-4-27 13:27:50

你想用这些控件做什么？如果我们知道您需要做什么，可能会有一个更容易/更好的不同解决方案。

在运行时填充表单控件

发表回复

精选推荐