WPFとVB.NET、アプリでの編集状態保存、名前を付けて保存、回転角度を指定する2つの方法 ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14093723.html

DataContractSerializerを使って、オブジェクトのXMLシリアル化、逆シリアル化を行う: .NET Tips: C#, VB.NET
http://dobon.net/vb/dotnet/file/datacontractserializer.html

DataContractSerializerを使って、Object配列やArrayListをXMLシリアル化する: .NET Tips: C#, VB.NET
http://dobon.net/vb/dotnet/file/datacontractserializer2.html

OnSerializedAttribute クラス (System.Runtime.Serialization)
https://msdn.microsoft.com/ja-jp/library/system.runtime.serialization.onserializedattribute(v=vs.110).aspx

DataContractSerializerのデシリアライズで既定値を設定する « 空談録
http://artfulplace.net/blogs/set-default-value-to-datacontract-serialized-object/

WPFとVB.NET、Bindingしたままコントロールを直接変形、TransformGroupの中のRotateTransform ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14098125.html

WPFとVB.NET、アプリでの編集状態保存、名前を付けて保存、回転角度を指定する2つの方法 ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14093723.html

1. Thumb作成
2. Window.ResourcesからControlTemplateを取得
3. ThumbにControlTemplateを指定
4. ControlTemplateの中のImage取得
5. 画像ファイルからBitmapImage作成
6. ImageのSourceにBitmapImageを指定
7. ThumbをCanvasに追加して表示

FrameworkElement.ApplyTemplate メソッド(System.Windows)
https://msdn.microsoft.com/ja-jp/library/system.windows.frameworkelement.applytemplate(v=vs.110).aspx

アプリケーションでこのメソッドを呼び出すと、要素のビジュアル ツリーが完全であることが保証されます。この保証のステップは、コードでツリーの子要素をチェックする場合に必要になることがあります。テンプレートは要素の有効期間の適切な時点で自動的に要素に適用されるため、アプリケーション内の一般的な要素のロジックで ApplyTemplate を呼び出す必要はありません。

'FrameworkElement.ApplyTemplate メソッド(System.Windows)
'https://msdn.microsoft.com/ja-jp/library/system.windows.frameworkelement.applytemplate(v=vs.110).aspx
'/Knowledge/Programming/WPF/コントロールテンプレート上のボタンのスタイルの動的変更
'http://www.geocities.jp/kandou_quester/Knowledge/Programming/WPF/_change_style_of_button_on_control_template_dinamically.html
'↑参照したところ

---

Imports System.Windows.Controls.Canvas
Imports System.Windows.Controls.Primitives


Class MainWindow

    'Thumbのドラッグ移動用
    Private Sub tmb_DragDelta(sender As Object, e As DragDeltaEventArgs)
        Dim t As Thumb = DirectCast(sender, Thumb)

        Dim x As Double = e.HorizontalChange
        Dim y As Double = e.VerticalChange
        Dim tx As Double = GetLeft(t)
        Dim ty As Double = GetTop(t)
        x += tx
        y += ty

        SetTop(t, y)
        SetLeft(t, x)
    End Sub

---

    'Thumbの中に画像追加
    Private Sub AddImage(cc As Canvas, path As List(Of String), p As List(Of Point))
        For i As Integer = 0 To p.Count - 1
            Dim b As New BitmapImage(New Uri(path(i)))
            Dim img As New Image With {
                .Source = b,
                .Stretch = Stretch.None,
                .Width = b.PixelWidth,
                .Height = b.PixelHeight}
            SetLeft(img, p(i).X) : SetTop(img, p(i).Y) '描画位置指定
            cc.Children.Add(img) '追加
        Next
    End Sub

---

    ''' <summary>
    ''' Templateを指定したThumbを作成してcanvas1に追加、Templateの中のcCanvasを返す
    ''' </summary>
    ''' <param name="p">Thumbの描画位置指定</param>
    ''' <returns>ThumbのTemplateの中のcCanvas</returns>
    Private Function AddThumb(p As Point) As Canvas
        Dim t As New Thumb 'Thumb新規作成
        'ThumbにTemplate設定
        Dim tmp As ControlTemplate = Me.Resources.Item("ct")
        t.Template = tmp 'Resources.Item("ct")

        'ThumbをCanvasに追加、描画位置指定
        SetLeft(t, p.X) : SetTop(t, p.Y)
        canvas1.Children.Add(t)
        'マウスドラッグ移動イベント用
        AddHandler t.DragDelta, AddressOf tmb_DragDelta

        'TemplateのVisualTreeを再構築してからでないと中のCanvasを取得できないので
        t.ApplyTemplate() '再構築！！！
        'そして中のCanvasを取得！！！
        Dim cc As Canvas = t.Template.FindName("cCanvas", t)
        'cc.Background = New SolidColorBrush(Colors.White) '背景白色

        Return cc

    End Function

---

    'Button1クリック
    'Templateの中のコントロールの取得テスト
    Private Sub bt1_Click(sender As Object, e As RoutedEventArgs) Handles bt1.Click
        Dim t As New Thumb 'Thumb新規作成
        t.Name = "ControlTemplateを適用したThumbです" '目印
        'リソースの中からControlTemplateを取得
        Dim tmp As ControlTemplate = Me.Resources.Item("ct")
        'ThumbにTemplate設定
        t.Template = tmp 'Resources.Item("ct")


        'ここからTemplateの中のコントロールの取得
        Dim emp As Canvas = t.Template.FindName("cCanvas", t)
        '↑ここでは取得できない
        '先にTemplateのVisualTreeを再構築する必要があるので
        t.ApplyTemplate() '再構築！！！
        'そして中のコントロールを取得！！！
        Dim cc As Canvas = t.Template.FindName("cCanvas", t)
        Dim cb As Button = t.Template.FindName("cButton", t)
        Dim cl As ListBox = t.Template.FindName("cListbox", t)

        Dim cctp As Thumb = DirectCast(cc.TemplatedParent, Thumb)
        Dim cbtp As Thumb = DirectCast(cb.TemplatedParent, Thumb)
        Dim cltp As Thumb = DirectCast(cl.TemplatedParent, Thumb)

        Dim cctpn As String = cctp.Name

    End Sub

---

    'Button2クリック
    'canvas1に画像追加したThumbを追加
    Private Sub bt2_Click(sender As Object, e As RoutedEventArgs) Handles bt2.Click
        Dim t As New Thumb
        SetLeft(t, 0) : SetTop(t, 0)
        canvas1.Children.Add(t)
        t.Template = Resources.Item("ct")
        t.ApplyTemplate() '再構築！！！
        AddHandler t.DragDelta, AddressOf tmb_DragDelta

        Dim cc As Canvas = t.Template.FindName("cCanvas", t)

        Dim path As New List(Of String)({"D:\ブログ用\テスト用画像\collection_1.png",
                                        "D:\ブログ用\テスト用画像\collection_2.png",
                                        "D:\ブログ用\テスト用画像\collection_3.png"})
        Dim p As New List(Of Point)({New Point(10, 10),
                                    New Point(50, 60),
                                    New Point(80, 20)})
        Call AddImage(cc, path, p)
    End Sub

---

    'Button3クリック
    'canvas1に画像追加したThumbを追加
    Private Sub bt3_Click(sender As Object, e As RoutedEventArgs) Handles bt3.Click
        Dim t As New Thumb
        SetLeft(t, 0) : SetTop(t, 0)
        canvas1.Children.Add(t)
        t.Template = Resources.Item("ct")
        t.ApplyTemplate() '再構築！！！
        AddHandler t.DragDelta, AddressOf tmb_DragDelta

        Dim cc As Canvas = t.Template.FindName("cCanvas", t)

        Dim path As New List(Of String)({"D:\ブログ用\テスト用画像\hueRectT210.png",
                                        "D:\ブログ用\テスト用画像\hueRectT255.png",
                                        "D:\ブログ用\テスト用画像\hueRectT300.png"})
        Dim p As New List(Of Point)({New Point(10, 10),
                                    New Point(30, 30),
                                    New Point(80, 20)})
        Call AddImage(cc, path, p)
    End Sub

End Class

Wpf_test109_ControlTmplateの中のControl取得 - Visual Studio Team Services
https://gogowaten.visualstudio.com/DefaultCollection/WPF/_git/WPF_test6?path=%2FWpf_test109_ControlTmplate%E3%81%AE%E4%B8%AD%E3%81%AEControl%E5%8F%96%E5%BE%97&version=GBmaster&_a=contents

ジェネリックコレクション その3 SortedListとSortedDictionary (System.Collections.Generic) - Programming/.NET Framework/コレクション - 総武ソフトウェア推進所
        http://smdn.jp/programming/netfx/collections/2_generic_3_sortedlist_sorteddictionary/#indexed_access

Wpf_test115_グリッド移動2 - Visual Studio Team Services
https://gogowaten.visualstudio.com/WPF/_git/WPF_test7?path=%2FWpf_test115_%E3%82%B0%E3%83%AA%E3%83%83%E3%83%89%E7%A7%BB%E5%8B%952&version=GBmaster&_a=contents

Imports System.Windows.Controls.Primitives


Class MainWindow
    Private thumbList As New List(Of Thumb)
    Private waku As Path '枠

    'Thumbをcanvas1に追加表示
    Private Sub AddThumb(p As Point, s As Size, angle As Double)
        Dim t As New Thumb
        With t
            .Width = s.Width
            .Height = s.Height
            .RenderTransform = New RotateTransform(angle)
        End With
        Call SetLocate(t, p)
        thumbList.Add(t)
        canvas1.Children.Add(t)
        AddHandler t.DragDelta, AddressOf ThumbDragDelta

    End Sub

    'Thumbの座標セット
    Private Sub SetLocate(t As Thumb, p As Point)
        Canvas.SetLeft(t, p.X)
        Canvas.SetTop(t, p.Y)
    End Sub

    'Thumbの座標ゲット
    Private Function GetLocate(t As Thumb) As Point
        Return New Point(Canvas.GetLeft(t), Canvas.GetTop(t))
    End Function

    'Thumbのマウスドラッグイベント用
    Private Sub ThumbDragDelta(sender As Object, e As DragDeltaEventArgs)
        Dim t As Thumb = DirectCast(sender, Thumb)
        Dim np As New Point(e.HorizontalChange, e.VerticalChange)
        np = np + GetLocate(t)
        Call SetLocate(t, np)
    End Sub

    '渡されたThumbがぴったり収まるRectを返す
    Private Function GetRect(t As Thumb) As Rect
        Dim gt As GeneralTransform = t.TransformToVisual(canvas1)
        Dim r As Rect = gt.TransformBounds(
            New Rect(New Point(0, 0), New Size(t.Width, t.Height)))
        Return r
    End Function

    '渡されたThumbすべてがぴったり収まるRectを返す
    'RectのUnionメソッドを使う
    Private Function GetUnionRect(thumbList As List(Of Thumb)) As Rect
        Dim r As New Rect
        Dim ur As New Rect 'すべてのRectがぴったり収まるRect用
        Dim rl As New List(Of Rect) '左上座標取得用
        For Each t As Thumb In thumbList
            r = GetRect(t)
            rl.Add(r)
            ur.Union(r)
        Next
        Dim p As Point = GetLeftTop(rl) '左上座標取得
        ur.Location = ur.Location + p '座標変更
        'サイズ変更
        ur.Size = New Size(ur.Width - p.X, ur.Height - p.Y)
        Return ur

    End Function

    '複数Rectの一番左上取得
    Private Function GetLeftTop(rectList As List(Of Rect)) As Point
        Dim x As Double = rectList(0).X
        Dim y As Double = rectList(0).Y
        For i As Integer = 1 To rectList.Count - 1
            x = Math.Min(x, rectList(i).X)
            y = Math.Min(y, rectList(i).Y)
        Next
        Return New Point(x, y)
    End Function

    '赤枠描画
    Private Sub DrawRectPath(r As Rect)
        '前回の枠があったら消す
        If waku IsNot Nothing Then
            canvas1.Children.Remove(waku)
        End If
        '新しい赤枠描画
        Dim p As New Path With {.Stroke = Brushes.Red, .StrokeThickness = 1}
        Dim g As New RectangleGeometry(r)
        p.Data = g
        canvas1.Children.Add(p)
        waku = p
    End Sub

    'アプリ起動直後、Thumbを表示する
    Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
        Call AddThumb(New Point(80, 10), New Size(100, 100), 10)
        Call AddThumb(New Point(180, 50), New Size(50, 100), 30)
        Call AddThumb(New Point(200, 100), New Size(120, 100), 20)
    End Sub

    'グループ化した場合のRect表示
    Private Sub bt1_Click(sender As Object, e As RoutedEventArgs) Handles bt1.Click
        Dim ur As Rect = GetUnionRect(thumbList)
        Call DrawRectPath(ur)
    End Sub

End Class

Wpf_test118_グループ化3 - Visual Studio Team Services
https://gogowaten.visualstudio.com/WPF/_git/WPF_test7?path=%2FWpf_test118_%E3%82%B0%E3%83%AB%E3%83%BC%E3%83%97%E5%8C%963&version=GBmaster&_a=contents

'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

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

Dim ct As New ControlTemplate

ct.VisualTree = New FrameworkElementFactory(GetType(Canvas), "cc")

Dim c As Canvas = t.Template.FindName("cc", t)

Dim c As Canvas = DirectCast(t.Template.FindName("cc", t), Canvas)

Dim c As Canvas = CType(t.Template.FindName("cc", t), Canvas)

Wpf_test117_コントロールテンプレートControlTemplate - Visual Studio Team Services
https://gogowaten.visualstudio.com/WPF/_git/WPF_test7?path=%2FWpf_test117_%E3%82%B3%E3%83%B3%E3%83%88%E3%83%AD%E3%83%BC%E3%83%AB%E3%83%86%E3%83%B3%E3%83%97%E3%83%AC%E3%83%BC%E3%83%88ControlTemplate&version=GBmaster&_a=contents

'ThumbのTemplateを指定した時どれを回転させればドラッグ移動がうまくいくのか
'結果はThumb以外のどれかが良さそう
'Template中のCanvasかCanvasの中に入れたものになるけど
'Canvasがいいかなあってところ

Imports System.Windows.Controls.Primitives

Class MainWindow
    'Thumbの座標セット
    Private Sub SetLocate(obj As Object, p As Point)
        Canvas.SetLeft(obj, p.X)
        Canvas.SetTop(obj, p.Y)
    End Sub

    'Thumbの座標ゲット
    Private Function GetLocate(obf As Object) As Point
        Return New Point(Canvas.GetLeft(obf), Canvas.GetTop(obf))
    End Function

    'Thumbのマウスドラッグイベント用
    Private Sub ThumbDragDelta(sender As Object, e As DragDeltaEventArgs)
        Dim t As Thumb = DirectCast(sender, Thumb)
        Dim np As New Point(e.HorizontalChange, e.VerticalChange)
        np = np + GetLocate(t)
        Call SetLocate(t, np)
    End Sub

    '回転角度と拡大率を指定したTransformGroupを返す
    Private Function GetTransformGroup(angle As Double, scale As Double) As TransformGroup
        Dim tg As New TransformGroup
        tg.Children.Add(New RotateTransform(angle))
        tg.Children.Add(New ScaleTransform(scale, scale))
        Return tg
    End Function

    'Canvasを入れたTemplate付きのThumbを作成
    Private Function GetThumb() As Thumb
        Dim ct As New ControlTemplate
        ct.VisualTree = New FrameworkElementFactory(GetType(Canvas), "cc")

        Dim t As New Thumb
        t.Template = ct
        t.ApplyTemplate() 'Template再構成

        'Dim c As Canvas = t.Template.FindName("cc", t)
        'c.Background = Brushes.Transparent 'これをつけると透明部分でもドラッグ移動できる
        Return t
    End Function

    'Thumbを60度回転させて表示
    Private Sub AddThumbRotateThumb()
        Dim t As Thumb = GetThumb()
        Dim c As Canvas = t.Template.FindName("cc", t)
        Dim r As New Border With {
            .Background = Brushes.Cyan, .Width = 100, .Height = 100}
        Dim tb As New TextBlock With {.Text = "Thumbを60度回転"}
        t.Width = r.Width
        t.Height = r.Height
        c.Children.Add(r)
        c.Children.Add(tb)
        canvas1.Children.Add(t)
        SetLocate(t, New Point(50, 100))
        'Thumbを回転
        t.RenderTransform = GetTransformGroup(60, 1)
        t.RenderTransformOrigin = New Point(0.5, 0.5)
        AddHandler t.DragDelta, AddressOf ThumbDragDelta
    End Sub

    'Thumbの中のCanvasを60度回転させて表示
    Private Sub AddThumbRotateCanvas()
        Dim t As Thumb = GetThumb()
        Dim c As Canvas = t.Template.FindName("cc", t)
        Dim r As New Border With {
            .Background = Brushes.Cyan, .Width = 100, .Height = 100}
        Dim tb As New TextBlock With {
            .Text = "Thumbの中のCanvasを60度回転",
            .TextWrapping = TextWrapping.Wrap,
            .Width = r.Width}
        t.Width = r.Width
        t.Height = r.Height
        c.Children.Add(r)
        c.Children.Add(tb)
        canvas1.Children.Add(t)
        SetLocate(t, New Point(200, 100))
        Dim cc As Canvas = t.Template.FindName("cc", t)
        'Thumbの中のCanvasを回転
        cc.RenderTransform = GetTransformGroup(60, 1)
        cc.RenderTransformOrigin = New Point(0.5, 0.5)
        AddHandler t.DragDelta, AddressOf ThumbDragDelta
    End Sub

    'Thumbの中のCanvasの中のRectとtextBlockを60度回転させて表示
    Private Sub AddThumbRotateRect()
        Dim t As Thumb = GetThumb()
        Dim c As Canvas = t.Template.FindName("cc", t)
        Dim r As New Border With {
            .Background = Brushes.Cyan, .Width = 100, .Height = 100}
        Dim tb As New TextBlock With {
            .Text = "Thumbの中のCanvasの中のRectとtextBlockを60度回転",
            .TextWrapping = TextWrapping.Wrap,
            .Width = r.Width}
        t.Width = r.Width
        t.Height = r.Height
        c.Children.Add(r)
        c.Children.Add(tb)
        canvas1.Children.Add(t)
        SetLocate(t, New Point(350, 100))
        'Thumbの中のCanvasの中のRectとtextBlockを回転
        r.RenderTransform = GetTransformGroup(60, 1)
        r.RenderTransformOrigin = New Point(0.5, 0.5)
        tb.RenderTransform = GetTransformGroup(60, 1)
        tb.RenderTransformOrigin = New Point(0.5, 0.5)
        AddHandler t.DragDelta, AddressOf ThumbDragDelta
    End Sub

    Private Sub MainWindow_ContentRendered(sender As Object, e As EventArgs) Handles Me.ContentRendered
        'MsgBox("contentrendered!")
    End Sub

    Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
        Call AddThumbRotateThumb()
        Call AddThumbRotateCanvas()
        Call AddThumbRotateRect()

    End Sub
End Class

Wpf_test121_コントロールテンプレートControlTemplate - Visual Studio Team Services
https://gogowaten.visualstudio.com/WPF/_git/WPF_test7?path=%2FWpf_test121_%E3%82%B3%E3%83%B3%E3%83%88%E3%83%AD%E3%83%BC%E3%83%AB%E3%83%86%E3%83%B3%E3%83%97%E3%83%AC%E3%83%BC%E3%83%88ControlTemplate&version=GBmaster&_a=contents

WPFとVB.NET、ControlTemplateを使ったThumbを回転表示する時に回転させるのはどれがいいのか ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14157487.html

Wpf_test119_グループ化4 - Visual Studio Team Services
https://gogowaten.visualstudio.com/WPF/_git/WPF_test7?path=%2FWpf_test119_%E3%82%B0%E3%83%AB%E3%83%BC%E3%83%97%E5%8C%964&version=GBmaster&_a=contents

WPFとVB.NET、エクセルのグループ化を真似したいからまずはグループ化のRectを取得 ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14151447.html

WPFとVB.NET、ControlTemplateをコードで作成 ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14156250.html

WPFとVB.NET、ControlTemplateを使ったThumbを回転表示する時に回転させるのはどれがいいのか ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14157487.html

Dim tg As New TransformGroup
tg.Children.Add(New ScaleTransform(0.5, 1.2))
tg.Children.Add(New RotateTransform(30))
Dim b As New Border
b.RenderTransform = tg

Class MainWindow
    Private mihonRotateScale As Border
    Private mihonScaleRotate As Border


    ''' <summary>
    ''' TransformGroupの中から指定したTransformを返す
    ''' </summary>
    ''' <param name="tGroup">RenderTransformとか指定</param>
    ''' <param name="tType">取得したいTransformの指定、RotateTransformとか</param>
    ''' <returns></returns>
    Private Function GetTransform(tGroup As TransformGroup, tType As Type) As Transform
        For Each c As Transform In tGroup.Children
            If tType = c.GetType Then
                Return c
                Exit For
            End If
        Next
        Return Nothing
    End Function

    Private Function ResetScaleRotate() As TransformGroup
        Dim tg As New TransformGroup
        tg.Children.Add(New ScaleTransform(1, 1))
        tg.Children.Add(New RotateTransform(0))
        Return tg
    End Function

    Private Function ResetRotateScale() As TransformGroup
        Dim tg As New TransformGroup
        tg.Children.Add(New RotateTransform(0))
        tg.Children.Add(New ScaleTransform(1, 1))
        Return tg
    End Function

    Private Function GetBorder(tg As TransformGroup) As Border
        Dim b As New Border
        With b
            .Width = 100
            .Height = 100
            .Background = Brushes.Red
            .RenderTransformOrigin = New Point(0.5, 0.5)
            .RenderTransform = tg
        End With
        Return b
    End Function

    Private Sub SetBorder(b As Border, x As Double, y As Double)
        Canvas.SetLeft(b, x)
        Canvas.SetTop(b, y)
        canvas1.Children.Add(b)
    End Sub
    Private Sub ChangeAngle(b As Border)
        Dim tg As TransformGroup = b.RenderTransform
        Dim ro As RotateTransform = GetTransform(tg, GetType(RotateTransform))
        ro.Angle = 30
    End Sub

    Private Sub ChangeScale(b As Border)
        Dim tg As TransformGroup = b.RenderTransform
        Dim s As ScaleTransform = GetTransform(tg, GetType(ScaleTransform))
        s.ScaleX = 0.5
        s.ScaleY = 1.2
    End Sub

    Private Sub MainWindow_ContentRendered(sender As Object, e As EventArgs) Handles Me.ContentRendered
        Dim b As Border = GetBorder(ResetRotateScale)
        mihonRotateScale = b
        Call SetBorder(b, 30, 50)

        b = GetBorder(ResetScaleRotate)
        mihonScaleRotate = b
        Call SetBorder(b, 200, 50)
    End Sub

    Private Sub bt1_Click(sender As Object, e As RoutedEventArgs) Handles bt1.Click
        mihonRotateScale.RenderTransform = ResetRotateScale()
    End Sub

    Private Sub bt2_Click(sender As Object, e As RoutedEventArgs) Handles bt2.Click
        Call ChangeAngle(mihonRotateScale)
    End Sub

    Private Sub bt3_Click(sender As Object, e As RoutedEventArgs) Handles bt3.Click
        Call ChangeScale(mihonRotateScale)
    End Sub

    Private Sub bt4_Click(sender As Object, e As RoutedEventArgs) Handles bt4.Click
        mihonScaleRotate.RenderTransform = ResetScaleRotate()
    End Sub

    Private Sub bt5_Click(sender As Object, e As RoutedEventArgs) Handles bt5.Click
        Call ChangeAngle(mihonScaleRotate)
    End Sub

    Private Sub bt6_Click(sender As Object, e As RoutedEventArgs) Handles bt6.Click
        Call ChangeScale(mihonScaleRotate)
    End Sub

    Private Sub sld1_ValueChanged(sender As Object, e As RoutedPropertyChangedEventArgs(Of Double)) Handles sld1.ValueChanged
        Dim tg As TransformGroup = mihonRotateScale.RenderTransform
        Dim r As RotateTransform = GetTransform(tg, GetType(RotateTransform))
        r.Angle = sld1.Value

    End Sub
End Class

Wpf_test122_TransformGroupにAddする順番 - Visual Studio Team Services
https://gogowaten.visualstudio.com/WPF/_git/WPF_test7?path=%2FWpf_test122_TransformGroup%E3%81%ABAdd%E3%81%99%E3%82%8B%E9%A0%86%E7%95%AA&version=GBmaster&_a=contents

1. t同士をグループ化
2. 複数Gのグループ化
3. 単体Gとtをグループ化

WPF: XAML, C# で TextBlock などの要素内の文字列を改行させる « をぶろぐ
http://tetsuwo.tumblr.com/post/59191241888/wpf-xaml-csharp-textblock-break-word-wrap

Wpf_test125_グループ化8 - Visual Studio Team Services
https://gogowaten.visualstudio.com/WPF/_git/WPF_test7?path=%2FWpf_test125_%E3%82%B0%E3%83%AB%E3%83%BC%E3%83%97%E5%8C%968&version=GBmaster&_a=contents

Wpf_test120_グループ化5 - Visual Studio Team Services
https://gogowaten.visualstudio.com/WPF/_git/WPF_test7?path=%2FWpf_test120_%E3%82%B0%E3%83%AB%E3%83%BC%E3%83%97%E5%8C%965&version=GBmaster&_a=contents

WPFとVB.NET、エクセルのグループ化を真似したいからまずはグループ化のRectを取得 ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14151447.html

WPFとVB.NET、ControlTemplateをコードで作成 ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14156250.html

前回の記事
WPFとVB.NET、エクセルのグループ化とグループ化解除を真似したい2 ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14161262.html

Wpf_test127_マウスドラッグ移動で範囲選択 - Visual Studio Team Services
https://gogowaten.visualstudio.com/WPF/_git/WPF_test7?path=%2FWpf_test127_%E3%83%9E%E3%82%A6%E3%82%B9%E3%83%89%E3%83%A9%E3%83%83%E3%82%B0%E7%A7%BB%E5%8B%95%E3%81%A7%E7%AF%84%E5%9B%B2%E9%81%B8%E6%8A%9E&version=GBmaster&_a=contents

前回
WPFとVB.NET、エクセルのグループ化とグループ化解除を真似したい3 ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14187560.html

Wpf_test126_グループ化9 - Visual Studio Team Services
https://gogowaten.visualstudio.com/WPF/_git/WPF_test7?path=%2FWpf_test126_%E3%82%B0%E3%83%AB%E3%83%BC%E3%83%97%E5%8C%969&version=GBmaster&_a=contents

前々回
WPFとVB.NET、エクセルのグループ化とグループ化解除を真似したい3 ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14187560.html

前回
WPFとVB.NET、マウスドラッグ移動で範囲選択、枠表示して枠内のものを取得 ( ソフトウェア ) - 午後わてんのブログ - Yahoo!ブログ
http://blogs.yahoo.co.jp/gogowaten/14190065.html