Imports Infragistics.Controls.Interactions
…
AddHandler DialogWindow.WindowStateChanging, AddressOf DialogWindow_WindowStateChanging
AddHandler DialogWindow.WindowStateChanged, AddressOf DialogWindow_WindowStateChanged
…
Private Sub DialogWindow_WindowStateChanging(ByVal sender As System.Object, ByVal e As WindowStateChangingEventArgs)
'新しいウィンドウの状態が最小化の場合、イベントをキャンセルします。
If (e.NewWindowState.Equals(WindowState.Minimized)) Then
e.Cancel = True
Return
End If
System.Diagnostics.Debug.WriteLine("Window State Changing from "
+ e.CurrentWindowState.ToString() +
" to " + e.NewWindowState.ToString())
End Sub
Private Sub DialogWindow_WindowStateChanged(ByVal sender As System.Object, ByVal e
As WindowStateChangedEventArgs)
System.Diagnostics.Debug.WriteLine("Window State Changed Successfully")
End Sub