sdk/samples/WPFSamples/MediaGallery/vb/mediaelement.xaml.vb

   1
   2 Imports System
   3 Imports System.Windows
   4 Imports System.Windows.Controls
   5 Imports System.Windows.Documents
   6 Imports System.Windows.Navigation
   7 Imports System.Windows.Shapes
   8 Imports System.Windows.Data
   9 Imports System.Windows.Media
  10 Imports System.Windows.Input
  11
  12
  13
  14
  15 Class MediaElementExample
  16     Inherits Page
  17      '
  18     'ToDo: Error processing original source shown below
  19     '
  20     ' public partial class MediaElementExample : Page
  21     '---------^--- 'class', 'struct', 'interface' or 'delegate' expected
  22     '
  23     'ToDo: Error processing original source shown below
  24     '
  25     ' public partial class MediaElementExample : Page
  26     '-----------------^--- Syntax error: ';' expected
  27
  28     ' Play the media.
  29     Sub OnMouseDownPlayMedia(ByVal sender As Object, ByVal args As MouseButtonEventArgs)
  30
  31         ' The Play method will begin the media if it is not currently active or
  32         ' resume media if it is paused. This has no effect if the media is
  33         ' already running.
  34         myMediaElement.Play()
  35
  36         ' Initialize the MediaElement property values.
  37         InitializePropertyValues()
  38
  39     End Sub 'OnMouseDownPlayMedia
  40
  41
  42     ' Pause the media.
  43     Sub OnMouseDownPauseMedia(ByVal sender As Object, ByVal args As MouseButtonEventArgs)
  44
  45         ' The Pause method pauses the media if it is currently running.
  46         ' The Play method can be used to resume.
  47         myMediaElement.Pause()
  48
  49     End Sub 'OnMouseDownPauseMedia
  50
  51
  52     ' Stop the media.
  53     Sub OnMouseDownStopMedia(ByVal sender As Object, ByVal args As MouseButtonEventArgs)
  54
  55         ' The Stop method stops and resets the media to be played from
  56         ' the beginning.
  57         myMediaElement.Stop()
  58
  59     End Sub 'OnMouseDownStopMedia
  60
  61
  62     ' Change the volume of the media.
  63     Public Sub ChangeMediaVolume(ByVal sender As Object, ByVal __unknown As RoutedPropertyChangedEventArgs)
  64         __unknown < Double > args '
  65         'ToDo: Error processing original source shown below
  66         '        // Change the volume of the media.
  67         '        public void ChangeMediaVolume(object sender, RoutedPropertyChangedEventArgs<double> args)
  68         '------------------------------------------------------------------------------------^--- Syntax error: 'identifier' expected
  69         '
  70         'ToDo: Error processing original source shown below
  71         '        // Change the volume of the media.
  72         '        public void ChangeMediaVolume(object sender, RoutedPropertyChangedEventArgs<double> args)
  73         '-------------------------------------------------------------------------------------------^--- Syntax error: '.' expected
  74         '
  75         'ToDo: Error processing original source shown below
  76         '        // Change the volume of the media.
  77         '        public void ChangeMediaVolume(object sender, RoutedPropertyChangedEventArgs<double> args)
  78         '-------------------------------------------------------------------------------------------------^--- Syntax error: ';' expected
  79         If (True) Then
  80             myMediaElement.Volume = System.Convert.ToDouble(volumeSlider.Value)
  81         End If
  82
  83         ' Change the speed of the media.
  84         Dim ChangeMediaSpeedRatio As
  85         '
  86         'ToDo: Error processing original source shown below
  87         '        // Change the speed of the media.
  88         '        public void ChangeMediaSpeedRatio(object sender, RoutedPropertyChangedEventArgs<double> args)
  89         '----------------^--- GenCode(token): unexpected token type
  90         RoutedPropertyChangedEventArgs < Double > args '
  91         'ToDo: Error processing original source shown below
  92         '        // Change the speed of the media.
  93         '        public void ChangeMediaSpeedRatio(object sender, RoutedPropertyChangedEventArgs<double> args)
  94         '---------^--- expression expected
  95         '
  96         'ToDo: Error processing original source shown below
  97         '        // Change the speed of the media.
  98         '        public void ChangeMediaSpeedRatio(object sender, RoutedPropertyChangedEventArgs<double> args)
  99         '------------------------------------------^--- Syntax error: ';' expected
 100         '
 101         'ToDo: Error processing original source shown below
 102         '        // Change the speed of the media.
 103         '        public void ChangeMediaSpeedRatio(object sender, RoutedPropertyChangedEventArgs<double> args)
 104         '--------------------------------------------------^--- Syntax error: '.' expected
 105         '
 106         'ToDo: Error processing original source shown below
 107         '        // Change the speed of the media.
 108         '        public void ChangeMediaSpeedRatio(object sender, RoutedPropertyChangedEventArgs<double> args)
 109         '--------------------------------------------------------^--- Syntax error: ';' expected
 110         '
 111         'ToDo: Error processing original source shown below
 112         '        // Change the speed of the media.
 113         '        public void ChangeMediaSpeedRatio(object sender, RoutedPropertyChangedEventArgs<double> args)
 114         '-----------------------------------------------------------------------------------------------^--- Syntax error: '.' expected
 115         '
 116         'ToDo: Error processing original source shown below
 117         '        // Change the speed of the media.
 118         '        public void ChangeMediaSpeedRatio(object sender, RoutedPropertyChangedEventArgs<double> args)
 119         '-----------------------------------------------------------------------------------------------------^--- Syntax error: ';' expected
 120         If (True) Then
 121             myMediaElement.SpeedRatio = System.Convert.ToDouble(speedRatioSlider.Value)
 122         End If
 123
 124         Dim InitializePropertyValues As
 125         '
 126         'ToDo: Error processing original source shown below
 127         '
 128         '        void InitializePropertyValues()
 129         '---------^--- GenCode(token): unexpected token type '
 130         'ToDo: Error processing original source shown below
 131         '
 132         '        void InitializePropertyValues()
 133         '--------------------------------------^--- Syntax error: ';' expected
 134         '
 135         'ToDo: Error processing original source shown below
 136         '
 137         '        void InitializePropertyValues()
 138         '---------------------------------------^--- expression expected
 139         If (True) Then '
 140             'ToDo: Error processing original source shown below
 141             '        void InitializePropertyValues()
 142             '        {
 143             '---------^--- Syntax error: ';' expected
 144             ' Set the media's starting Volume and SpeedRatio to the current value of the
 145             ' their respective slider controls.
 146             myMediaElement.Volume = System.Convert.ToDouble(volumeSlider.Value)
 147             myMediaElement.SpeedRatio = System.Convert.ToDouble(speedRatioSlider.Value)
 148         End If
 149
 150     End Sub 'ChangeMediaVolume
 151 End Class 'MediaElementExample