السلام عليكم
عندي سؤالين عن التكست بوكس
1- كيف يمكن اجبار التكست بوكس ان يجعل الناتج مقرب الي اقرب علامه عشريه
يعني لو كان عندي ناتج قيمته مثلا (10.663) يظهر في التكست بوكس
اريده ان يظهر كما يلي (10.7)
2- عند كتابة رقم معين في التكست بوكس يظهر الرقم وامامه علامه عشريه يعني عند كتابة الرقم 10 يظهر كما يلي ( 10.0)
وجزاكم الله خيرا
بإمكانك استغلال فقد الركيز للتكست بوكس ليعيد فورمات النتيجة مثل
PHP كود :
Private Sub TextBox1_LostFocus(sender As Object, e As EventArgs) Handles TextBox1.LostFocus
sender.Text = Val(sender.Text).ToString("0.0")
End Sub
(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
لم تذكر ان لديك ثلاث تكست بوكس! شكرا وانك تريده الشكل 0.00
الاخ Finish
ما قصر فى تقديم المساعدة فبارك الله له فيما يقدمه من خير...
وحتى تعم الفائدة على الاخرين فيمكنك الاستفادة بالامر باستخدام الكود التالى
كود :
Math.Round((Val(TextBox2.Text / TextBox3.Text) * 100), 2)
حتى تتمكن من رؤية الناتج فى رسالة
كود :
MsgBox(Math.Round((Val(TextBox2.Text / TextBox3.Text) * 100), 2))
تحياتى لك
وتمنياتى لك التوفيق
(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]