none
How to perform right click on media player screen RRS feed

  • Question

  • Hi hello every body.

    i build a new software a media player and i need to perform mouse right click on the video screen and do something on this case made a panel visible

    I use a different player i have modified to make a DJ version of  it

    I have take the example on codeproject 

    This is my code

    #Region "Imports"
    
    Imports System.Text
    Imports PVS.AVPlayer
    Imports System.IO
    Imports System.Drawing.Imaging
    Imports System.Diagnostics
    Imports Emgu.CV
    Imports Emgu.CV.UI
    Imports Emgu.CV.Structure
    
    
    #End Region
    
    Public Class Form1
    
        ' **** Class Fields ***************************************************************************
    
    #Region "Class Fields"
        Private Angle As Double = 270
        Dim folderxxl As String
        Dim xbit As Integer = 0
        Dim ybit As Integer = 0
        Dim txBrush As TextureBrush
        Dim Off As Point
        Dim a As String = CSng(1000 * Angle / 360).ToString("f1")
        Private myPlayer As Player
        Private myOverlay As Overlay                ' in file Overlay.vb
    
        Private shapeStatus As Integer              ' shapes - 0:none, 1:oval, 2:none, 3:rounded, 4:none, 5:star
    
        Private myInfoLabel As InfoLabel
        Private myInfoLabelText As StringBuilder = New StringBuilder(64)
    
        ' used with drawing audio output levels
        ' levelUnit = size of 1 unit (of 32767) / 140 = width of Panel4 and Panel5
        Private levelUnit As Double = 140 ' / 32767.0 - changed in PVS.AVPlayer version 0.91
        Private leftLevel As Integer
        Private rightLevel As Integer
    
        Private myTagInfo As TagInfo                ' media (audio mp3/wma/asf) tag info
    
        Private myOpenFileDlg As OpenFileDialog     ' used with selection of media to play
        Private Const OPENMEDIA_FILTER As String =
                " Video Files (*.*)|*.asf;*.avi;*.bik;*.divx;*.dvx;*.f4v;*.flv;*.h264;*.hdmov;*.m2ts;*.mkv;*.mod;*.mov;*.mp2;*.mp4;*.mpeg;*.mpeg4;*.mpg;*.mpv;*.ogg;*.ogm;*.ogv;*.qt;*.rm;*.rms;*.rmvb;*.swf;*.ts;*.vfw;*.vob;*.webm;*.wmv;*.xvid|" +
                " Audio Files (*.*)|*.3gp;*.aa;*.aac;*.aiff;*.amr;*.ape;*.flac;*.m4a;*.mid;*.midi;*.mka;*.mp3;*.mpc;*.ogg;*.opus;*.ra;*.rm;*.wav;*.webm;*.wma;*.wv|" +
                " Image Files (*.*)|*.bmp;*.gif;*.img;*.jpeg;*.jpg;*.png;*.tga;*.tiff|" +
                " All Files|*.*"
    
        Private isInitializing As Boolean
        Private wasDisposed As Boolean
    #End Region
    
    
        ' **** Main ***********************************************************************************
    
    #Region "Main"
    
        Public Sub New()
    
            isInitializing = True
            InitializeComponent()               ' this call is required by the designer
            isInitializing = False
    
            myPlayer = New Player()             ' create a player
            myPlayer.Display.Window = Panel1    ' and set its display to Panel1
            myPlayer.Repeat = True              ' repeat media playback when finished
    
            myPlayer.SleepDisabled = True       ' prevent the computer from entering sleep mode
    
            ' create a file selector
            myOpenFileDlg = New OpenFileDialog() With
            {
                .Title = "Play Media",
                .Filter = OPENMEDIA_FILTER,
                .FilterIndex = 4
            }
    
            ' You might want to add one or more of the following options to your player:
    
            ' **** 1. DISPLAY OVERLAY *****************************************************************
    
            ' A display overlay is a Form that allows you to display items on top of a movie.
            ' The sample overlay 'Overlay' is created with the designer - please see Overlay.vb
            myOverlay = New Overlay()            ' create (an instance of) the overlay
            myPlayer.Overlay.Window = myOverlay  ' and attach it to the player
    
            ' To remove a display overlay from the player set the overlay window to another overlay
            ' or to Nothing: myPlayer.Overlay.Window = Nothing
    
    
    
            ' **** 2. DISPLAY OVERLAY ALWAYS VISIBLE **************************************************
    
            ' A display overlay is usually only shown when media is playing, but if you want to always
            ' show the overlay you can use: myPlayer.Overlay.Hold = True
    
            ' The player's display has to be created and visible for this, so if you want
            ' to show the overlay right from the start of your application (without media playing) you
            ' have to put the 'Overlay.Hold' instruction in the Form1.Shown event handler (see below).
    
    
    
            ' **** 3. DISPLAY CLONES ******************************************************************
    
            ' For special purposes you can create one or more player display clones (display copies).
            ' Display clones require sufficient computing (cpu) power and may slow some computers:
            'myPlayer.DisplayClones.AddRange(New Control() {Panel2, Panel3})
    
            ' cpu load can be reduced by lowering the framerate, quality or size of the clones:
            ' e.g. myPlayer.DisplayClones.FrameRate = 10
    
            ' You can also 'stretch' display clones (as with displaymode.stretch of the main display): 
            'myPlayer.DisplayClones.SetLayout(Panel2, CloneLayout.Stretch)
    
            ' To remove display clones from the player use one of the clones remove methods, e.g.:
            myPlayer.DisplayClones.Remove(Panel2)
    
    
    
            ' **** 4. POSITION SLIDER *****************************************************************
    
            ' The player can control your media playback position slider (trackbar) with:
            myPlayer.Sliders.Position = TrackBar1
            'myPlayer.Sliders.Position = GTrackBar3.Value
            ' The position slider controlled by the player is only for input by the user. The value of
            ' the slider should not be set from code. If you want to change the playback position (and
            ' the slider value), use the position methods of the player, for example:
            ' myPlayer.Position.FromBegin = TimeSpan.FromSeconds(30).
    
            ' To remove a slider from the player set the slider to Nothing:
            ' myPlayer.Sliders.Position = Nothing
    
    
    
            ' **** 5. POSITION TIME *******************************************************************
    
            ' If you want to display the elapsed and/or remaining media playback time (or use your
            ' 'own' position slider) you can get continuous media playback position information with:
            AddHandler myPlayer.Events.MediaPositionChanged, AddressOf MyPlayer_MediaPositionChanged
            ' please see the eventhandler below.
    
            ' To unsubscribe from the event you can use the RemoveHandler statement.
    
    
    
            ' **** 6. AUDIO SLIDERS *******************************************************************
    
            ' The player can also control your audio sliders (trackbars) with:
            myPlayer.Sliders.AudioVolume = TrackBar2   ' audio volume slider
            myPlayer.Sliders.AudioBalance = TrackBar3  ' audio balance slider
    
            ' The audio sliders controlled by the player are only for input by the user. The values of
            ' the sliders should not be set from code. If you want to change the audio properties (and
            ' the sliders values) of the player, use the audio methods of the player, for example:
            ' myPlayer.Audio.Volume = 500
    
            ' To remove a slider from the player set the slider to Nothing:
            ' myPlayer.Sliders.AudioVolume = Nothing
    
    
    
            ' **** 7. AUDIO VALUES ********************************************************************
    
            ' To get the changed values of the player's audio volume and balance use these events:
            AddHandler myPlayer.Events.MediaAudioVolumeChanged, AddressOf MyPlayer_MediaAudioVolumeChanged
            AddHandler myPlayer.Events.MediaAudioBalanceChanged, AddressOf MyPlayer_MediaAudioBalanceChanged
            ' please see the eventhandlers below.
    
            ' To unsubscribe from the event you can use the RemoveHandler statement.
    
    
    
            ' **** 8. AUDIO OUTPUT PEAK LEVELS ********************************************************
    
            ' From version 0.91, the use of the 'Stereo Mix' device has been replaced by the use of
            ' some functions from the Windows Core Audio Api (Windows Vista or higher only).
    
            ' Audio output levels can be used to display the peak levels of the system's default audio
            ' output device (eg speakers) in a numeric or graphical (eg level/vu meters) form or for
            ' other purposes.
    
            ' To get the audio peak values from the system default audio device you can use the
            ' MediaPeakLevelChanged event of the player:
    
            AddHandler myPlayer.Events.MediaPeakLevelChanged, AddressOf MyPlayer_MediaPeakLevelChanged
            ' see the eventhandler below.
    
            ' Check if there is an audio device or if this function is not supported (Windows Vista or
            ' higher) with: If myPlayer.LastError Then ...
    
            ' The values received in the eventhandler are between 0.0 and 1.0 (inclusive) or -1 when media
            ' playback has paused, stopped or ended - for every audio channel (usually 2 for stereo).
    
            ' To unsubscribe from the event you can use the RemoveHandler statement.
    
    
    
            ' **** 9. MOUSE EVENTS ON DISPLAY, MOVIE OR OVERLAY ***************************************
    
            ' Note: Because of the new drag option (see item #15 below) this option is now left unused.
    
            ' Normally you don't get mouse events from a (MCI) movie window, but with this you can:
            ' AddHandler myPlayer.Events.MediaMouseClick, AddressOf myPlayer_MediaMouseClick
            ' it combines mouse events for display, movie and overlay in one, so you always can get a
            ' mouse event (click, move, wheel etc.) on a player's display. Also see: myPlayer.PointTo
    
            ' For completeness, mouse click event handlers are added for the display clones which are
            ' 'normal' controls with 'normal' mouse events:
            AddHandler Panel1.MouseDown, AddressOf Clone_MouseClick ' Using mousedown for speed
    
            'AddHandler Panel3.MouseDown, AddressOf Clone_MouseClick ' fast mouseclick = dubbelclick
            ' please see the eventhandlers below.
    
    
    
            ' **** 10. MEDIA FINISHED PLAYING *********************************************************
    
            ' You may want to know when media has finished playing to play other (next) media and/or
            ' stop certain processes (e.g. animation on a display overlay).
            ' To detect that media has finished playing just subscribe to the MediaEnded event:
            AddHandler myPlayer.Events.MediaEnded, AddressOf MyPlayer_MediaEnded
    
            ' You don't want new media started from the MediaEnded event before all processes have
            ' been notified that the previous media has finished playing, so there's another event:
            AddHandler myPlayer.Events.MediaEndedNotice, AddressOf MyPlayer_MediaEndedNotice
            ' You can use this event to just stop any active processes (and not start any new media).
            ' (With the MediaStarted event you can (re)start processes when new media starts playing.)
    
            ' To unsubscribe from the event you can use the RemoveHandler statement.
    
    
    
            ' **** 11. MEDIA SUBTITLES ****************************************************************
    
            ' You can get the SubRip (.srt) subtitles (if any) of the playing media by subscribing to
            ' the MediaSubtitleChanged event:
            AddHandler myPlayer.Events.MediaSubtitleChanged, AddressOf MyPlayer_MediaSubtitleChanged
            ' please see the eventhandler below.
    
            ' By default the subtitles file should be in the same folder and with the same name (but
            ' with the .srt extension) as the media file, or one of its containing folders. You can
            ' specify to search in any containing folders with (0 = media file 'base' folder):
            myPlayer.Subtitles.DirectoryDepth = 1 ' search base folder and containing folders 1 deep
    
            ' If the subtitles file is located somewhere else or it has another name, you can specify
            ' where to search with the myPlayer.Subtitles.Directory and/or myPlayer.Subtitles.FileName
            ' functions. The Folder depth search applies also to this location.
    
            ' There are some more convenient functions, e.g. to synchronize subtitles (TimeShift).
    
            ' To unsubscribe from the event you can use the RemoveHandler statement.
    
    
    
            ' **** 12. MEDIA TAG INFORMATION (MP3 (ID3) AND WMA (ASF) TAGS) ***************************
    
            ' You can get media tag information (MP3 (ID3) or WMA (ASF) Tags) with:
            ' TagInfo info = myPlayer.Media.GetTagInfo()
    
            ' Please see the methods PlayMedia, MyPlayer_MediaEnded, MyPlayer_MediaStopped and
            ' DisposeTagInfo for an example of the use of the media tag information option.
    
    
    
            ' **** 13. PLAY (OR REPEAT) ONLY A PART OF A MEDIA FILE ***********************************
    
            ' N.B. 'Begin' and 'End' is used to indicate the natural begin and end of media
            '      'Start' and 'Stop' is used to indicate the actual start and stop positions of media
            '      If not changed, 'Start' and 'Stop' values are the same as 'Begin' and 'End' values.
    
            ' You can play (or repeat) only a part of a media file by specifying the start- and/or stopposition:
    
            ' a. before media starts playing, e.g. from 00:10:15 to 00:20:00 (uses '...Next' keywords):
            '    myPlayer.Media.StartPositionNext = New TimeSpan(0, 10, 15)
            '    myPlayer.Media.StopPositionNext  = TimeSpan.FromMinutes(20)
            '
            ' b. while media is playing, e.g. finish in 10 minutes from the current position:
            '    myPlayer.Media.StopPosition = myPlayer.Position.FromBegin + TimeSpan.FromMinutes(10)
    
    
    
            ' **** 14. ADD A TASKBAR PROGRESS INDICATOR ***********************************************
    
            ' To add a progress indicator in the taskbar button of a Form, all you have to do is instruct
            ' the player to do so by specifying the Form
            myPlayer.TaskbarProgress.Add(Me)
    
            ' You can specify any Form you like (not just the Form the display of the player is on) and use
            ' multiple and/or duplicate Forms.
    
            ' You can specify the mode of the progress indicator (progress (default) or track (= 'begin to end')):
            myPlayer.TaskbarProgress.Mode = TaskbarProgressMode.Track
    
    
    
            ' **** 15. DRAG A FORM BY DRAGGING A PLAYER'S DISPLAY WINDOW ******************************
    
            ' In some cases it may be convenient to drag a Form not only by its title bar but also by a
            ' player's display window on the Form. You can enable this option with:
            myPlayer.Display.DragEnabled = True
    
            ' You can specify the mouse cursor being used while dragging the Form/display window, e.g.
            myPlayer.Display.DragCursor = Cursors.SizeAll  'SizeAll' is also the default drag cursor
    
            ' If you need to process other mouse events (like in item #9 above) or for other reasons,
            ' you can disable this option (if you had previously enabled it) with:
            ' myPlayer.Display.DragEnabled = False
    
    
    
            ' **** 16. ADD AN INFO LABEL TO THE PLAYER'S POSITION SLIDER *******************************
    
            ' Displaying slider information with an info label is made easy with the slider methods
            ' 'myPlayer.Sliders.ValueToPoint' gives the x/y-coordinate of a value on the slider and
            ' 'myPlayer.Sliders.PointToValue' gives the value of the slider at a certain x/y-coordinate.
            ' These methods can be used for any .net trackbar (not just the PVS.AVPlayer sliders).
            ' (Without a player you can use: SliderValue.ToPoint or SliderValue.FromPoint)
    
            ' Info Labels can be used 'everywhere', not just with sliders as in this example.
            ' Just use the info label Show method to display an info label wherever you want.
    
            ' The location of the info label is determined by the specified location in the Show method
            ' and the Align (e.g. TopCenter (default)) and AlignOffset settings.
            ' The size of the info label is determined by font, bordersize, etc. but the 'additional' size
            ' is set with the TextMargin (or TextSize for a fixed size info label) option.
    
            ' Most options will probably be clear, but here's some tips:
            ' - border and other brushes: first set the full size of the info label (e.g. fontsize,
            ' bordersize etc. etc. and, in most cases, also a 'dummy' text) then create the brush
            ' - setting a fixed size info label, same as with brushes and then use:
            ' myInfoLabel.TextSize = myInfoLabel.TextSize; // this sets the current size and autosize to false
            ' - the order in which the settings are made can be important.
    
            ' Create an info label for use with all sliders in this application:
            myInfoLabel = New InfoLabel()                       ' create an info label
            myInfoLabel.RoundedCorners = True                   ' use rounded corners
            myInfoLabel.FontSize = 9.75F                        ' set font size (same as main window)
            myInfoLabel.TextMargin = New Padding(2, 0, 2, 0)    ' fine tuning inner spacing
            myInfoLabel.AlignOffset = New Point(0, 7)           ' move closer to slider thumb
    
    
            ' Here are some more examples (uncomment one at a time):
    
            ' for the background any type of brush can be used (uncomment only this one to use)
            'Dim myBackBrush As LinearGradientBrush = New LinearGradientBrush(New Rectangle(New Point(0, 0), myInfoLabel.Size), SystemColors.ButtonHighlight, SystemColors.ButtonShadow, LinearGradientMode.Vertical)
            'myInfoLabel.BackBrush = myBackBrush
    
            ' or maybe no background at all (uncomment only this one to use):
            'myInfoLabel.ForeColor = Color.Red
            'myInfoLabel.BackColor = Color.OrangeRed ' reduce visible edges around the text (anti-aliasing on transparent background)
            'myInfoLabel.BorderThickness = New Padding(0)
            'myInfoLabel.FontSize = 36
            'myInfoLabel.Transparent = True
    
            ' here's a fixed size info label with a background picture (uncomment only this one to use):
            'myInfoLabel.TextMargin = New Padding(10, 70, 10, 10)
            'myInfoLabel.ForeColor = Color.White
            'myInfoLabel.Text = "Balance: Right 10.0" ' set size with the 'longest' possible text
            'myInfoLabel.TextSize = myInfoLabel.TextSize ' set size + autosize off
            'Dim infoImage As Image = Image.FromFile("C:\Users\Public\Pictures\Sample Pictures\Desert.jpg")
            'myInfoLabel.BackImage = infoImage ' set image after turning off autosize (with TextSize)
    
    
            ' Display an info label above the position slider's thumb using the slider's scroll event:
            AddHandler TrackBar1.Scroll, AddressOf TrackBar1_Scroll     ' please see below
    
            ' Same for the audio volume and balance sliders:
            AddHandler TrackBar2.Scroll, AddressOf TrackBar2_Scroll     ' please see below
            AddHandler TrackBar3.Scroll, AddressOf TrackBar3_Scroll     ' please see below
    
    
    
            ' **** 17. CHANGE THE SHAPE OF THE PLAYER'S DISPLAY WINDOW ********************************
    
            ' The shape of a player's display can be changed from the usual rectangular shape to any
            ' other shape with the Player.Display.SetShape method.
            '
            ' The shape of the display, a 'region', is provided by a special method (callback)
            ' called by the player when the size of the player's display window has changed.
            ' PVS.AVPlayer also provides some preset shapes.
            '
            ' You can create a display shape callback method like this (use any method name you want):
            '
            ' Private Function MyCallbackMethod(player As Player, videoShape As Boolean, shapeBounds As Rectangle) As Region
            '     Dim path As GraphicsPath = New GraphicsPath()
            '     path.AddEllipse(shapeBounds)
            '     Dim shapeRegion As New Region(path)
            '     path.Dispose()
            '     Return shapeRegion
            ' End Function
            '
            ' You can activate the display (and optional overlay) shape with for example:
            ' myPlayer.Display.SetShape(AddressOf MyCallbackMethod, True, False)
            ' This sets the callback method and specifies using video bounds and a normal overlay.
    
            ' Or you can use one of the preset display shapes (without a callback method), e.g.
            ' myPlayer.Display.SetShape(DisplayShape.Oval)
    
            ' Custom shaped overlays may not display (background colors) properly with display clones.
            ' When using custom display shapes (eg in full-screen mode), underlying interface items may
            ' become visible that were not visible with a normally formed display.
    
            ' Display shapes are activated and deactivated with CheckBox4.CheckedChanged - see below
    
    
    
            ' **** 18. USING MEDIA SIGNALS ************************************************************
    
            ' If you want to be informed that a certain media playback time has been reached, you can
            ' use "media signals":
            '
            ' You can create media signals:
            ' a. by creating a .msf (media signals file) file to be used with certain media, or
            ' b. with the Player.Signals.Add method while media is playing
            '
            ' You can receive media signals by subscribing to the Player.Events.MediaSignal event:
            ' AddHandler myPlayer.Events.MediaSignal, AddressOf MyPlayer_MediaSignal
            '
            ' The media signal eventhandler:
            ' Private Sub MyPlayer_MediaSignal(sender As Object, e As SignalEventArgs)
            '     ' signal index = e.Index
            '     ' signal message = e.Message
            ' End Sub
            '
            ' There are no "standard messages" in media signals, you must use your own "system" to
            ' set and interpret the media signal messages.
            '
            ' For more information please see the file "About PVS.AVPlayer versions.txt", version 0.85
    
    
    
            ' **** 19. AUTOMATICALLY HIDE THE MOUSE CURSOR DURING MEDIA PLAYBACK *********************
    
            ' If you want to keep the mouse cursor 'out of the way' when a movie (or any other media)
            ' is playing, you can use the "Player.CursorHide" methods of the player. By specifying the
            ' form(s) on which the cursor is to be hidden, the player automatically hides the cursor on
            ' those forms (when in the foreground) when media is played and the mouse has not been used
            ' for a while, for example on this form:
    
            myPlayer.CursorHide.Add(Me)
    
            ' You can add as many "cursor hiding" forms to the player as you like, for example forms
            ' that contain a display clone of the player or even forms that are not directly related
            ' to the player.
    
            ' If you want to be notified when the mouse cursor is hidden or shown by the player, you can
            ' subscribe to the "Player.Events.MediaCursorHideChanged" event (see eventhandler below):
    
            AddHandler myPlayer.Events.MediaCursorHideChanged, AddressOf MyPlayer_MediaCursorHideChanged
    
        End Sub
        
        ' Display overlay right from the start - handler created from the designer
        Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
            ' show the display overlay at the start of the application (even if no movie is playing):
            ' this instruction is put here because the player's display has to be 'created and visible'
            ' to show the overlay
            myPlayer.Overlay.Hold = True
        End Sub
    
        ' Clean Up - this is moved here from the 'Form1.Designer.vb' file and appended:
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            Try
                If Not wasDisposed Then
                    wasDisposed = True
                    If disposing Then
    
                        ' disposing a player also stops its overlay, display clones, eventhandlers etc.
                        myPlayer.Dispose()      ' dispose the player
                        myOverlay.Dispose()     ' dispose the display overlay
                        myOpenFileDlg.Dispose() ' dispose the file selector
    
                        If myInfoLabel IsNot Nothing Then
                            myInfoLabel.Dispose()
                        End If
    
                        ' used by the designer - clean up
                        If components IsNot Nothing Then components.Dispose()
                    End If
                End If
            Finally
                MyBase.Dispose(disposing)
            End Try
        End Sub
    
        ' Dispose media tag info
        Private Sub DisposeTagInfo()
            If myTagInfo IsNot Nothing Then
                myOverlay.subtitlesLabel.Text = String.Empty
                Panel1.BackgroundImage = Nothing
                myTagInfo.Dispose()
                myTagInfo = Nothing
            End If
        End Sub
    
    #End Region
    
        ' **** Media Play / Pause - Resume / Stop *****************************************************
    
    #Region "Media Play / Pause - Resume / Stop"
    
        Private Sub PlayMedia()
            ' select and play media
            If (myOpenFileDlg.ShowDialog() = DialogResult.OK) Then
                myPlayer.Play(myOpenFileDlg.FileName)
                If (myPlayer.LastError) Then
                    MessageBox.Show(myPlayer.LastErrorString)
                Else
                    ' show media tag information (for audio media only)
                    If Not myPlayer.HasVideo Then
                        myTagInfo = myPlayer.Media.GetTagInfo()
                        Panel1.BackgroundImageLayout = ImageLayout.Zoom
    
                        Panel1.BackgroundImage = myTagInfo.Image
                        myOverlay.subtitlesLabel.Text = myTagInfo.Artist + vbNewLine + myTagInfo.Title
                    End If
                End If
            End If
        End Sub
    
        Private Sub PauseMedia()
            myPlayer.Paused = Not myPlayer.Paused
            If (myPlayer.Paused) Then
                Button2.Text = "Resume"
            Else
                Button2.Text = "Pause"
            End If
        End Sub
    
        Private Sub StopMedia()
            myPlayer.Stop()
        End Sub
    
    #End Region
    
        ' **** Player Eventhandlers *******************************************************************
    
    #Region "Player Eventhandlers"
    
        ' Show changed audio volume value
        Private Sub MyPlayer_MediaAudioVolumeChanged(sender As Object, e As EventArgs)
            Label3.Text = myPlayer.Audio.Volume.ToString()
        End Sub
    
        ' Show changed audio balance value
        Private Sub MyPlayer_MediaAudioBalanceChanged(sender As Object, e As EventArgs)
            Label4.Text = myPlayer.Audio.Balance.ToString()
        End Sub
    
        ' Display the elapsed and remaining playback time
        Private Sub MyPlayer_MediaPositionChanged(sender As Object, e As PositionEventArgs)
    
            Label1.Text = e.FromStart.ToString().Substring(0, 8) ' "hh:mm:ss"
            Label2.Text = e.ToStop.ToString().Substring(0, 8)     ' "hh:mm:ss"
    
            ' from .NET 4.0 TimeSpan supports (custom) format strings e.g.
            ' Label1.Text = e.FromStart.ToString("hh\:mm\:ss")   ' "hh:mm:ss"
    
        End Sub
    
        ' Handle media audio output peak levels - calculate the values and paint the level displays
        Private Sub MyPlayer_MediaPeakLevelChanged(sender As Object, e As PeakLevelEventArgs)
            ' you could add some 'logic' here to make the movements of the indicators less 'jumpy'
    
            If e.MasterPeakValue = -1 Then ' Media playback has stopped or paused or volume set to 0
                ' graphical presentation
                leftLevel = 0
                rightLevel = 0
    
                ' value display
                Label5.Text = "0.00" ' same format as below
                Label6.Text = "0.00"
            Else
                ' check e.ChannelCount for more than 2 (= stereo) channels
                ' if you want to display the peak levels of all audio channels
    
                ' graphical presentation
                leftLevel = CInt(e.ChannelsValues(0) * levelUnit) ' levelUnit is the width of panel4 and 5
                rightLevel = CInt(e.ChannelsValues(1) * levelUnit)
    
                ' value display (use string format because of 'Single' rounding errors - zero can become a small value):
                Label5.Text = e.ChannelsValues(0).ToString("0.00")
                Label6.Text = e.ChannelsValues(1).ToString("0.00")
            End If
            Panel4.Invalidate() ' draw the new values
            Panel5.Invalidate()
        End Sub


    • Edited by helder227 Monday, January 14, 2019 9:12 PM change gramati
    Monday, January 14, 2019 9:09 PM

All replies

  • I just discovery my self its all ready there the option but it is disabled
    Monday, January 14, 2019 9:38 PM
  • Hi,

    You can add another picturebox

    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Me.PictureBox1.SendToBack()
            Me.Panel1.BackColor = Color.Transparent
            Me.Panel1.Parent = Me.PictureBox1
            Me.Panel1.BringToFront()
        End Sub
    
    
    
        Private Sub Panel1_MouseUp(sender As Object, e As MouseEventArgs) Handles Panel1.MouseUp
            If e.Button = MouseButtons.Right Then
                MsgBox("Right click on panel1")
            End If
        End Sub
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            MsgBox("Click Button1")
        End Sub
    End Class
    

    effect:

    Best Regards,

    Alex


    MSDN Community Support Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact MSDNFSF@microsoft.com.

    Wednesday, January 16, 2019 7:32 AM