تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال في التكست بوكس
#1
السلام عليكم

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

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

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

وجزاكم الله خيرا
الرد }}
تم الشكر بواسطة: معاذ العامري
#2
بإمكانك استغلال فقد الركيز للتكست بوكس ليعيد فورمات النتيجة مثل
PHP كود :
Private Sub TextBox1_LostFocus(sender As ObjectAs EventArgsHandles TextBox1.LostFocus
    sender
.Text Val(sender.Text).ToString("0.0")
End Sub 
الرد }}
تم الشكر بواسطة: elgokr , معاذ العامري
#3
(04-08-18, 02:31 AM)Finish كتب : بإمكانك استغلال فقد الركيز للتكست بوكس ليعيد فورمات النتيجة مثل
PHP كود :
Private Sub TextBox1_LostFocus(sender As ObjectAs EventArgsHandles 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
الرد }}
تم الشكر بواسطة: elgokr , معاذ العامري
#4
لم تذكر ان لديك ثلاث تكست بوكس! شكرا وانك تريده الشكل 0.00
الرد }}
تم الشكر بواسطة: elgokr
#5
الاخ Finish
ما قصر فى تقديم المساعدة فبارك الله له فيما يقدمه من خير...

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

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
تم الشكر بواسطة: معاذ العامري
#6
(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]
الرد }}
تم الشكر بواسطة: elgokr



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم