+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تشغيل البرنامج عبر الريجستري (/showthread.php?tid=35557)
تشغيل البرنامج عبر الريجستري - Codack - 09-07-20
انا عملت أمر في كليك يمين عن طريق الريجستري أنه يفتح البرنامج عايز بقا لما ادوس كليك يمين على الفولدر وافتحو عن طريق البرنامج ياخد المسار بتاعو ويحطو في تكست بوكس
RE: تشغيل البرنامج عبر الريجستري - Mohamad Anan - 09-07-20
مرحبا أخي الكريم
كود :
Private Sub Form1_Load()
TextBox1.Text = System.IO.Path.GetDirectoryName(My.Application.CommandLineArgs(0).ToString())
End Subلتفادي الخطأ في حال تم فتح البرنامج مباشرة
كود :
Private Sub Form1_Load()
If My.Application.CommandLineArgs.Count > 0 Then
TextBox1.Text = System.IO.Path.GetDirectoryName(My.Application.CommandLineArgs(0).ToString())
End If
End SubRE: تشغيل البرنامج عبر الريجستري - Codack - 10-07-20
تم بنجاح
لكن ظبطت معايا بدل GetDirectoryName الي getfullpath
RE: تشغيل البرنامج عبر الريجستري - Mohamad Anan - 11-07-20
طبعا أخي لأنك تقوم بفتح مجلد
الكود لاستخراج اسم مجلد ملف مفتوح
و للمعلومة يمكنك تمرير بارامترات بعد اسم الملف لتنفيذ اوامر متعددة
كما تلاحظ احيانا وجود عدة اوامر في بعض البرامح مثل فتح طباعة
RE: تشغيل البرنامج عبر الريجستري - عاصم النجار - 11-07-20
(09-07-20, 02:37 AM)Mohamad Anan كتب : مرحبا أخي الكريم
كود :
Private Sub Form1_Load()
TextBox1.Text = System.IO.Path.GetDirectoryName(My.Application.CommandLineArgs(0).ToString())
End Sub
لتفادي الخطأ في حال تم فتح البرنامج مباشرة
كود :
Private Sub Form1_Load()
If My.Application.CommandLineArgs.Count > 0 Then
TextBox1.Text = System.IO.Path.GetDirectoryName(My.Application.CommandLineArgs(0).ToString())
End If
End Sub
حل مثالي ... مبدع