رسالة خطأ بعد تنصيب البرنامج

تأكد من خطوات عمل برنامج الإعداد ومن أنك ضمنت برنامج الإعداد جميع الملفات والمكتبات الضرورية لعمل البرنامج

إن كانت رسالة الخطأ تظهر عند بدء تشغيل البرنامج قم بتضمين الأكواد التي يتم تنفيذها عند بدء تشغيل البرنامج ضمن حلقة Try ... Catch وذلك في محاولة حصر الكود المسبب للمشكلة عندها يمكن المعالجة بعد حصر مكان المشكلة بالضبط

أخوى هاذا البرنامج بين ايديكم

http://aa6a9a.googlepages.com/sbeh.rar

انا سويت إلى أقدر عليه

شف شو فيه وأخبرني ما المشكل والحل

وجزاك الله الخير الكثير

أخي العزيز مشكلتك بسيطة جدا بإذن الله

في الإجراء الذي يقوم بمعالجة الحدث RB1.CheckedChanged كتبت سطر الكود التالي

PictureBox1.Image = Image.FromFile("E:\Visual Studio Projects\My Visual Besic Projects\sbeh\sbeh\Bitmap2.bmp")

لاحظ معي أنك وضعت مسار الصورة كاملا كما هو موجود في الجهاز الذي قمت بتطوير المشروع عليه

وهذا ما يسبب الخطأ لديك إذ عندما تحاول تشغيل البرنامج على جهاز لايوجد فيه الملف المطلوب يحدث خطأ وقت التنفيذ File Not Found وهذا ما أدى لظهور الخطأ لديك

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

و كإقتراح للحل

هو بتوزيع ملف الصورة المذكور مع البرنامج واستخدام الدالة التالية للحصول على المسار الكامل لملف الصورة إن وضعته في نفس المجلد مع الملف التنفيذي للبرنامج

	' إضافة مجلد بدء التشغيل
	Public Function AddStartupPath(ByVal FileName As String) As String
		If Mid(Application.StartupPath, Application.StartupPath.Length, 1) <> "\" Then
			Return Application.StartupPath & "\" & FileName
		Else
			Return Application.StartupPath & FileName
		End If
	End Function

واستخدامها سهل جدا

FullPath = AddStartupPath("Bitmap2.bmp")

أو بتضمينها كـ Resource داخل الملف التنفيذي واستعادتها أثناء التشغيل وهذا هو الحل الأفضل من وجهة نظري

نصيحة اخيرة أخي

عندما تتعامل من داخل برنامجك مع أشياء تؤثر فيها عوامل خارجية - مثلا: ملف على القرص أو اتصال مع مخدم أو قاعدة بيانات - احصر الكود ضمن عبارة Try ... Catch وذلك لاصطياد أخطاء وقت التنفيذ ومنعها من إيقاف برنامجك عن العمل

مشكوووور اخوي بارك الله فيك