WPF VB.Net Tutorial

  1. Home
  2. VB.Net Tutorial
  3. WPF
  4. BlockThread xaml
  xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
  xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
  Title="UI Thread Blocker" Height="275" Width="225"
  >
  
    
      
      
      
    
    
      
      
    
    
      
    
  
      BorderThickness="1" Margin="4">
    
      
      Go to sleep
      
      Try Me
      
      
      
      
      
        
        
      
    
  

//File:Window.xaml.vb
Imports System.Windows
Namespace WPFThreading
  Public Partial Class BlockThread
    Inherits System.Windows.Window
    Public Sub New()
      InitializeComponent()
      Me.UIThreadLabel.Content = Me.Dispatcher.Thread.ManagedThreadId
      Me.BackgroundThreadLabel.Content = "N/A"
    End Sub
    Private Sub button1_click(sender As Object, e As RoutedEventArgs)
      System.Threading.Thread.Sleep(5000)
      Me.textbox1.Text = "Done Sleeping..."
    End Sub
    Private Sub button2_click(sender As Object, e As RoutedEventArgs)
      Me.textbox1.Text = "Hello WPF"
    End Sub
  End Class
End Namespace