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

タイトル ： 自己解決しました　申し訳ありません
投稿日： 2007/07/26(Thu) 09:18
投稿者： ひでと
自己解決いたしました。原因は以下でした。
Fom1のボタン群に共通するイベントを付けようと以下のコードを入れていました。
    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
            con.TabStop = False
            If TypeOf con Is Button Then
                If con.Tag <> "" Then
                    AddHandler con.GotFocus, AddressOf Button_GotFocus
                    AddHandler con.Click, AddressOf Button_Click
                End If
            End If
        Next
    End Sub
しかし　ボタンのクリック処理を入れようとして
    Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Fom.ShowDialog()
    End Sub
と入れてしまったため
Button1のクリックイベントを2重に定義してしまっていたことにありました。
Handles Button1.Clickを削除すると正常に機能いたしました。
お騒がせして申し訳なく思っています。反省しています。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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