// ウィンドウサイズ変更/移動
private void UserControl_MouseLeftButtonDown(object sender, MouseButtonEventArgs e)
{
    if (!Application.Current.IsRunningOutOfBrowser) return;

    Point pos = e.GetPosition(this);
    double borderSize = 8;
    Window win = Application.Current.MainWindow;

    if (pos.X <= borderSize)
        if (pos.Y <= borderSize)
            win.DragResize(WindowResizeEdge.TopLeft);
        else if (pos.Y >= this.ActualHeight - borderSize)
            win.DragResize(WindowResizeEdge.BottomLeft);
        else
            win.DragResize(WindowResizeEdge.Left);
    else if (pos.X >= this.ActualWidth - borderSize)
        if (pos.Y <= borderSize)
            win.DragResize(WindowResizeEdge.TopRight);
        else if (pos.Y >= this.ActualHeight - borderSize)
            win.DragResize(WindowResizeEdge.BottomRight);
        else
            win.DragResize(WindowResizeEdge.Right);
    else
        if (pos.Y <= borderSize)
            win.DragResize(WindowResizeEdge.Top);
        else if (pos.Y >= this.ActualHeight - borderSize)
            win.DragResize(WindowResizeEdge.Bottom);
        else
            win.DragMove();
}

// マウスカーソル形状設定
private void UserControl_MouseMove(object sender, MouseEventArgs e)
{
    if (!Application.Current.IsRunningOutOfBrowser) return;

    Point pos = e.GetPosition(this);
    double borderSize = 8;

    if (pos.X <= borderSize)
        if (pos.Y <= borderSize)
            this.Cursor = Cursors.SizeNWSE;
        else if (pos.Y >= this.ActualHeight - borderSize)
            this.Cursor = Cursors.SizeNESW;
        else
            this.Cursor = Cursors.SizeWE;
    else if (pos.X >= this.ActualWidth - borderSize)
        if (pos.Y <= borderSize)
            this.Cursor = Cursors.SizeNESW;
        else if (pos.Y >= this.ActualHeight - borderSize)
            this.Cursor = Cursors.SizeNWSE;
        else
            this.Cursor = Cursors.SizeWE;
    else
        if (pos.Y <= borderSize)
            this.Cursor = Cursors.SizeNS;
        else if (pos.Y >= this.ActualHeight - borderSize)
            this.Cursor = Cursors.SizeNS;
        else
            this.Cursor = Cursors.Arrow;
}

スポンサーサイト

// OOB自動更新
if (App.Current.IsRunningOutOfBrowser)
{
    App.Current.CheckAndDownloadUpdateCompleted += (s, arg) =>
    {
        if (arg.Error == null && arg.UpdateAvailable)
            MessageBox.Show("アプリケーションを更新しました。\n" + 
             "変更を反映するにはアプリケーションを再起動してください。",
             "更新通知", MessageBoxButton.OK);
        else if (arg.Error != null)
            MessageBox.Show("アプリケーション更新でエラーが発生しました。\n" +
             "\n[詳細]\n" + arg.Error.Message,
             "更新エラー", MessageBoxButton.OK);
    };
    App.Current.CheckAndDownloadUpdateAsync();
}

// コピペ用ショートカットメニューの表示
private void openContextMenu(TextBox txt, double posX, double posY)
{
    ContextMenu cm = new ContextMenu();

    var miCut = new MenuItem()
    {
        Header = "切り取り"
    };
    miCut.Click += (s, e) =>
    {
        txt.Focus();
        Clipboard.SetText(txt.SelectedText);
        txt.SelectedText = "";
    };
    cm.Items.Add(miCut);

    var miCopy = new MenuItem()
    {
        Header = "コピー"
    };
    miCopy.Click += (s, e) =>
    {
        txt.Focus();
        Clipboard.SetText(txt.SelectedText);
    };
    cm.Items.Add(miCopy);

    var miPaste = new MenuItem()
    {
        Header = "貼り付け"
    };
    miPaste.Click += (s, e) =>
    {
        txt.Focus();
        txt.SelectedText = Clipboard.GetText();
    };
    cm.Items.Add(miPaste);

    if (txt.SelectedText == "")
    {
        miCut.IsEnabled = false;
        miCopy.IsEnabled = false;
    }

    cm.HorizontalOffset = posX;
    cm.VerticalOffset = posY;
    cm.IsOpen = true;
}

// 利用例
private void TextBox1_MouseRightButtonDown(object sender, System.Windows.Input.MouseButtonEventArgs e)
{
    e.Handled = true;
    openContextMenu((TextBox)sender, e.GetPosition(owner).X, e.GetPosition(owner).Y);
}

Imports System.Windows.Automation.Peers
Imports System.Windows.Automation.Provider
 
Private Sub LayoutRoot_MouseWheel(ByVal sender As Object, _
 ByVal e As System.Windows.Input.MouseWheelEventArgs) Handles LayoutRoot.MouseWheel
 
    For Each el In VisualTreeHelper.FindElementsInHostCoordinates( _
     e.GetPosition(Nothing), CType(sender, FrameworkElement))
        Dim peer = FrameworkElementAutomationPeer.FromElement(el)
        If peer Is Nothing Then
            peer = FrameworkElementAutomationPeer.CreatePeerForElement(el)
        End If
        If peer IsNot Nothing Then
            Dim scroll As IScrollProvider = _
             CType(peer.GetPattern(PatternInterface.Scroll), IScrollProvider)
            If scroll IsNot Nothing Then
                If scroll.VerticallyScrollable Then
                    If e.Delta < 0 Then
                        scroll.Scroll(Automation.ScrollAmount.NoAmount, _
                         Automation.ScrollAmount.SmallIncrement)
                    ElseIf e.Delta > 0 Then
                        scroll.Scroll(Automation.ScrollAmount.NoAmount, _
                         Automation.ScrollAmount.SmallDecrement)
                    End If
                    Exit For
                End If
            End If
        End If
    Next
 
End Sub