属性页太多的问题，急急急！

Question

呵呵，我不是大下，是菜鸟。下面是把指定窗体的文本框文本设置为"fdafdafdas"的代码，不知道对你有没有启示。（可用来批量设置不同窗体上的同类控件）Public Sub GiveProperty(FormIn As Form)
Dim ctlControl As ControlFor Each ctlControl In FormIn.Controls
   If TypeOf ctlControl Is TextBox Then
      ctlControl.Text = "fdafdafdas"
   End If
Next ctlControlEnd Sub

Answer 1

问题是这样的：做个程序，通过此程序，用户可点击窗口左边图标，在右边的编辑窗口动态生成对应的控件，用户可编辑这些生成控件的属性（通过弹出的属性页）。程序读控件属性，根基属性生成一份文本文件。控件可用load contrl(i)动态生成，一共有26种控件，控件间有其相同属性，也有不同地方，所以得有26个属性页窗口。