إستدعاء البرنامج عن طريق عدة أوامر مثل Open , Edit,print

السلام عليكم ورحمة الله وبركاتة

الأخوة الأعزاء بعد التحية

مر الكثير من الوقت على ولم أشارك فى المنتدى

وأحببت أن أعود بموضوع بسيط عله يفيد الأخوة هنا

سوف نقوم بجعل البرنامج يعرض حسب طريقة إستدعاؤة بأشكال مختلفة مثل

برنامج word فمن الممكن طباعة المستند أو فتحة أو تعديلة فقط من قائمة المحتوى

---------------------------------------------------------------

أولا سنقوم بعمل إمتداد ملف جديد بالأسم ZZZ

وتسجيلة بالريجسترى

سنقوم بفتح المفتاح HKEY_CLASSES_ROOT

ثم عمل مفتاح جديد بالأسم .zzz

ليكون بالصورة التالية HKEY_CLASSES_ROOT\.zzz

وأسفل المفتاح سنقوم بعمل مفتاح جديد لعرض الأوامر الخاص بهذا الملف فى قائمة المحتوى التى تظهر للملف عند عمل r click للملف وسنسمى المفتاح shell

ليكون مسار المفتاح HKEY_CLASSES_ROOT\.zzz\shell

ثم سنقوم بعمل ثلاثة أوامر سنسميها بالترتيب AAA,BBB,CCC

وستكون المفاتيح كالتالى

HKEY_CLASSES_ROOT\.zzz\shell\AAA

HKEY_CLASSES_ROOT\.zzz\shell\BBB

HKEY_CLASSES_ROOT\.zzz\shell\CCC

والأن سنقوم بتحديد طريقة الأستدعاء و Parameter الخاص بكل إستدعاء

بعمل مفتاح command لكل أمر مما سبق

HKEY_CLASSES_ROOT\.zzz\shell\AAA\command

HKEY_CLASSES_ROOT\.zzz\shell\BBB\command

HKEY_CLASSES_ROOT\.zzz\shell\CCC\Command

والأن سنقوم بجعل الأمر AAA يستدعى البرنامج مع بارميتر A

بجعل الخاصية الأفتراضية ل command

HKEY_CLASSES_ROOT\.zzz\shell\AAA\command

كالتالى " البارميتر%" مسار البرنامج بالكامل

مثلا

C:\ZZZ_TEST\bin\Debug\ZZZ_TEST_command_Parameter.e xe "%A"

وهكذا لباقى الأوامر

C:\ZZZ_TEST\bin\Debug\ZZZ_TEST_command_Parameter.e xe "%B"

C:\ZZZ_TEST\bin\Debug\ZZZ_TEST_command_Parameter.e xe "%C

والأن جاء دور البرنامج

توجد وسيلة جميلة تسمى CommandLineArgs عن طريقها نستطيع فى vb.net معرفة بارميتر الأستدعاء My.Application.CommandLineArgs

Public Class Form1

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


		Dim x As String = ""
		If My.Application.CommandLineArgs.Count > 0 Then



			Select Case My.Application.CommandLineArgs(0)

				Case Is = "A"
					x = "AAA"
				Case Is = "B"
					x = "BBB"
				Case Is = "C"
					x = "CCC"
			End Select


		Else

			x = ("No args")

		End If
		MsgBox("The command IS :::::: " & x)
		End
	End Sub
End Class

الأن قم بعمل ملف بإمتداد ZZZ ثم قم بإختيارة بزر الماوس الأيمن ستجد بالقائمة الأوامر السابقة

وعند إختيار أى منها سيقوم البرنامج بعرض صندوق رسالة بالأمر المختار .

أرجو أن يحوز على إعجابكم ....