كيفية اضافة خاصية حفظ آخر الملفات المفتوحة (Recent Files)

جزاك الله خيرا أخ أيوب - اشتقنا لمشاركاتك القيمة

مشكور أخ أيوب على المثال و لكن لا يعمل عند تنفيذه أول مرة لذا أضفت تعديل طفيف في مثالك

Public Sub LoadrecentFiles()
		On Error Resume Next
		Dim AllFiles As String(,)
		AllFiles = GetAllSettings("MyApplication", "RecentFiles")
		For i As Integer = 0 To AllFiles.GetUpperBound(0)
			FileToolStripMenuItem.DropDownItems.Add(AllFiles(i, 0))
		Next
	End Sub

Private Sub FileToolStripMenuItem_DropDownItemClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles FileToolStripMenuItem.DropDownItemClicked
		On Error Resume Next
		PictureBox1.Image = Drawing.Image.FromFile(e.ClickedItem.Text)
	End Sub

(h) فقط قمت باضافة عبارة On Error Resume Next لتلافي الأخطاء في كل من الاجراء FileToolStripMenuItem_DropDownItemClicked و LoadrecentFiles

التعديل موجود في المرفقات

و حقاً انه مثال جميل و رائع و بدون تعقيدات و الأكواد قليلة و لكن ينقصه ترتيب أسماء الملفات ، حيث يقوم البرنامج بإضافة اسم الملف الغير موجود في آخر القائمة بعكس البرامج الاحترافية التي تقوم باضافة اسم الملف

المفتوح آخر مرة في بداية القائمة .

و على العموم يمكن فعل ذلك كما قلت أنت .

;) و لكم خالص تحياتي ....

RecentFiles.rar

أخ أبو السيد عدنان في الدوت نيت لم نعد نستخدم العبارة On Error Resume Next فهي من الموروثات المتبقية من VB6 بغرض التوافقية فقط وكان من الأفضل استخدام حلقة Try..Catch لمعالجة الأخطاء

	Public Sub LoadrecentFiles()
		Try
			Dim AllFiles As String(,)
			AllFiles = GetAllSettings("MyApplication", "RecentFiles")
			For i As Integer = 0 To AllFiles.GetUpperBound(0)
				FileToolStripMenuItem.DropDownItems.Add(AllFiles(i, 0))
			Next
		Catch ex As Exception
			MsgBox(ex.Message)
		End Try
	End Sub

مشكور أخ محمد أبو سلو على ردك و متابعتك لهذا الموضوع

و لكنني أستخدم طرق vb6 لانني مبتدء في البرمجة بفيجول بيسك دوت نت

;) و لكم خالص تحياتي ...

حتى في الفيجوال 6 ال On Error Resume next كانت من الأشياء التي ينصح بالابتعاد عنها لأنها تشكل خطر على البرامج خصوصا الكبيرة و المعقدة منها (فقط ملاحظة خارج الموضوع)