[Hassan.syria]

اصدقائي لو تجاوبوا معي في هذا السؤال
لدي ٣ textbox اريد ان اجمع قيمة في textbox1 و textbox2  واظهارها في textbox3 
المشكلة هي أنني أريد أن اضع رقم كا لتالي (00050) واجمعه باضافة قيمة كالتالي (10) ويظهر الناتج ب (00060) لكن المشكلة ان الناتج يظهر (60)
هل تساعدوني في هذا الطلب

---

Me.textbox3.text=val(textbox1.text)+val(textbox2.text).
هذا الكود الذي استخدمه

[3booody]

السلام عليكم ورحمة الله وبركاته

تفضل اخي هذا طلبك

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       TextBox3.Text = plus(TextBox1.Text, TextBox2.Text)
   End Sub

   Function plus(ByVal n1 As String, ByVal n2 As String) As String
       Dim ln As Integer = 0
       If n1.ToString.Length > n2.ToString.Length Then
           ln = n1.Length
       Else
           ln = n2.Length
       End If
       Dim f As String = CInt(n1) + CInt(n2)
       Dim P As Integer = f.ToString.Length
       If P < ln Then
           Dim s As New String("0"c, ln)
           Return Format(CInt(n1) + CInt(n2), s)
       End If
       Return CInt(n1) + CInt(n2)
   End Function

[Hassan.syria]

(21-11-19, 12:41 AM)3booody كتب : السلام عليكم ورحمة الله وبركاته

تفضل اخي هذا طلبك

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       TextBox3.Text = plus(TextBox1.Text, TextBox2.Text)
   End Sub

   Function plus(ByVal n1 As String, ByVal n2 As String) As String
       Dim ln As Integer = 0
       If n1.ToString.Length > n2.ToString.Length Then
           ln = n1.Length
       Else
           ln = n2.Length
       End If
       Dim f As String = CInt(n1) + CInt(n2)
       Dim P As Integer = f.ToString.Length
       If P < ln Then
           Dim s As New String("0"c, ln)
           Return Format(CInt(n1) + CInt(n2), s)
       End If
       Return CInt(n1) + CInt(n2)
   End Function

شكرا لكن صديقي على مساعدتك وفقك الله في امر تسعى اليه