+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=21300)
كيف اجعل برنامجي يشغل امتدادات خاصة انا اكتبها بالكود - سعود - 07-08-17
السلام عليكم ورحمة الله وبركاته
كيف اجعل برنامجي يشغل امتدادات خاصة انا اكتبها بالكود
قمت بعمل برنامج يحفظ صور لقاعدة البيانات ثم قمت باضافة امتداد جديد على الموجود مثل
saud.accdb.saudDB
هل يوجد كود يجعل هذا الملف الجديد ذا الامتداد saudDB يشغله برنامجي؟
حاليا اشغله يدويا فتح باستخدام ثم اجعله دائم والامر تمام لكن كيف بالكود؟
.
.
.
ربما اجد الجواب والله اعلم اسفل موضوعي ان وجدته ربما احذف هذا الموضوع
.
.
شكر الله لكم جميعا.
RE: كيف اجعل برنامجي يشغل امتدادات خاصة انا اكتبها بالكود - أبو نوره - 07-08-17
مرحبا اخى سعود
تسجيل انواع الملفات يتم في الريجيستري وبصلاحية مسؤول requireAdministrator
تفضل
PHP كود :
Function CreateFileType(type As String, appFilename As String, Optional iconPath As String = "") As Boolean
'تسجيل النوع'
My.Computer.Registry.ClassesRoot.
CreateSubKey("." & type).
SetValue(String.Empty, type, Microsoft.Win32.RegistryValueKind.String)
'تحديد البرنامج الذي سيفتح النوع'
My.Computer.Registry.ClassesRoot.
CreateSubKey(type & "\shell\open\command").
SetValue(String.Empty, appFilename & " ""%l"" ", Microsoft.Win32.RegistryValueKind.String)
'تحديد أيقونة خاصة للنوع'
My.Computer.Registry.ClassesRoot.
CreateSubKey(type & "\DefaultIcon").
SetValue(String.Empty, iconPath & " ,0", Microsoft.Win32.RegistryValueKind.String)
Return True
End Function
لكن اخى سعود يجب ان يكون مسار البرنامج اللي راح يفتحه الملف ثابت ما يتغير مكانه
وهذا مثال
[attachment=15076]
RE: كيف اجعل برنامجي يشغل امتدادات خاصة انا اكتبها بالكود - سعود - 07-08-17
بارك الله فيك
الريجستري يبدو انه مهم بحثت فيه ووجدت فعلا النظام سجل الامتداد بمجرد النقر بزر الفارة الايمن واختيار فتح باستخدام .
يعني لابد من الفحص اولا ...
شكر الله لك.