►index

     スポンサーサイト

    --------

    上記の広告は1ヶ月以上更新のないブログに表示されています。
    新しい記事を書く事で広告が消せます。

     VB.NET リサイズエンド(ResizeEnd)イベントが動かない

    2013-05-31


    何故だかうちの環境ではResizeEndイベントが動いてくれない。しかたがないので、
    次の方法で対応してます。


    Imports System.Windows.Forms

    Public Class From1 

        'OnResizeのEventArgsを保持する
        Dim resizeEA As EventArgs = Nothing

        'フォームのサイズが変更した時
        Protected Overrides Sub OnResize(ByVal e As EventArgs)
            If resizeEA Is Nothing Then
                resizeEA = e
                AddHandler Application.Idle, AddressOf OnIdle
            End If
        End Sub

        'リサイズ完了時(アプリケーションがアイドル状態になった時)
        Private Sub OnIdle(ByVal s As Object, ByVal e As EventArgs)
            If Not (resizeEA Is Nothing) Then
                '基本クラスのOnResizeを呼び出す
                MyBase.OnResize(resizeEA)
                resizeEA = Nothing 

                '--- リサイズ時行う処理 Start --------

                '--- リサイズ時行う処理 End --------
                RemoveHandler Application.Idle, AddressOf OnIdle
            End If
        End Sub
    End Class

     


    スポンサーサイト
    PR
    上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。