type中定义控件问题
比如public type aaa
txt1 as textbox
end type
那如何在form中显示此text?总是出现“对象变量和with块变量未设置”
还有事件如何定义? --------------------编程问答-------------------- dim bb as aaa
bb.txt1 = Text1 '(Text1为窗口上实际存在的控件)
这里,类型是做为中间控件,进行保存
如果是想动态创建控件,需要用程序来实现,你定义这个类型只是实现了一个对象的定义,但是对象还没有被初始化。不合建,直接使用肯定会有问题 --------------------编程问答-------------------- 类中响应按钮事件
类模块:
Public WithEvents MyButton As CommandButton
Private Sub MyButton_Click()
Debug.Print "You clicked Command1 of Form1"
'……
End Sub
窗体:
Private Sub Command1_Click()--------------------编程问答-------------------- 为自定义类定义新事件:Public Event yourEventName([参数列表])
Dim a As New Class1
Set a.MyButton = Command1
End Sub
触发事件:RaiseEvent yourEventName ([参数列表] --------------------编程问答-------------------- 不知道楼主这么做的原因. --------------------编程问答--------------------
支持 --------------------编程问答--------------------
这种问题也问,lz送分的吗 --------------------编程问答-------------------- 帮顶!! --------------------编程问答-------------------- marking --------------------编程问答--------------------
Private Type aaa--------------------编程问答--------------------
txt1 As TextBox
End Type
Private 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
支持 --------------------编程问答--------------------
补充:VB , 基础类