+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] طلب مساعده (/showthread.php?tid=37283)
طلب مساعده - asmarsou - 25-12-20
السلام عليكم اخواني
قمت بتصميم مشروع لمشغل ميلتيمديا فكيف لي ان اجعل برنامجي معتمد من طرف ويندوز...اي عندما اختار ملف صوتي او فيديو واضغد بالزر الايمن للماوس و اختار فتح بواسطة (برنامجي) يفتح الملف
او عند الظغط على الملف مباشرة يقوم بالتشغيل ببرنامجي
وشكرا مسبقا
RE: طلب مساعده - BaLaDy - 25-12-20
يجب ان يكون برنامجك له مسار ثابت في الويندوز
ثم اضغط بالزر الايمن للماوس و اختار فتح بواسطة (برنامجي) يفتح الملف مع التاشير على (Always use selected program to open this kind of file) كما يشير اليه الرقم 2 في الثانيه
الخطوات كما في الصور
RE: طلب مساعده - asmarsou - 25-12-20
(25-12-20, 12:15 PM)BaLaDy كتب : يجب ان يكون برنامجك له مسار ثابت في الويندوزمفهوم اخي [b]BaLaDy[/b] ولكن ليس ذلك ما اقصد اعتقد ان برنامجي يحتاج كود او ملف ريجيستري او ما شابه ... احتاج فكره
ثم اضغط بالزر الايمن للماوس و اختار فتح بواسطة (برنامجي) يفتح الملف مع التاشير على (Always use selected program to open this kind of file) كما يشير اليه الرقم 2 في الثانيه
الخطوات كما في الصور
RE: طلب مساعده - BaLaDy - 25-12-20
كيفية عمل امتداد خاص بك و جعل برنامجك الافتراضي لهذا الامتداد-ادخل وشوف المزيد بالصور
كيفية عمل امتداد خاص بك و جعل برنامجك الافتراضي لهذا الامتداد-ادخل وشوف المزيد بالصور
RE: طلب مساعده - asmarsou - 25-12-20
(25-12-20, 04:14 PM)BaLaDy كتب : كيفية عمل امتداد خاص بك و جعل برنامجك الافتراضي لهذا الامتداد-ادخل وشوف المزيد بالصور
كيفية عمل امتداد خاص بك و جعل برنامجك الافتراضي لهذا الامتداد-ادخل وشوف المزيد بالصور
مشكور اخي BaLaDy اظن ان فكرة سؤالي قاب قوسين او ادنى
هنا عندي امتداد الملفات المراد تشغيلها معروف ...يعني كالاتي
OpenFileDialog1.Filter = "All Media Files|*.wav;*.aac;*.wma;*.wmv;*.avi;*.mpg;*.mpeg;*.m1v;*.mp2;*.mp3;*.mpa;*.mpe;*.m3u;*.mp4;*.mov;*.3g2;*.3gp2;*.3gp;*.3gpp;*.m4a;*.cda;*.aif;*.aifc;*.aiff;*.mid;*.midi;*.rmi;*.mkv;*.WAV;*.AAC;*.WMA;*.WMV;*.AVI;*.MPG;*.MPEG;*.M1V;*.MP2;*.MP3;*.MPA;*.MPE;*.M3U;*.MP4;*.MOV;*.3G2;*.3GP2;*.3GP;*.3GPP;*.M4A;*.CDA;*.AIF;*.AIFC;*.AIFF;*.MID;*.MIDI;*.RMI;*.MKV"
ما اريده هو كيفية جعل برنامجي هو البرنامج الافتراضي او programe par defaut او Default Applications
لتشغيل تلك الامتدادات و شكرا مرة اخرى
RE: طلب مساعده - معاند الحظ - 27-12-20
اخي الكريم ، انت تقصد ان يقوم نظام التشغيل باعتماد برنامجك كافتراضي لفتح ملفات الوسائط عند الضغط مرتين دبل كليك او عند اختيار فتح من القائمة
المنبثقة عند الضغط على ملف الوسائط بالزر الايمن.
اذا كان هذا ماتريد ، فيمكنك الاستفادة من الرابط الاتي
https://stackoverflow.com/questions/17186871/creating-a-file-association-with-vb-net
RE: طلب مساعده - asmarsou - 27-12-20
(27-12-20, 09:31 AM)معاند الحظ كتب : اخي الكريم ، انت تقصد ان يقوم نظام التشغيل باعتماد برنامجك كافتراضي لفتح ملفات الوسائط عند الضغط مرتين دبل كليك او عند اختيار فتح من القائمة
المنبثقة عند الضغط على ملف الوسائط بالزر الايمن.
اذا كان هذا ماتريد ، فيمكنك الاستفادة من الرابط الاتي
https://stackoverflow.com/questions/17186871/creating-a-file-association-with-vb-net
نعم اخي الكريم ذلك ما انشد و لكني لم اتوصل الى الصيغة الصحيحه بعد
RE: طلب مساعده - asmarsou - 30-12-20
(27-12-20, 12:48 PM)asmarsou كتب :(27-12-20, 09:31 AM)معاند الحظ كتب : اخي الكريم ، انت تقصد ان يقوم نظام التشغيل باعتماد برنامجك كافتراضي لفتح ملفات الوسائط عند الضغط مرتين دبل كليك او عند اختيار فتح من القائمة
المنبثقة عند الضغط على ملف الوسائط بالزر الايمن.
اذا كان هذا ماتريد ، فيمكنك الاستفادة من الرابط الاتي
https://stackoverflow.com/questions/17186871/creating-a-file-association-with-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