tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re^2: 2回 Buttonのクリックイベントが発生します
投稿日： 2007/07/25(Wed) 16:20
投稿者： ひでと
ありがとうございます。
再現が出来ないのですが　ボタンに関係したコードを簡略にすると
以下のような感じになりま。ただしこのコードは正常に機能しているようなので
原因は他にあるのかもしれません。
実際はForm1上に複数のボタンを配置して、共通のイベントを与えたつもりです。

Public Class Form1
    Private Fom As Form
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim con As Control
        For Each con In Me.Controls
            If TypeOf con Is Button Then
                AddHandler con.GotFocus, AddressOf Button_GotFocus
                    AddHandler con.Click, AddressOf Button_Click
            End If
        Next
    End Sub
    Private Sub Button_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Fom.ShowDialog()
    End Sub
    Private Sub Button_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs)
        Fom = Form2 '実際はForm1の押されたボタンによって
　　　　　　　　　　'　Fom=Form3 のように処理を分岐しています
    End Sub
End Class


Public Class Form2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Dispose()
    End Sub
End Class
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。