Skip to content

Property value inheritance: add x:Name property to custom control in VB project #1340

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 1 commit into from Mar 24, 2022
Merged

Property value inheritance: add x:Name property to custom control in VB project #1340

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 3 additions & 3 deletions ...t-desktop-guide/net/wpf/properties/snippets/property-value-inheritance/vb/MainWindow.xaml
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
<Window x:Class="CodeSampleVb.MainWindow"
xmlns:local="clr-namespace:CodeSampleVb.CodeSampleVb"
<Window x:Class="MainWindow"
xmlns:local="clr-namespace:CodeSampleVb"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="Property value inheritance" Height="200" Width="400" Background="Yellow">
Expand All @@ -18,7 +18,7 @@
</Canvas>
<!--</XamlElementTree>-->

<local:Canvas_AllowDropInheritDisabled Grid.Column="1" Margin="20" Background="Orange" AllowDrop="True">
<local:Canvas_AllowDropInheritDisabled x:Name="canvas11" Grid.Column="1" Margin="20" Background="Orange" AllowDrop="True">
<StackPanel Name="stackPanel11" Margin="20" Background="Green">
<Label Name="label11" Margin="20" Height="40" Width="40" Background="Blue"/>
</StackPanel>
Expand Down
308 changes: 153 additions & 155 deletions ...esktop-guide/net/wpf/properties/snippets/property-value-inheritance/vb/MainWindow.xaml.vb
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -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()

'<CodeElementTree>
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)
'</CodeElementTree>

' 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()

'<CodeElementTree>
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)
'</CodeElementTree>

' 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.
Expand Down Expand Up @@ -250,4 +249,3 @@
Public Class Canvas_IsTransparentInheritDisabled3
Inherits Canvas_IsTransparentInheritDisabled
End Class
End Namespace