|
窗体中有多个框架时,要动态添加控件时,只能添加在第一个框架中,添加在其他框架里的控件显示不出来。
大家帮我看看怎么回事?
无法添加附件,把窗体初始化过程,写出来:
Private Sub UserForm_Initialize()
For i = 0 To 8
m = (i + 1) \ 4
n = (i + 1) Mod 4
If n = 0 Then
m = m - 1
n = 4
End If
Set ctl = Frame1.Controls.Add("Forms.CheckBox.1")
With ctl
.Caption = "类别" & i
.Left = Me.Frame1.Left + 2 + (n - 1) * 100
.Top = Me.Frame1.Top + 5 + m * 25
.Height = 20
.Width = 50
.Visible = True
End With
Next i
'如果把Frame1换成Frame2则显示不出来
For i = 0 To 8
m = (i + 1) \ 4
n = (i + 1) Mod 4
If n = 0 Then
m = m - 1
n = 4
End If
Set ctl = Frame2.Controls.Add("Forms.CheckBox.1")
With ctl
.Caption = "类别" & i
.Left = Me.Frame2.Left + 2 + (n - 1) * 100
.Top = Me.Frame2.Top + 5 + m * 25
.Height = 20
.Width = 50
.Visible = True
End With
Next i
End Sub
窗体里面放两个框架(frame1 和frame2)
|
|