+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [vb6.0] ارجو التعديل على مجموع الحسابين الموجود في المشروع (/showthread.php?tid=19383)
ارجو التعديل على مجموع الحسابين الموجود في المشروع - عبدالقادرعواد - 23-02-17
السلام عليكم ورحمة الله
نأمل منكم مساعدتي في حساب الحقلين في form2
1- قيمة المبلغ بالسوري ( lable3)
2- قيمة_المبلغ بالدولار ( lable4)
والله تعبت
جزاكم الله خير
RE: ارجو التعديل على مجموع الحسابين الموجود في المشروع - عبد العزيز البسكري - 23-02-17
السّلام عليكم و رحمة الله و بركاته
أخي الكريم " عبد القادر عواد ".. محاولة من مبتديء لعلّها تفيد و لو بالقليل إن شاء الله ..ريثما يتدخّل أحد أساتذتنا الأفاضل بارك الله فيهم و لهم مقدّمًا
إحتراماتي
كود :
Sub Sum_Total()
Dim n As Integer, m As Integer
For n = 1 To MSHFlexGrid1.Rows - 1
summark1 = Val(MSHFlexGrid1.TextMatrix(n, 3)) + summark1
Next n
Label3.Caption = summark1
Label3.Caption = Format(Label3.Caption, "# #00.00 ")
For m = 1 To MSHFlexGrid1.Rows - 1
summark2 = Val(MSHFlexGrid1.TextMatrix(m, 5)) + summark2
Next m
Label4.Caption = summark2
Label4.Caption = Format(Label4.Caption, "# #00.00 ")
End SubRE: ارجو التعديل على مجموع الحسابين الموجود في المشروع - عبدالقادرعواد - 23-02-17
جزاك الله خيرا اخي عبد العزيز البسكري على المتابعة جعله الله في ميزان حسناتك
اسأل الله العظيم رب العرش العظيم ان يفرج همك