Play video with MediaElement : MediaElement « Windows Presentation Foundation « VB.Net






Play video with MediaElement

Play video with MediaElement
    

<Window x:Class="SoundAndVideo.Video"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="Video" Height="649" Width="436" Background="DarkGray">
    <Grid Margin="15" HorizontalAlignment="Center">
    <Grid.RowDefinitions>      
      <RowDefinition Height="Auto"></RowDefinition>
      <RowDefinition></RowDefinition>
      <RowDefinition Height="Auto"></RowDefinition>
    </Grid.RowDefinitions>
    <Grid.ColumnDefinitions>
      <ColumnDefinition Width="Auto"></ColumnDefinition>
    </Grid.ColumnDefinitions>

    <Border BorderBrush="DarkGray" BorderThickness="1" CornerRadius="2">
      <MediaElement x:Name="video" Source="test.mpg" LoadedBehavior="Manual" Stretch="Fill"></MediaElement>
    </Border>

    <Border Grid.Row="1" BorderBrush="DarkGray" BorderThickness="1" CornerRadius="2">
      <Rectangle VerticalAlignment="Stretch" Stretch="Uniform">
      <Rectangle.Fill>
        <VisualBrush Visual="{Binding ElementName=video}">
          <VisualBrush.RelativeTransform>
            <ScaleTransform ScaleY="-1" CenterY="0.5"></ScaleTransform>
          </VisualBrush.RelativeTransform>        
        </VisualBrush>
      </Rectangle.Fill>
      
      <Rectangle.OpacityMask>
        <LinearGradientBrush StartPoint="0,0" EndPoint="0,1">          
          <GradientStop Color="Black" Offset="0"></GradientStop>
          <GradientStop Color="Transparent" Offset="0.6"></GradientStop>
        </LinearGradientBrush>
      </Rectangle.OpacityMask>
      </Rectangle>
    </Border>

      <Button Grid.Row="2" Padding="3" Click="cmdPlay_Click">Play</Button>
  </Grid>
</Window>

//File:Window.xaml.vb
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Imaging
Imports System.Windows.Shapes

Namespace SoundAndVideo
  Public Partial Class Video
    Inherits System.Windows.Window
    Public Sub New()

      InitializeComponent()
    End Sub

    Private Sub cmdPlay_Click(sender As Object, e As RoutedEventArgs)
      video.Position = TimeSpan.Zero
      video.Play()
    End Sub

  End Class
End Namespace

   
    
    
    
  








Related examples in the same category

1.Media Element with wmv fileMedia Element with wmv file
2.Media element in clock modeMedia element in clock mode
3.Play wmv file with MediaTimelinePlay wmv file with MediaTimeline
4.Play Back Audio or Video with a MediaTimelinePlay Back Audio or Video with a MediaTimeline
5.Play wmv filePlay wmv file
6.Play a Media FilePlay a Media File
7.Play with MediaPlayerPlay with MediaPlayer
8.Play Audio AsynchronouslyPlay Audio Asynchronously