vb.net - 如何添加需要 Handles 子句的 WithEvents 变量的定义

Question

为了使我的程序在具体情况下更加优雅和组织得更好，我想在我的 Form1 类之上使用引用变量更改 DataGridView1variable

Private aDgv As DataGridView

并在Form1_Load中赋值

aDgv = DataGridView1

之后，我可以在该 Form 中使用 aDgv 变量。
除非在这种情况下:

Private Sub aDgv_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles aDgv.KeyDown
aDgv.SelectionMode = DataGridViewSelectionMode.FullRowSelect
'etc...
End Sub

我收到错误的地方:

Handles clause requires a WithEvents variable defined in the containing type or one of its base types. And aDgv variable after Handles clause is blue underlined.

如何消除错误并让 Handles aDgv.SomeEvent 正常工作？
当然，用引用的aDgv代替原来的控件名称DataGridView1。

Answer 1

最简单的答案是将 WithEvents 添加到 aDgv:

Private WithEvents aDgv As DataGridView