建一个类 mClass 类模块中代码: Option Explicit Dim WithEvents mClass As frmMainPrivate Sub Class_Initialize() Set mClass = New frmMain
End SubPrivate Sub Class_Terminate() Set mClass = Nothing End SubPublic Sub ShowEdit() mClass.ShowEdit 1 End Sub 这样只要建立一个类实例,和一个showEdit 方法就可以继承frmMain窗体了如: dim a as mclass set a=new mclass a.showedit
类模块中代码:
Option Explicit
Dim WithEvents mClass As frmMainPrivate Sub Class_Initialize()
Set mClass = New frmMain
End SubPrivate Sub Class_Terminate()
Set mClass = Nothing
End SubPublic Sub ShowEdit()
mClass.ShowEdit 1
End Sub
这样只要建立一个类实例,和一个showEdit 方法就可以继承frmMain窗体了如:
dim a as mclass
set a=new mclass
a.showedit
newFrm.show
我要的是这样:譬如在frmMain窗口中,我可以把frmClient窗口作为一个类似于子控件定义在frmMain窗口上,简单说,就是实现两个窗口的控件叠加。如果大家用过activebar这个控件就比较熟悉了,
vb.net支持继承