vb.net - vb.netで、プライベートサブからパブリック変数を宣言するにはどうすればよいですか

Question

プライベート サブから動的にラベルを作成しています。ユーザーがラベルをクリックしたときに何かを実行できるようにしたいと考えています。ただし、「Dim withEvents blah ...」は使用できません。これは、 withEvents をローカル変数で使用できないと書かれているためですが、Private Sub 内から「Public withEvents blah」を使用することもできません。どうすればこれを達成できますか?

ありがとう。

Answer 1

動的コントロールを作成するときに、そのハンドラーを追加できます

Dim mylbl As New Label
mylbl.Name = "button1"
mylbl.Text = "hi"
Me.Controls.Add(mylbl)

AddHandler lbl.Click, AddressOf AllLabels_Click

これはあなたの Handler Sub です

Sub AllLabels_Click(ByVal sender As Object, ByVal e As System.EventArgs)

    Dim lbl As Label = CType(sender, Label)

    MsgBox(lbl.Text)

End Sub