WPFとVB.NET、ControlTemplateをコードで作成

ControlTemplateをコードで作成

デザイン画面とXAML

f:id:gogowaten:20191030114249p:plain

VBコード

f:id:gogowaten:20191030114307p:plain

'ControlTemplateをコードで作成

Imports System.Windows.Controls.Primitives

Class MainWindow

    'Canvasを入れたTemplateを持ったThumbを返す
    Private Function GetThumbWithTemplate() As Thumb
        'Canvasを入れたControlTemplate作成
        Dim ct As New ControlTemplate
        'Canvasを入れる、Canvasの名前はccにした
        ct.VisualTree = New FrameworkElementFactory(GetType(Canvas), "cc")

        'Thumb作成してControlTemplateを指定する
        Dim t As New Thumb
        Call SetLocate(t, 0, 0) '配置する座標指定
        canvas1.Children.Add(t) 'MainWindowのcanvas1にThumbを追加
        t.Template = ct 'ControlTemplateを指定
        'Templateを再構成、これで実際にThumbの中にCanvasが構成される
        t.ApplyTemplate()

        Return t
    End Function


    'Thumbを配置する座標指定
    Private Sub SetLocate(t As Thumb, x As Double, y As Double)
        Canvas.SetLeft(t, x)
        Canvas.SetTop(t, y)
    End Sub


    Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
        'Canvasを入れたTemplateを持ったThumbを取得
        Dim t As Thumb = GetThumbWithTemplate()
        'Rectangleを作成してTemplateの中のCanvasに配置
        Dim r As New Rectangle With {.Fill = Brushes.Cyan, .Width = 100, .Height = 100}
        Dim tb As New TextBlock With {.Text = "コードでTemplate"}
        '名前を指定して中のCanvas取得
        Dim c As Canvas = t.Template.FindName("cc", t)
        c.Children.Add(r)
        c.Children.Add(tb)

        'マウスドラッグ移動用
        AddHandler t.DragDelta, AddressOf tt_DragDelta
    End Sub


    'マウスドラッグ移動用
    Private Sub tt_DragDelta(sender As Object, e As DragDeltaEventArgs)
        Dim t As Thumb = DirectCast(sender, Thumb)
        Dim x As Double = e.HorizontalChange + Canvas.GetLeft(t)
        Dim y As Double = e.VerticalChange + Canvas.GetTop(t)
        Call SetLocate(t, x, y)
    End Sub

End Class

gogowaten.hatenablog.com

WPFとVBでアプリ作る準備その1、マウスドラッグでコントロールの移動 ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/13900213.html

WPFとVBでアプリ作る準備その2、ControlTemplateの中のControlを取得する ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/13906217.html?type=folderlist

この辺りからの続きになるかな

Imageコントロールは枠線がないけどマウスドラッグ移動が手間

マウスドラッグ移動がラクなのはThumbコントロールだけど枠線が要らない

思いついたのが

見た目がImageコントロールなThumbコントロールがあればいい

それにはControlTemplateを使えば良さそう

Imageコントロールを入れたControlTemplateを持ったThumbを作ればいい

ってことで今まではググッて見つけた方法でControlTemplateを作っていたのが