初始化项目

BLV_Studio/PowerSupply/PowerSupplycontroller.vb

@@ -0,0 +1,50 @@
+Public Class PowerSupplycontroller : Inherits PowerSupplyBase
+    Public Sub New(g_tabControl As TabControl)
+        L_TabControl = g_tabControl
+    End Sub
+    Public Overrides Function AddForm(pst As PowerSupplyType, formname As String, formtitle As String, ParamArray par() As Object) As Boolean
+        If L_TabControl.TabPages.ContainsKey(formname) Then Return True
+        Dim page As New TabPage With {.Name = formname, .Text = formtitle}
+        Dim result As Boolean = False
+        Select Case pst
+            Case PowerSupplyType.PowerSupplyForm
+                Dim frm = New PowerSupplyForm()
+                frm.SetFormPattern(par)
+                result = ShowForm(frm, page)
+        End Select
+
+        Return result
+
+    End Function
+    Public Function ShowForm(frm As Form, parentControl As Control) As Boolean
+        If frm Is Nothing Then Return False
+        With frm
+            .FormBorderStyle = FormBorderStyle.None
+            .TopLevel = False
+            .Dock = DockStyle.Fill
+            .Parent = parentControl
+
+            .Enabled = True
+
+            .Show()
+        End With
+        L_TabControl.TabPages.Add(parentControl)
+    End Function
+
+
+    Public Overrides Sub RemoveForm(pst As PowerSupplyType)
+        If L_TabControl.TabPages.ContainsKey([Enum].GetName(GetType(PowerSupplyType), pst)) Then
+            Dim page As TabPage = L_TabControl.TabPages([Enum].GetName(GetType(PowerSupplyType), pst))
+            page.Parent = Nothing
+            ' page.Dispose()
+            L_TabControl.TabPages.RemoveByKey([Enum].GetName(GetType(PowerSupplyType), pst))
+        End If
+        ' Throw New NotImplementedException()
+    End Sub
+
+    Public Overrides Function GetFormParameter(pst As PowerSupplyType, Partype As Integer) As Object
+        Throw New NotImplementedException()
+    End Function
+
+
+End Class