+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : آبي كود يرد على الأخطاء (/showthread.php?tid=8490)
الصفحات:
1
2
آبي كود يرد على الأخطاء - Adeeb alghamdi - 19-04-13
جربتها
يقلي تحت في قآئمت الخطأ
يقلي كلمة " if "
مدري وش بها
آبي كود يرد على الأخطاء - sooriaty03 - 19-04-13
Adeeb alghamdi كتب :جربتهاالسلام عليكم ورحمة الله وبركاته
يقلي تحت في قآئمت الخطأ
يقلي كلمة " if "
مدري وش بها
هههههههه
أخي طيب إذا إنت ما تدري وش بها كيف تبغاني أدري :confused:فالحل:
من قائمة الخطأ انقر بزر الفأرة الأيمن فوق الخطأ واختار نسخ للخطأ
ثم ضعه هنا حتى يتسنى لي مساعدتك
بالتوفيق
آبي كود يرد على الأخطاء - Adeeb alghamdi - 19-04-13
If System.IO.Directory.GetFiles("مسار المجلد").Length > 0 Then
Kill("مسار المجلد\*.*")
MsgBox("تم حذف الملف")
Else
MsgBox("الملف غير موجود أو ربما تم حذفه سابقا")
End If
يقلي كلمة " then "
يأشر على حرف " n "
يقلي آحد غير مسموح بها
آبي كود يرد على الأخطاء - Abu Ehab - 19-04-13
السلام عليكم
أتبع المثال و غير أسم المجلد والمسار فقط
PHP كود :
If System.IO.Directory.Exists("E:\Abu Ehab") = True Then
System.IO.Directory.Delete("E:\Abu Ehab")
MsgBox("تــم حـذف المجــلد الأن ")
Else
MsgBox("لــم يتــم العـثور على المجـلد المـطلوب ")
End If
آبي كود يرد على الأخطاء - Adeeb alghamdi - 20-04-13
لحظة بالله
انا عندي الفيجوال بيسك 2012 و 2008
يمكن عندكم غير؟
آبي كود يرد على الأخطاء - Adeeb alghamdi - 20-04-13
ويقلي كذا
'If' must end with a matching 'End If'
آبي كود يرد على الأخطاء - sooriaty03 - 21-04-13
السلام عليكم ورحمة الله وبركاته
أخي الكريم
معنى رسالة الخطأ أن عبارة If يجب أن تتبعها End If
والكود الذي تم وضعه لا يختلف باختلاف الإصدارات
ولكن تأكد أنك تقوم بنسخ كامل الكود الذي في المشاركة ووضعه في مكان لا يوجد فيه أخطاء
على سبيل المثال لا يتم وضعه ضمن جملة If أخرى ناقصة
بالتوفيق
آبي كود يرد على الأخطاء - Adeeb alghamdi - 22-04-13
الله يعطيك الف الف عافيه
ويفوفقك
يعطيك العافيه