派生类添加自定义属性的奇怪问题 (XX相报)
定义了一个Button的派生类
Public Class CbtnChange
Inherits Button '从按钮类继承
Public Sub New()
MyBase.New() '调用父类的NEW方法
End Sub
dim MvarPropertyDBname As String = ""
Public Property DBname() As String '这里是添加的属性
Get
Return MvarPropertyDBname
End Get
Set(ByVal value As String)
MvarPropertyDBname = value
End Set
End Property
End Class
在WINFORM中用可视方式添加此类,能正常访问到DBname属性,可附值或读出,但用动态添加的方式:
OMyButton = New CbtnChange
myForm.Panel1.Controls.Add(OMyButton)
添加后,以下语句 me.Panel1.Controls.Item(0).DBname 却提示出错:无此属性,望高人指教,
在下会将多年收集的一些资料奉献。
[此贴子已经被作者于2006-4-27 13:48:19编辑过]