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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=25970)

سؤال في التكست بوكس - ُEmam - 04-08-18

السلام عليكم

عندي سؤالين عن التكست بوكس

1- كيف يمكن اجبار التكست بوكس ان يجعل الناتج مقرب الي اقرب علامه عشريه
يعني لو كان عندي ناتج قيمته مثلا (10.663) يظهر في التكست بوكس 
اريده ان يظهر كما يلي (10.7)

2- عند كتابة رقم معين في التكست بوكس يظهر الرقم وامامه علامه عشريه يعني عند كتابة الرقم 10 يظهر كما يلي (  10.0)

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


RE: سؤال في التكست بوكس - Finish - 04-08-18

بإمكانك استغلال فقد الركيز للتكست بوكس ليعيد فورمات النتيجة مثل
PHP كود :
Private Sub TextBox1_LostFocus(sender As Object, e As EventArgs) Handles TextBox1.LostFocus
    sender.Text = Val(sender.Text).ToString("0.0")
End Sub 


RE: سؤال في التكست بوكس - ُEmam - 04-08-18

(04-08-18, 02:31 AM)Finish كتب : بإمكانك استغلال فقد الركيز للتكست بوكس ليعيد فورمات النتيجة مثل
PHP كود :
Private Sub TextBox1_LostFocus(sender As Object, e As EventArgs) Handles TextBox1.LostFocus
    sender.Text = Val(sender.Text).ToString("0.0")
End Sub 

جزاك الله  خيرا  اخي علي سرعة الرد.
الكود اشتغل تمام مع تعديل بسيط وهو في حدث ال Text Change 
كود :
Private Sub TextBox1_TextChanged_1(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

("TextBox1.Text = (Val(TextBox2.Text / TextBox3.Text) * 100).ToString("0.00
    End Sub


RE: سؤال في التكست بوكس - Finish - 04-08-18

لم تذكر ان لديك ثلاث تكست بوكس! شكرا وانك تريده الشكل 0.00

RE: سؤال في التكست بوكس - elgokr - 04-08-18

الاخ Finish
ما قصر فى تقديم المساعدة فبارك الله له فيما يقدمه من خير...

وحتى تعم الفائدة على الاخرين فيمكنك الاستفادة بالامر باستخدام الكود التالى
كود :
Math.Round((Val(TextBox2.Text / TextBox3.Text) * 100), 2)

حتى تتمكن من رؤية الناتج فى رسالة
كود :
MsgBox(Math.Round((Val(TextBox2.Text / TextBox3.Text) * 100), 2))

تحياتى لك
وتمنياتى لك التوفيق


RE: سؤال في التكست بوكس - ُEmam - 04-08-18

(04-08-18, 09:22 AM)elgokr كتب :
الاخ Finish
ما قصر فى تقديم المساعدة فبارك الله له فيما يقدمه من خير...

وحتى تعم الفائدة على الاخرين فيمكنك الاستفادة بالامر باستخدام الكود التالى
كود :
Math.Round((Val(TextBox2.Text / TextBox3.Text) * 100), 2)

حتى تتمكن من رؤية الناتج فى رسالة
كود :
MsgBox(Math.Round((Val(TextBox2.Text / TextBox3.Text) * 100), 2))

تحياتى لك
وتمنياتى لك التوفيق


جزاك الله خيرا اخي [b]elgokr علي ماتقدمه للمساعده[/b]


[b]ربنا يجعله في ميزان حسناتك ان شاء الله[/b]