[ُEmam]

(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