منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تشغيل البرنامج عبر الريجستري
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
انا عملت أمر في كليك يمين عن طريق الريجستري أنه يفتح البرنامج عايز بقا لما ادوس كليك يمين على الفولدر وافتحو عن طريق البرنامج ياخد المسار بتاعو ويحطو في تكست بوكس
مرحبا أخي الكريم
كود :
   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
تم بنجاح
لكن ظبطت معايا بدل GetDirectoryName الي getfullpath
طبعا أخي لأنك تقوم بفتح مجلد
الكود لاستخراج اسم مجلد ملف مفتوح
و للمعلومة يمكنك تمرير بارامترات بعد اسم الملف لتنفيذ اوامر متعددة
كما تلاحظ احيانا وجود عدة اوامر في بعض البرامح مثل فتح طباعة
(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
حل مثالي ... مبدع