تغيير في خصائص البرنامج ~ Company

خد هذا الحل الذي أتمنى أن يفي بالغرض :

بعد القيام بهذه الخطوات سيصبح بمقدورك تعديل معلومات مشروعك في عدة نقرات من الفأرة.

- قم أولا بالضغط على الزرين Alt+F11 لفتح Microsoft Visual Studio Macros

- إفتح موديل Module1 الذي ستجده على المشروع MyMacros

- أدخل الكود التالي قبل السطر End Module

	'' ماكرو لتعديل معلومات المشروع أوتوماتيكيا
	''
	Sub SetDefaultAssemblyInformation()
		Dim MyDescription As String = "أدخل وصف المشروع مكان هذا النص."
		Dim MyCompany As String = "أدخل اسم الشركة مكان هذا النص."
		Dim MyCopyright As String = "أدخل نص الحفوق المحفوظة مكان هذا النص."

		' استعراض المشاريع الموجودة على سولوشن الحالية
		For Each prj As Project In DTE.Solution.Projects()
			' الوصول إلى مسار مجلد المشروع
			Dim path As String = prj.FullName.Substring(0, prj.FullName.LastIndexOf("\"))
			' الحصول على اسم و مسار ملف AssemblyInfo.vb و قراءة محتواه
			Dim asmbly As String = My.Computer.FileSystem.ReadAllText(path + "\My Project\AssemblyInfo.vb")

			Dim strt As Integer
			Dim last As Integer
			Dim s As String
			' Description
			s = "Assembly: AssemblyDescription("
			strt = asmbly.LastIndexOf(s) + s.Length + 1
			If strt >= 0 Then
				last = asmbly.IndexOf(")>", strt) - 1
				asmbly = asmbly.Remove(strt, last - strt)
				asmbly = asmbly.Insert(strt, MyDescription)
			End If
			' Company
			s = "<Assembly: AssemblyCompany("
			strt = asmbly.LastIndexOf(s) + s.Length + 1
			If strt >= 0 Then
				last = asmbly.IndexOf(")>", strt) - 1
				asmbly = asmbly.Remove(strt, last - strt)
				asmbly = asmbly.Insert(strt, MyCompany)
			End If
			' Copyright
			s = "<Assembly: AssemblyCopyright("
			strt = asmbly.LastIndexOf(s) + s.Length + 1
			If strt >= 0 Then
				last = asmbly.IndexOf(")>", strt) - 1
				asmbly = asmbly.Remove(strt, last - strt)
				asmbly = asmbly.Insert(strt, MyCopyright)
			End If

			' حفظ الملف AssemblyInfo.vb مع المعلومات الجديدة
			My.Computer.FileSystem.WriteAllText(path + "\My Project\AssemblyInfo.vb", asmbly, False)
		Next
	End Sub

- قم بتعديل النصوص : "أدخل ________ مكان هذا النص." بالنص الذي يمثل المعلومات التي تريد.

- قم بتسجيل عملية التحرير ثم أغلق Microsoft Visual Macros

- عد إلى نافذة Microsoft Visual Studio ثم إضغط على الزرين Alt+F8 لتظهر نافذة Macros Explorer

- على نافذة Macros Explorer إضغط على MyMacros ثم Module1 سيظهر عنصر باسم SetDefaultAssemblyInformation, النقر عليه مرتين سوف يقوم بتعديل معلومات المشروع أوتوماتيكيا.

تأكد من نجاح العملية بفتح نافذة Assembly Information

تحياتي...