منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
التعديل على هذا الكود جزاكم الله خيرا - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : التعديل على هذا الكود جزاكم الله خيرا (/showthread.php?tid=23258)



التعديل على هذا الكود جزاكم الله خيرا - bidaya - 09-01-18

السلام عليكم ورحمة الله
اريد التعديل على هذا الكود
اريد حذف MsgBox
لا اريذ المسج يظهر بعد الحذف
كود :
Private Sub cmdDelete_Click()
   Call ClearFileStatue
   MsgBox DeleteFolderFiles(txtPath.Text, IIf(chkSubFolders.Value = 1, True, False)) & " File(s) Deleted"
End Sub



RE: التعديل على هذا الكود جزاكم الله خيرا - Amir_Alzubidy - 10-01-18

و عليكم السلام و رحمة الله و بركاته 
اهلا بك اخي الكريم 
يبدو بأن هناك فنكشين تابع
على اي حال ربما ينبغي ان تكون بهذا الشكل :
PHP كود :
Private Sub cmdDelete_Click()
 
  Call ClearFileStatue
   DeleteFolderFiles
(txtPath.TextIIf(chkSubFolders.Value 1TrueFalse)) 
End Sub 
او ارفع المشروع للتعديل


RE: التعديل على هذا الكود جزاكم الله خيرا - bidaya - 10-01-18

(10-01-18, 01:35 AM)Amir_alzubidy كتب : و عليكم السلام و رحمة الله و بركاته 
اهلا بك اخي الكريم 
يبدو بأن هناك فنكشين تابع
على اي حال ربما ينبغي ان تكون بهذا الشكل :
PHP كود :
Private Sub cmdDelete_Click()
 
  Call ClearFileStatue
   DeleteFolderFiles
(txtPath.TextIIf(chkSubFolders.Value 1TrueFalse)) 
End Sub 
او ارفع المشروع للتعديل



RE: التعديل على هذا الكود جزاكم الله خيرا - Amir_Alzubidy - 10-01-18

تعديل الكود : 
PHP كود :
Private Sub cmdDelete_Click()
 
   Call ClearFileStatue
    DeleteFolderFiles txtPath
.TextIIf(chkSubFolders.Value 1TrueFalse)
End Sub 



RE: التعديل على هذا الكود جزاكم الله خيرا - bidaya - 10-01-18

(10-01-18, 03:14 AM)Amir_alzubidy كتب : تعديل الكود : 
PHP كود :
Private Sub cmdDelete_Click()
 
   Call ClearFileStatue
    DeleteFolderFiles txtPath
.TextIIf(chkSubFolders.Value 1TrueFalse)
End Sub 

ألف تحية وتقدير لك اخي أمير
فعلا انت امير  شكرا لك Shy Shy