[kebboud]

(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

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

السلام عليكم أخي الفاضل ابراهيم حلال المشاكل البرمجية بعد عجزنا عن حلها..
عندي مشروع برنامج يحفظ تلقائيا ما تكتبه في الداتاغريدفيو في قاعدة بيانات اكسس ..و هذا  البرنامج مصمم اصلا على انه يحفظ البيانات على شكل نص STRING و من المعروف ان الجداول النصية في الاكسس تستقبل جميع انواع البيانات بما فيها الارقام 
و عندما احفظ بيانات الارقام العشرية في هذا البرنامج تأتي بعدها فاصلة طويلة من الارقام ..كيف يمكنني أن اجعلها 5 ارقام فقط بعد الفاصلة ؟
دمت بخير