(04-08-21, 09:05 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم موضوع الفاصلة بين الارقام لتسهيل القاءة انتبه له جيدا حتى لاتتم القراءة بشكل خاطئ (لااحب وضعها بين الارقام)
يجب استخدام النقطة للفاصلة العشرية لانها ستعبر عن الكسور (اختر اعداداتها من الويندوز)
اما الفاصلة العادية فيمكن استخدامها لهذا الامر

كود :

Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
       If e.KeyCode = Keys.Enter Then
           TextBox1.Text = String.Format("{0:0,0}", Val(TextBox1.Text))
       End If
   End Sub

(04-08-21, 10:08 PM)ابراهيم ايبو كتب : اخي لايجوز ولايمكن ذلك (حسب ما اعرف) 
عملية وضع الفاصلة لتسهيل القراءة هي كل 3 خانات هذا في دوال اللغة
سأحاول ايجاد كود لماتريد ان شاء الله

---

السلام عليكم
تفضل اخي هذا الكود ان كنت تريد فاصلة استبدل النقطة بالفاصلة وان كنت تريد النقطة فاتركها على حالها

كود :

Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown

       If e.KeyCode = Keys.Enter Then
           Dim AA() As Char = TextBox1.Text.ToCharArray()
           TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.TextLength - 2)
           TextBox1.Text = TextBox1.Text.TrimEnd(CChar("."))
           TextBox1.Text += "." & AA(AA.Length - 2) & AA(AA.Length - 1)

       End If
   End Sub

او هذا الكود المختصر وهو من احد الاعضاء يظهر في الاوقات الحاسمة يدلي بخبرته مشكورا ويبتعد عن الانظار جزاه الله كل الخير وامد في عمره وادام عليه وافر الصحة والعافية 
الصراحة لم يخطر في بالي ال(Insert) !!!!!

كود :

If e.KeyCode = Keys.Enter Then
           Dim AA As String = TextBox1.Text
           TextBox1.Text = AA.Insert(AA.Length - 2, ".")
       End If

لكن اخي الكريم اعيد واكرر هذا خطأ في العمليات الحسابية

(04-08-21, 10:08 PM)ابراهيم ايبو كتب : اخي لايجوز ولايمكن ذلك (حسب ما اعرف) 
عملية وضع الفاصلة لتسهيل القراءة هي كل 3 خانات هذا في دوال اللغة
سأحاول ايجاد كود لماتريد ان شاء الله

---

السلام عليكم
تفضل اخي هذا الكود ان كنت تريد فاصلة استبدل النقطة بالفاصلة وان كنت تريد النقطة فاتركها على حالها

كود :

Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown

       If e.KeyCode = Keys.Enter Then
           Dim AA() As Char = TextBox1.Text.ToCharArray()
           TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.TextLength - 2)
           TextBox1.Text = TextBox1.Text.TrimEnd(CChar("."))
           TextBox1.Text += "." & AA(AA.Length - 2) & AA(AA.Length - 1)

       End If
   End Sub

او هذا الكود المختصر وهو من احد الاعضاء يظهر في الاوقات الحاسمة يدلي بخبرته مشكورا ويبتعد عن الانظار جزاه الله كل الخير وامد في عمره وادام عليه وافر الصحة والعافية 
الصراحة لم يخطر في بالي ال(Insert) !!!!!

كود :

If e.KeyCode = Keys.Enter Then
           Dim AA As String = TextBox1.Text
           TextBox1.Text = AA.Insert(AA.Length - 2, ".")
       End If

لكن اخي الكريم اعيد واكرر هذا خطأ في العمليات ابارك الله فيك اخي العزيز

(05-08-21, 08:46 PM)ahmedbezia كتب :

(04-08-21, 10:08 PM)ابراهيم ايبو كتب : اخي لايجوز ولايمكن ذلك (حسب ما اعرف) 
عملية وضع الفاصلة لتسهيل القراءة هي كل 3 خانات هذا في دوال اللغة
سأحاول ايجاد كود لماتريد ان شاء الله

---

السلام عليكم
تفضل اخي هذا الكود ان كنت تريد فاصلة استبدل النقطة بالفاصلة وان كنت تريد النقطة فاتركها على حالها

كود :

Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown

       If e.KeyCode = Keys.Enter Then
           Dim AA() As Char = TextBox1.Text.ToCharArray()
           TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.TextLength - 2)
           TextBox1.Text = TextBox1.Text.TrimEnd(CChar("."))
           TextBox1.Text += "." & AA(AA.Length - 2) & AA(AA.Length - 1)

       End If
   End Sub

او هذا الكود المختصر وهو من احد الاعضاء يظهر في الاوقات الحاسمة يدلي بخبرته مشكورا ويبتعد عن الانظار جزاه الله كل الخير وامد في عمره وادام عليه وافر الصحة والعافية 
الصراحة لم يخطر في بالي ال(Insert) !!!!!

كود :

If e.KeyCode = Keys.Enter Then
           Dim AA As String = TextBox1.Text
           TextBox1.Text = AA.Insert(AA.Length - 2, ".")
       End If

لكن اخي الكريم اعيد واكرر هذا خطأ في العمليات ابارك الله فيك اخي العزوما الحل با النسبة للعمليات