向现有 Windows 窗体应用程序添加上下文相关帮助的好方法是什么？

Question

我必须将数据库驱动的工具提示添加到现有的 WinForms 应用程序中，这是一个很大的应用程序。 C# 和 .NET 3.5

我希望避免为此删除新控件，并且用户必须能够编辑帮助工具提示。

我最好的猜测是将现有控件包装在包含新属性的新类型中，以便我可以分配一个新属性，例如“FieldHelpName”，并可以在管理模块中使用它，以便用户可以清楚地识别该字段。我会为每个表单分配一个 ScreenID，并且每个 FieldHelpName 记录都将链接到一个 ScreenID。在应用程序启动时，加载所有帮助内容，并在表单加载时，按其 ScreenID 进行过滤，并最有可能使用反射添加相应的工具提示。

我正在寻找有关如何最好地完成此过程的建议，或者知道是否有任何有关如何执行此操作的最佳实践......因此，非常感谢任何帮助。谢谢。

Answer 1

为什么要花这么长的篇幅呢？

您可以用更简单的方法来完成同样的事情：

Private _ToolTipList As New List(Of ToolTip)

<Extension()> _
Public Function CreateForm(ByVal formType As Type) As Form
  If (formType Is Nothing) Then
    Throw New ArgumentNullException("formType")
  End If
  If (Not GetType(Form).IsAssignableFrom(formType)) Then
    Throw New InvalidOperationException _
        (String.Format("The type '{0}' is not a form.", formType.FullName))
  End If

  Dim ctor = formType.GetConstructor(New Type() {})
  If (ctor Is Nothing) Then
    Throw New InvalidOperationException _
        (String.Format _
            ("The type '{0}' does not have a public default constructor.", _
            formType.FullName))
  End If

  Dim frm As Form = ctor.Invoke(New Object() {})
  Dim toolTip As New ToolTip(New Container())
  LoadToolTipData(toolTip, frm)
  _ToolTipList.Add(toolTip)

  Return frm

End Function

Private Sub LoadToolTipData(ByVal toolTip As ToolTip, _
                            ByVal ctrl As Control, _
                   Optional ByVal parentHierarchy As String = "")

  Dim currentHierarchy = parentHierarchy & "." & ctrl.Name
  Dim toolTipText = LoadDataFromDb(currentHierarchy)
  If Not String.IsNullOrEmpty(toolTipText) Then
    toolTip.SetToolTip(ctrl, toolTipText)
  End If

  For Each c As Control In ctrl.Controls
    LoadToolTipData(toolTip, c, currentHierarchy)
  Next

End Sub

Private Function LoadDataFromDb(ByVal key As String) As String
  Return String.Empty
End Function

Answer 2

最终创建一个用于配置的数据库表并为每一行指定控件名称，然后递归循环屏幕控件以在当前控件名称与数据库记录的控件名称匹配时添加工具提示。