21 lines
588 B
VB.net
21 lines
588 B
VB.net
|
Public MustInherit Class PowerSupplyBase
|
|||
|
|
Public Enum PowerSupplyType
|
|||
|
|
PowerSupplyForm
|
|||
|
|
End Enum
|
|||
|
|
'窗体容器
|
|||
|
|
Public L_TabControl As TabControl
|
|||
|
|
|
|||
|
|
'根据选择的类型添加窗体
|
|||
|
|
Public MustOverride Function AddForm(pst As PowerSupplyType, formname As String, formtitle As String, ParamArray par() As Object) As Boolean
|
|||
|
|
|
|||
|
|
|
|||
|
|
'获取窗体数据
|
|||
|
|
Public MustOverride Function GetFormParameter(pst As PowerSupplyType, Partype As Integer) As Object
|
|||
|
|
|
|||
|
|
'删除添加的窗体
|
|||
|
|
Public MustOverride Sub RemoveForm(pst As PowerSupplyType)
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
End Class
|