[asmarsou]

(27-12-20, 12:48 PM)asmarsou كتب :

(27-12-20, 09:31 AM)معاند الحظ كتب : اخي الكريم ، انت تقصد ان يقوم نظام التشغيل باعتماد برنامجك كافتراضي لفتح ملفات الوسائط  عند الضغط مرتين دبل كليك او عند اختيار فتح من القائمة
المنبثقة عند الضغط على ملف الوسائط بالزر الايمن.
اذا كان هذا ماتريد ، فيمكنك الاستفادة من الرابط الاتي
https://stackoverflow.com/questions/1718...ith-vb-net

نعم اخي الكريم ذلك ما انشد و لكني لم اتوصل الى الصيغة الصحيحه بعد

اشكر كل مد لي يد العون او لمح لي بفكرة
و اخيرا تمكنت من ايجاد كود بسيط يفي بالغرض و فعال 100 %
كود

Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try

            If My.Application.CommandLineArgs.Count > 0 Then

                OpenFile(My.Application.CommandLineArgs(0))

            End If

        Catch ex As Exception

        End Try
    End Sub
    Private Sub OpenFile(ByVal strFileName As String)

        Dim srStream As New StreamReader(strFileName)


        AxWindowsMediaPlayer1.URL = strFileName
        AxWindowsMediaPlayer1.Ctlcontrols.play()
        Me.Text = strFileName

        srStream.Close()

    End Sub

End Class