WPF VB.Net

  1. Home
  2. VB.Net
  3. WPF
  4. Non-Rectangular window
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="NonRectangularWindowSample" Width="210" Height="170"
  WindowStyle="None" AllowsTransparency="True" Background="Transparent">
  
    
      
        
          
            
            
            
            
          
        
      
      
        
          
            
              
              
              
              
              
              
              
            
          
        
      
      
        
      
    
    
      x
    
  

//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Input
Namespace Windows
  Public Partial Class TransparentWithShapes
    Inherits Window
    Public Sub New()
      InitializeComponent()
    End Sub
    Private Sub window_MouseLeftButtonDown(sender As Object, e As MouseButtonEventArgs)
      Me.DragMove()
    End Sub
    Private Sub cmdClose_Click(sender As Object, e As RoutedEventArgs)
      Me.Close()
    End Sub
  End Class
End Namespace