رسالة خطأ!! Illegal Characters In Path. عند حفظ الصورة إلى ملف Icon

ضع الكود حتى نعرف اين المشكله بالضبط

النبهاني كتب:

ضع الكود حتى نعرف اين المشكله بالضبط

If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then



p.Image.Save(SaveFileDialog1.FileName)

End If

up

تأكد من أنك لاتستخدم محارف ممنوع وضعها في اسم الملف مثل \ أو * أو ؟ ... الخ

محمد سامر أبو سلو كتب:

تأكد من أنك لاتستخدم محارف ممنوع وضعها في اسم الملف مثل \ أو * أو ؟ ... الخ

أنا لا أستخدم أي محارف

عندما تظهر هذه الرسالة

Illegal characters in path.

يغلق البرنامج

مع أنني وضعت

try

catch

end try

يرجى ارفاق مثال صغير توضح فيه المشكلة

على كل حال هذا مثال لكود حفظ صورة موجودة في PictureBox إلى ملف صورة Jpeg مجرب ويعمل 100% قد يساعدك

		Try
			Dim Sfd As New SaveFileDialog
			Sfd.DefaultExt = "jpg"
			Sfd.Filter = "Jpeg Picture|*.jpg;*.jpeg"
			Sfd.FileName = Me.lstManufacturers.SelectedItem.ToString & "_" & Me.lstBrands.SelectedItem.ToString & "_" & Me.lstExplain.SelectedItem.ToString & ".jpg"
			If Sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
				Using Bm As New Bitmap(Me.PictureBox1.Image)
					Bm.Save(Sfd.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
				End Using
			End If
		Catch ex As Exception
			MsgBox(ex.Message)
		End Try

وهذا نفس الكود تم تعديله ليتم حفظ الصورة في ملف Icon

		Try
			Dim Sfd As New SaveFileDialog
			Sfd.DefaultExt = "ico"
			Sfd.Filter = "Icon Files|*.ico"
			Sfd.FileName = Me.lstManufacturers.SelectedItem.ToString & "_" & Me.lstBrands.SelectedItem.ToString & "_" & Me.lstExplain.SelectedItem.ToString & ".ico"
			If Sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
				Using Bm As New Bitmap(Me.PictureBox1.Image)
					Bm.Save(Sfd.FileName, System.Drawing.Imaging.ImageFormat.Icon)
				End Using
			End If
		Catch ex As Exception
			MsgBox(ex.Message)
		End Try

اقتباس

يرجى ارفاق مثال صغير توضح فيه المشكلة

WindowsApp.zip

مشكلتك الأساسية هي في خصائص صندوق الحفظ

كما عدلت قليلا على الكود لديك ليصبح

		Try
			If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

				Using Bm As New Bitmap(p.Image)
					Bm.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Icon)
				End Using

			End If
		Catch ex As Exception
			MessageBox.Show(ex.Message)
		End Try

ما شاء الله عليك أخ محمد. استفدت من مثالك لحفظ الصور. شكراً جزيلاً.

أخوك.