type中定义控件问题

Question

比如public type aaa
      txt1 as textbox
end type那如何在form中显示此text?总是出现“对象变量和with块变量未设置”还有事件如何定义？

Answer 1

dim bb as aaabb.txt1 = Text1 '(Text1为窗口上实际存在的控件)
这里，类型是做为中间控件，进行保存如果是想动态创建控件，需要用程序来实现，你定义这个类型只是实现了一个对象的定义，但是对象还没有被初始化。不合建，直接使用肯定会有问题

Answer 2

类中响应按钮事件类模块:
Public WithEvents MyButton As CommandButton
Private Sub MyButton_Click()
    Debug.Print "You clicked Command1 of Form1"
    '……
End Sub窗体:
Private Sub Command1_Click()    
    Dim a As New Class1     
     Set a.MyButton = Command1
End Sub

Answer 3

为自定义类定义新事件：Public Event yourEventName([参数列表])
触发事件：RaiseEvent yourEventName ([参数列表]

Answer 4

Private Type aaa
      txt1 As TextBox
End TypePrivate Sub Form_Load()
Dim b As aaa
  Set b.txt1 = Controls.Add("VB.TextBox", "txtTotal")
b.txt1.Visible = True
b.txt1.Width = 3000
b.txt1.Height = 2800
b.txt1.Left = 400
b.txt1.Top = 200
b.txt1 = "文本框"
End Sub