Labelをクリックした番号を求める (ID:143464)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 DoubleClick イベントの sender 引数に、ダブルクリックされたラベルが渡されています。 2008 であれば、イベント引数の sender を As Object から As Label に変更すれば、引数 sender を使って判断できるかと思います。 イベント引数を修正したくない場合には、引数はそのままにしておいて、 イベント処理の中で Dim lbl As Label = DirectCast(sender, Label) のように型変換すれば、lbl.Text や lbl.Name にアクセスできます。 もし、個別の DoubleClick イベントを多数用意するのが大変なのであれば AddHandler を使って動的に割り当ててしまうのも良いでしょう。 Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load For Each lbl In GroupBox1.Controls.OfType(Of Label)() AddHandler lbl.DoubleClick, AddressOf DayLabels_DoubleClck Next For Each lbl In GroupBox2.Controls.OfType(Of Label)() AddHandler lbl.DoubleClick, AddressOf DayLabels_DoubleClck Next End Sub Sub DayLabels_DoubleClck(sender As Object, e As EventArgs) Dim lbl As Label = DirectCast(sender, Label) MsgBox(lbl.Name & " - " & lbl.Text) End Sub End Class