tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトル動的に作成したボタンのイベント記述方法
記事No8477
投稿日: 2008/12/19(Fri) 03:30
投稿者あらき
たびたびお世話になってます。

下記のような感じで、フォーム起動時に動的なボタンを作成したのですが
そのボタンのクリック時のイベント記述方法がわかりません
知っている方がいらっしゃればご教授願います。

            aDayLabel(i) = New Button()
            With aDayLabel(i)
                .Width = CInt(Math.Round(PN_BODY.ClientSize.Width / 7))
                .Height = CInt(Math.Round(PN_BODY.ClientSize.Height / 6))
                .Left = (i Mod 7) * .Width
                .Top = (i \ 7) * .Height
          Next
          PN_BODY.Controls.AddRange(aDayLabel)        'パネルにボタンを追加

[ツリー表示へ]
タイトルRe: 動的に作成したボタンのイベント記述方法
記事No8478
投稿日: 2008/12/19(Fri) 06:41
投稿者
こんにちは。

あらかじめクリックしたときの処理を記述しておいて、
あとからAddHandlerを使って結び付けてはいかがでしょうか。

AddHandler aDayLabel.Click, AddressOf aDayLabel_Click

Private Sub aDayLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MessageBox.Show("aDayLabelがクリックされました。")
    End Sub

[ツリー表示へ]
タイトルRe^2: 動的に作成したボタンのイベント記述方法
記事No8480
投稿日: 2008/12/19(Fri) 08:39
投稿者あらき
下記の方法で解決することができました m(_ _)m
ありがとうございました。


> こんにちは。
>
> あらかじめクリックしたときの処理を記述しておいて、
> あとからAddHandlerを使って結び付けてはいかがでしょうか。
>
> AddHandler aDayLabel.Click, AddressOf aDayLabel_Click
>
> Private Sub aDayLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
>         MessageBox.Show("aDayLabelがクリックされました。")
>     End Sub

[ツリー表示へ]