关于c#：如何将自定义控件属性创建为表单，并且该属性具有项目中所有表单的选项？

How to create a custom control property as form, and the property have options of all forms from the Project?

我正在使用 VB.Net 开发一个 winform 项目。在这个项目中，我创建了一个继承自 UserControl 的自定义按钮，并添加了一个 FormName 属性作为 Form。这样我就可以将 FormName 属性分配给单击自定义按钮时程序将打开的表单。该属性实际上显示在 Visual Studio 属性面板中，但仅显示表单本身作为唯一选项，我们不能从同一项目中选择其他表单。

这是该属性的代码

1
2
3
4
5
6
7
8

<Browsable(True), Description(“Set the Form Name”)> Public Property FormName As Form
Get
Return _formName
End Get
Set(ByVal value As Form)
_formName = value
End Set
End Property

我尝试将上述属性更改为字符串并以字符串格式输入表单名称。之后，我创建了一个 openForm 函数来通过接收字符串作为参数来打开表单，因此基本上获取字符串表单名称并创建一个新的表单实例。但最后，我在与表单的控件(如文本框)交互时遇到问题，因为表单有两个实例。所以我放弃了这个想法。

这是我从字符串名称打开表单的 openForm 函数代码：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

Public Function openForm(ByVal frm As String, Optional ByVal focusCtrl As Control = Nothing, Optional ByVal isFullscreen As Boolean = True, Optional ByVal isDialog As Boolean = False) As Form
Dim obj As Form = TryCast(Activator.CreateInstance(Type.GetType(“Management_System.” + frm)), Form)
Dim myAnimator As New FormAnimator(obj, FormAnimator.AnimationTypes.Blend, fadingTime)
obj.StartPosition = FormStartPosition.CenterScreen
If isDialog Then
obj.ShowDialog()
focusCtrl.Focus()
Else
Dim frms = Application.OpenForms
Dim isOpened As Boolean = False
For Each q In frms
If q.GetType().Name = obj.Name Then
obj = CType(q, Form)
isOpened = True
Exit For
Else
isOpened = False
End If
Next
If isOpened = True Then
If isFullscreen Then
obj.WindowState = FormWindowState.Maximized
Else
obj.WindowState = FormWindowState.Normal
End If
If obj.Visible Then
obj.BringToFront()
Else
obj.Show()
End If
Else
obj.Show()
obj.BringToFront()
End If
End If
Return obj
End Function

预期的输出是作为表单的自定义控件属性，它具有项目中所有表单的选项。

请帮助解决这个问题。提前感谢

编辑：

1
2
3
4
5
6
7
8
9

Private Sub Button_Click(sender As Object, e As EventArgs) Handles cbtnPurchase.Click, cbtnPurchaseReturn.Click, cbtnSales.Click, cbtnSalesReturn.Click, cbtnMutationIn.Click, cbtnMutationOut.Click, cbtnSwitchWarehouse.Click, cbtnOpname.Click, cbtnCakery.Click
Try
Dim btn As customButton = CType(sender, customButton)
If ExitForm Then Return
openForm(btn.FormName)
Catch ex As Exception
MsgTryCatch(ex.Message)
End Try
End Sub

假设一个字符串属性对你来说已经足够好了，在 VB.NET 项目中，你可以依赖 My.Forms 并通过名称获取表单并显示它：

1
2
3
4
5
6
7
8
9
10
11
12
13
14

Public Class MyButton
Inherits Button
Public Property Form As String
Protected Overrides Sub OnClick(e As EventArgs)
If (Not String.IsNullOrEmpty(Form)) Then
Dim fp = My.Forms.GetType().GetProperty(Form)
If (fp IsNot Nothing) Then
Dim f = fp.GetValue(My.Forms)
DirectCast(f, Form).ShowDialog()
End If
End If
MyBase.OnClick(e)
End Sub
End Class

如果您有兴趣获得更好的设计时支持，请查看这篇文章：