vb.net - 许多控件的 Keydown 处理程序

Question

有没有更好的方法来为繁忙表单上的许多控件设置 keydown 处理程序？ (在某些情况下，单独使用表单处理程序是行不通的。)

Private Sub rText_KeyDown(ByVal Sender As Object, ByVal e As KeyEventArgs) Handles rText0.KeyDown, txTaxon.KeyDown, txCommon.KeyDown, _
  txConfidence.KeyDown, txDate.KeyDown, txDateAdded.KeyDown, txFileName.KeyDown, txGPS.KeyDown, txRating.KeyDown, _
  txConfidence.KeyDown, txQuality.KeyDown, txRemarks.KeyDown, txKeyWords.KeyDown, txOriginalPath.KeyDown, txDateAdded.KeyDown, _
  txLink.KeyDown, chkLink.KeyDown, rview.KeyDown, cmdNext.KeyDown, tvTaxon.KeyDown, Me.KeyDown, _
  cmdTaxon.KeyDown
Call globalkey(e)
End Sub

Answer 1

我是一名 C# 程序员，因此无法提供有效的解决方案(如在 vb.net 代码中)。

我认为您可以通过执行以下操作来完成此工作。

写一个方法AddHandler s 用于您各自的控件，当且仅当它们具有设置为属性的特定值(详细信息在下面的步骤 #2 中)

您希望附加一个公共(public)处理程序的所有控件，设置它们的Tag属性为唯一值，例如:"KeyDown" .我建议使用 Enum虽然在这种情况下，而不是 string

现在，在您的 Form构造函数，在 InitializeComponent 之后call，调用你在上面#1中写的方法。这会将处理程序附加到所有所需的控件。

如果您有多个具有此要求的表单，您可以将此功能添加到一个主表单，它就像所有其他表单的父表单(继承)

希望我足够清楚，这会有所帮助。