sdk/samples/WPFSamples/visibilityLayoutSamp/visualbasic/window1.xaml.vb

   1 Imports System
   2 Imports System.Windows
   3 Imports System.Windows.Controls
   4 Imports System.Windows.Documents
   5
   6 namespace Visibility_Layout_Samp
   7
   8         '@ <summary>
   9         '@ Interaction logic for Window1.xaml
  10         '@ </summary>
  11
  12     Partial Public Class Window1
  13         Inherits Window
  14
  15         Private Sub contentVis(ByVal sender As Object, ByVal args As RoutedEventArgs)
  16
  17             tb1.Visibility = System.Windows.Visibility.Visible
  18             txt1.Text = "Visibility is now set to Visible."
  19         End Sub
  20
  21         Private Sub contentHid(ByVal sender As Object, ByVal args As RoutedEventArgs)
  22
  23             tb1.Visibility = System.Windows.Visibility.Hidden
  24             txt1.Text = "Visibility is now set to Hidden. Notice that the TextBox still occupies layout space."
  25         End Sub
  26
  27         Private Sub contentCol(ByVal sender As Object, ByVal args As RoutedEventArgs)
  28
  29             tb1.Visibility = System.Windows.Visibility.Collapsed
  30             txt1.Text = "Visibility is now set to Collapsed. Notice that the TextBox no longer occupies layout space."
  31         End Sub
  32
  33     End Class
  34     End Namespace