From 3dbf3e94919597f651caa3df7588e33d74c9ea30 Mon Sep 17 00:00:00 2001 From: v-trisshores <86677757+v-trisshores@users.noreply.github.com> Date: Mon, 21 Mar 2022 09:36:32 -0500 Subject: [PATCH] Add x:Name property to custom control in VB project --- .../vb/MainWindow.xaml | 6 +- .../vb/MainWindow.xaml.vb | 308 +++++++++--------- 2 files changed, 156 insertions(+), 158 deletions(-) diff --git a/dotnet-desktop-guide/net/wpf/properties/snippets/property-value-inheritance/vb/MainWindow.xaml b/dotnet-desktop-guide/net/wpf/properties/snippets/property-value-inheritance/vb/MainWindow.xaml index 596ed9c1c1..d686601d8d 100644 --- a/dotnet-desktop-guide/net/wpf/properties/snippets/property-value-inheritance/vb/MainWindow.xaml +++ b/dotnet-desktop-guide/net/wpf/properties/snippets/property-value-inheritance/vb/MainWindow.xaml @@ -1,5 +1,5 @@ - @@ -18,7 +18,7 @@ - + diff --git a/dotnet-desktop-guide/net/wpf/properties/snippets/property-value-inheritance/vb/MainWindow.xaml.vb b/dotnet-desktop-guide/net/wpf/properties/snippets/property-value-inheritance/vb/MainWindow.xaml.vb index 9fb3d402d9..19ec2703fc 100644 --- a/dotnet-desktop-guide/net/wpf/properties/snippets/property-value-inheritance/vb/MainWindow.xaml.vb +++ b/dotnet-desktop-guide/net/wpf/properties/snippets/property-value-inheritance/vb/MainWindow.xaml.vb @@ -1,157 +1,156 @@ -Namespace CodeSampleVb - Partial Public Class MainWindow - Inherits Window - - Public Sub New() - InitializeComponent() - - ' Code tests. - TestAllowDropInheritanceInXaml() - TestAllowDropInheritanceInCode() - TestIsTransparentInheritanceInCode() - TestDependencyPropertyWrapper() - End Sub - - Private Sub TestAllowDropInheritanceInXaml() - - ' Test enabled property value inheritance. - Dim fpm1 As FrameworkPropertyMetadata = - CType(AllowDropProperty. - GetMetadata(GetType(Canvas)), FrameworkPropertyMetadata) - Debug.Assert(fpm1.[Inherits] = True) - Debug.Assert(canvas1.AllowDrop = True) - Debug.Assert(stackPanel1.AllowDrop = True) - Debug.Assert(label1.AllowDrop = True) - - ' Test disabled property value inheritance. - Dim fpm11 As FrameworkPropertyMetadata = - CType(AllowDropProperty. - GetMetadata(GetType(Canvas_AllowDropInheritDisabled)), FrameworkPropertyMetadata) - Debug.Assert(fpm11.[Inherits] = False) - ' Debug.Assert(canvas11.AllowDrop = True) - Debug.Assert(stackPanel11.AllowDrop = False) - Debug.Assert(label11.AllowDrop = False) - End Sub - - Private Shared Sub TestAllowDropInheritanceInCode() - - ' - Dim canvas2 As New Canvas With { - .AllowDrop = True - } - Dim stackPanel2 As New StackPanel() - Dim label2 As New Label() - canvas2.Children.Add(stackPanel2) - stackPanel2.Children.Add(label2) - ' - - ' Test enabled property value inheritance. - Dim fpm2 As FrameworkPropertyMetadata = - CType(AllowDropProperty. - GetMetadata(GetType(Canvas)), FrameworkPropertyMetadata) - Debug.Assert(fpm2.[Inherits] = True) - Debug.Assert(canvas2.AllowDrop = True) - Debug.Assert(stackPanel2.AllowDrop = True) - Debug.Assert(label2.AllowDrop = True) - - ' Test disabled property value inheritance. - Dim canvas3 As New Canvas_AllowDropInheritDisabled With { - .AllowDrop = True - } - Dim stackPanel3 As New StackPanel() - Dim label3 As New Label() - canvas3.Children.Add(stackPanel3) - stackPanel3.Children.Add(label3) - Dim fpm3 As FrameworkPropertyMetadata = - CType(AllowDropProperty. - GetMetadata(GetType(Canvas_AllowDropInheritDisabled)), FrameworkPropertyMetadata) - Debug.Assert(fpm3.[Inherits] = False) - Debug.Assert(canvas3.AllowDrop = True) - Debug.Assert(stackPanel3.AllowDrop = False) - Debug.Assert(label3.AllowDrop = False) - - End Sub - - Private Shared Sub TestIsTransparentInheritanceInCode() - - ' Test enabled property value inheritance. - Dim myCanvas1 As New Canvas_IsTransparentInheritEnabled With { - .IsTransparent = True - } - Dim myCanvas2 As New Canvas_IsTransparentInheritEnabled2() - Dim myCanvas3 As New Canvas_IsTransparentInheritEnabled3() - myCanvas1.Children.Add(myCanvas2) - myCanvas2.Children.Add(myCanvas3) - Dim fpm1 As FrameworkPropertyMetadata = - CType(Canvas_IsTransparentInheritEnabled.IsTransparentProperty. - GetMetadata(GetType(Canvas_IsTransparentInheritEnabled)), FrameworkPropertyMetadata) - Debug.Assert(fpm1.[Inherits] = True) - Debug.Assert(myCanvas1.IsTransparent = True) - Debug.Assert(myCanvas2.IsTransparent = True) - Debug.Assert(myCanvas3.IsTransparent = True) - - ' Test disabled property value inheritance. - Dim myCanvas4 As New Canvas_IsTransparentInheritDisabled With { - .IsTransparent = True - } - Dim myCanvas5 As New Canvas_IsTransparentInheritDisabled2() - Dim myCanvas6 As New Canvas_IsTransparentInheritDisabled3() - myCanvas4.Children.Add(myCanvas5) - myCanvas5.Children.Add(myCanvas6) - Dim fpm2 As FrameworkPropertyMetadata = - CType(Canvas_IsTransparentInheritDisabled.IsTransparentProperty. - GetMetadata(GetType(Canvas_IsTransparentInheritDisabled)), FrameworkPropertyMetadata) - Debug.Assert(fpm2.[Inherits] = False) - Debug.Assert(myCanvas4.IsTransparent = True) - Debug.Assert(myCanvas5.IsTransparent = False) - Debug.Assert(myCanvas6.IsTransparent = False) - - End Sub - - Private Shared Sub TestDependencyPropertyWrapper() - - ' Test Canvas_IsTransparentInheritEnabled. - Dim myCanvas1 As New Canvas_IsTransparentInheritEnabled() - Dim myCanvas2 As New Canvas_IsTransparentInheritEnabled2() - Dim myCanvas3 As New Canvas_IsTransparentInheritEnabled3() - ' Test property wrapper. - myCanvas1.IsTransparent = True - myCanvas2.IsTransparent = False - myCanvas3.IsTransparent = True - Debug.Assert(myCanvas1.IsTransparent = True) - Debug.Assert(myCanvas2.IsTransparent = False) - Debug.Assert(myCanvas3.IsTransparent = True) - ' Test individual get/set accessors. - Canvas_IsTransparentInheritEnabled.SetIsTransparent(myCanvas1, False) - Canvas_IsTransparentInheritEnabled.SetIsTransparent(myCanvas2, True) - Canvas_IsTransparentInheritEnabled.SetIsTransparent(myCanvas3, False) - Debug.Assert(Canvas_IsTransparentInheritEnabled.GetIsTransparent(myCanvas1) = False) - Debug.Assert(Canvas_IsTransparentInheritEnabled.GetIsTransparent(myCanvas2) = True) - Debug.Assert(Canvas_IsTransparentInheritEnabled.GetIsTransparent(myCanvas3) = False) - - ' Test Canvas_IsTransparentInheritDisabled. - Dim myCanvas4 As New Canvas_IsTransparentInheritDisabled() - Dim myCanvas5 As New Canvas_IsTransparentInheritDisabled2() - Dim myCanvas6 As New Canvas_IsTransparentInheritDisabled3() - ' Test property wrapper. - myCanvas4.IsTransparent = True - myCanvas5.IsTransparent = False - myCanvas6.IsTransparent = True - Debug.Assert(myCanvas4.IsTransparent = True) - Debug.Assert(myCanvas5.IsTransparent = False) - Debug.Assert(myCanvas6.IsTransparent = True) - ' Test individual get/set accessors. - Canvas_IsTransparentInheritDisabled.SetIsTransparent(myCanvas4, False) - Canvas_IsTransparentInheritDisabled.SetIsTransparent(myCanvas5, True) - Canvas_IsTransparentInheritDisabled.SetIsTransparent(myCanvas6, False) - Debug.Assert(Canvas_IsTransparentInheritDisabled.GetIsTransparent(myCanvas4) = False) - Debug.Assert(Canvas_IsTransparentInheritDisabled.GetIsTransparent(myCanvas5) = True) - Debug.Assert(Canvas_IsTransparentInheritDisabled.GetIsTransparent(myCanvas6) = False) - - End Sub - End Class - - Public Class Canvas_AllowDropInheritDisabled +Partial Public Class MainWindow + Inherits Window + + Public Sub New() + InitializeComponent() + + ' Code tests. + TestAllowDropInheritanceInXaml() + TestAllowDropInheritanceInCode() + TestIsTransparentInheritanceInCode() + TestDependencyPropertyWrapper() + End Sub + + Private Sub TestAllowDropInheritanceInXaml() + + ' Test enabled property value inheritance. + Dim fpm1 As FrameworkPropertyMetadata = + CType(AllowDropProperty. + GetMetadata(GetType(Canvas)), FrameworkPropertyMetadata) + Debug.Assert(fpm1.[Inherits] = True) + Debug.Assert(canvas1.AllowDrop = True) + Debug.Assert(stackPanel1.AllowDrop = True) + Debug.Assert(label1.AllowDrop = True) + + ' Test disabled property value inheritance. + Dim fpm11 As FrameworkPropertyMetadata = + CType(AllowDropProperty. + GetMetadata(GetType(Canvas_AllowDropInheritDisabled)), FrameworkPropertyMetadata) + Debug.Assert(fpm11.[Inherits] = False) + Debug.Assert(canvas11.AllowDrop = True) + Debug.Assert(stackPanel11.AllowDrop = False) + Debug.Assert(label11.AllowDrop = False) + End Sub + + Private Shared Sub TestAllowDropInheritanceInCode() + + ' + Dim canvas2 As New Canvas With { + .AllowDrop = True + } + Dim stackPanel2 As New StackPanel() + Dim label2 As New Label() + canvas2.Children.Add(stackPanel2) + stackPanel2.Children.Add(label2) + ' + + ' Test enabled property value inheritance. + Dim fpm2 As FrameworkPropertyMetadata = + CType(AllowDropProperty. + GetMetadata(GetType(Canvas)), FrameworkPropertyMetadata) + Debug.Assert(fpm2.[Inherits] = True) + Debug.Assert(canvas2.AllowDrop = True) + Debug.Assert(stackPanel2.AllowDrop = True) + Debug.Assert(label2.AllowDrop = True) + + ' Test disabled property value inheritance. + Dim canvas3 As New Canvas_AllowDropInheritDisabled With { + .AllowDrop = True + } + Dim stackPanel3 As New StackPanel() + Dim label3 As New Label() + canvas3.Children.Add(stackPanel3) + stackPanel3.Children.Add(label3) + Dim fpm3 As FrameworkPropertyMetadata = + CType(AllowDropProperty. + GetMetadata(GetType(Canvas_AllowDropInheritDisabled)), FrameworkPropertyMetadata) + Debug.Assert(fpm3.[Inherits] = False) + Debug.Assert(canvas3.AllowDrop = True) + Debug.Assert(stackPanel3.AllowDrop = False) + Debug.Assert(label3.AllowDrop = False) + + End Sub + + Private Shared Sub TestIsTransparentInheritanceInCode() + + ' Test enabled property value inheritance. + Dim myCanvas1 As New Canvas_IsTransparentInheritEnabled With { + .IsTransparent = True + } + Dim myCanvas2 As New Canvas_IsTransparentInheritEnabled2() + Dim myCanvas3 As New Canvas_IsTransparentInheritEnabled3() + myCanvas1.Children.Add(myCanvas2) + myCanvas2.Children.Add(myCanvas3) + Dim fpm1 As FrameworkPropertyMetadata = + CType(Canvas_IsTransparentInheritEnabled.IsTransparentProperty. + GetMetadata(GetType(Canvas_IsTransparentInheritEnabled)), FrameworkPropertyMetadata) + Debug.Assert(fpm1.[Inherits] = True) + Debug.Assert(myCanvas1.IsTransparent = True) + Debug.Assert(myCanvas2.IsTransparent = True) + Debug.Assert(myCanvas3.IsTransparent = True) + + ' Test disabled property value inheritance. + Dim myCanvas4 As New Canvas_IsTransparentInheritDisabled With { + .IsTransparent = True + } + Dim myCanvas5 As New Canvas_IsTransparentInheritDisabled2() + Dim myCanvas6 As New Canvas_IsTransparentInheritDisabled3() + myCanvas4.Children.Add(myCanvas5) + myCanvas5.Children.Add(myCanvas6) + Dim fpm2 As FrameworkPropertyMetadata = + CType(Canvas_IsTransparentInheritDisabled.IsTransparentProperty. + GetMetadata(GetType(Canvas_IsTransparentInheritDisabled)), FrameworkPropertyMetadata) + Debug.Assert(fpm2.[Inherits] = False) + Debug.Assert(myCanvas4.IsTransparent = True) + Debug.Assert(myCanvas5.IsTransparent = False) + Debug.Assert(myCanvas6.IsTransparent = False) + + End Sub + + Private Shared Sub TestDependencyPropertyWrapper() + + ' Test Canvas_IsTransparentInheritEnabled. + Dim myCanvas1 As New Canvas_IsTransparentInheritEnabled() + Dim myCanvas2 As New Canvas_IsTransparentInheritEnabled2() + Dim myCanvas3 As New Canvas_IsTransparentInheritEnabled3() + ' Test property wrapper. + myCanvas1.IsTransparent = True + myCanvas2.IsTransparent = False + myCanvas3.IsTransparent = True + Debug.Assert(myCanvas1.IsTransparent = True) + Debug.Assert(myCanvas2.IsTransparent = False) + Debug.Assert(myCanvas3.IsTransparent = True) + ' Test individual get/set accessors. + Canvas_IsTransparentInheritEnabled.SetIsTransparent(myCanvas1, False) + Canvas_IsTransparentInheritEnabled.SetIsTransparent(myCanvas2, True) + Canvas_IsTransparentInheritEnabled.SetIsTransparent(myCanvas3, False) + Debug.Assert(Canvas_IsTransparentInheritEnabled.GetIsTransparent(myCanvas1) = False) + Debug.Assert(Canvas_IsTransparentInheritEnabled.GetIsTransparent(myCanvas2) = True) + Debug.Assert(Canvas_IsTransparentInheritEnabled.GetIsTransparent(myCanvas3) = False) + + ' Test Canvas_IsTransparentInheritDisabled. + Dim myCanvas4 As New Canvas_IsTransparentInheritDisabled() + Dim myCanvas5 As New Canvas_IsTransparentInheritDisabled2() + Dim myCanvas6 As New Canvas_IsTransparentInheritDisabled3() + ' Test property wrapper. + myCanvas4.IsTransparent = True + myCanvas5.IsTransparent = False + myCanvas6.IsTransparent = True + Debug.Assert(myCanvas4.IsTransparent = True) + Debug.Assert(myCanvas5.IsTransparent = False) + Debug.Assert(myCanvas6.IsTransparent = True) + ' Test individual get/set accessors. + Canvas_IsTransparentInheritDisabled.SetIsTransparent(myCanvas4, False) + Canvas_IsTransparentInheritDisabled.SetIsTransparent(myCanvas5, True) + Canvas_IsTransparentInheritDisabled.SetIsTransparent(myCanvas6, False) + Debug.Assert(Canvas_IsTransparentInheritDisabled.GetIsTransparent(myCanvas4) = False) + Debug.Assert(Canvas_IsTransparentInheritDisabled.GetIsTransparent(myCanvas5) = True) + Debug.Assert(Canvas_IsTransparentInheritDisabled.GetIsTransparent(myCanvas6) = False) + + End Sub +End Class + +Public Class Canvas_AllowDropInheritDisabled Inherits Canvas Shared Sub New() ' Disable property value inheritance in a new property metadata object. @@ -250,4 +249,3 @@ Public Class Canvas_IsTransparentInheritDisabled3 Inherits Canvas_IsTransparentInheritDisabled End Class -End Namespace