منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] كيف اجعل textيقبل فقط إدخال نسبة موأيه بتنسيق التالي ؟؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : [vb6.0] كيف اجعل textيقبل فقط إدخال نسبة موأيه بتنسيق التالي ؟؟ (/showthread.php?tid=42568)

كيف اجعل textيقبل فقط إدخال نسبة موأيه بتنسيق التالي ؟؟ - Microformt - 27-09-22

الأخوة الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل textيقبل  فقط إدخال نسبة  موأيه بتنسيق التالي
مثال (00.00%) هل يمكن ذلك نامل المساعدة  ؟؟
وجزكم الله خيراً

RE: كيف اجعل textيقبل فقط إدخال نسبة موأيه بتنسيق التالي ؟؟ - Taha Okla - 28-09-22

وعليكم السلام ورحمة الله وبركاته

مثلاً تريد تحويل الرقم 15 لنسبة مئوية ، منطقياً أن يضرب بـ 100 ثم ينسب إلى  النسبة المئوية (%)

ويكون ذلك بإستخدام الدالة (Format) :
إما أن تضعه بتنسيق تفصيل الخانات والأرقام 

كود :
   Text1.Text = Format(15, "#,###,###.00 %")


أو تضعه بالشكل العادي بدون تفصيل الخانات :
كود :
   Text1.Text = Format(15, "0.00 %")


RE: كيف اجعل textيقبل فقط إدخال نسبة موأيه بتنسيق التالي ؟؟ - Microformt - 28-09-22

(28-09-22, 01:38 AM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

مثلاً تريد تحويل الرقم 15 لنسبة مئوية ، منطقياً أن يضرب بـ 100 ثم ينسب إلى  النسبة المئوية (%)

ويكون ذلك بإستخدام الدالة (Format) :
إما أن تضعه بتنسيق تفصيل الخانات والأرقام 

كود :
   Text1.Text = Format(15, "#,###,###.00 %")


أو تضعه بالشكل العادي بدون تفصيل الخانات :
كود :
   Text1.Text = Format(15, "0.00 %")

اخي العزيز
السلام عليكم ورحمة وبركاته
الفكرة انني اريد انشاء قناع إدخال لنسبة مئوية ؟
مثال:-
اريد ان اجعل المستخدم الا يدخل  في Text اكبر من لنسبة 100% 
 تحياتي وشكراً على تقديم المساعده

RE: كيف اجعل textيقبل فقط إدخال نسبة موأيه بتنسيق التالي ؟؟ - Taha Okla - 28-09-22

بإمكانك تنبيهه ليعدل الصيغة للصيغة المئوية عند مغادرة مربع النص بحيث لا يمكن المضي بدون التصحيح :

كود :
Private Sub Text1_LostFocus()
   ' حدث مغادرة مربع النص
   Text1.Text = Format(Val(Text1.Text), "0.00")  ' تغيير التنسيق للتنسيق المئوي
   If Val(Text1.Text) > 100 Then
       MsgBox "لا يمكن أن يتجاوز الرقم كامل النسبة المئوية"
       Text1.Text = ""
       Text1.BackColor = &H8080FF
       Text1.SetFocus
   ElseIf Val(Text1.Text) < 0 Then
       MsgBox "لا يمكن أن يكون الرقم سالب"
       Text1.Text = ""
       Text1.BackColor = &H8080FF
       Text1.SetFocus
   Else
      Text1.BackColor = vbWhite
   End If
End Sub


RE: كيف اجعل textيقبل فقط إدخال نسبة موأيه بتنسيق التالي ؟؟ - Microformt - 28-09-22

(28-09-22, 09:55 AM)Taha Okla كتب : بإمكانك تنبيهه ليعدل الصيغة للصيغة المئوية عند مغادرة مربع النص بحيث لا يمكن المضي بدون التصحيح :

كود :
Private Sub Text1_LostFocus()
   ' حدث مغادرة مربع النص
   Text1.Text = Format(Val(Text1.Text), "0.00")  ' تغيير التنسيق للتنسيق المئوي
   If Val(Text1.Text) > 100 Then
       MsgBox "لا يمكن أن يتجاوز الرقم كامل النسبة المئوية"
       Text1.Text = ""
       Text1.BackColor = &H8080FF
       Text1.SetFocus
   ElseIf Val(Text1.Text) < 0 Then
       MsgBox "لا يمكن أن يكون الرقم سالب"
       Text1.Text = ""
       Text1.BackColor = &H8080FF
       Text1.SetFocus
   Else
      Text1.BackColor = vbWhite
   End If
End Sub


تحياتي وشكراً على تقديم المساعده