اصدقائي لو تجاوبوا معي في هذا السؤال
لدي ٣ textbox اريد ان اجمع قيمة في textbox1 و textbox2 واظهارها في textbox3
المشكلة هي أنني أريد أن اضع رقم كا لتالي (00050) واجمعه باضافة قيمة كالتالي (10) ويظهر الناتج ب (00060) لكن المشكلة ان الناتج يظهر (60)
هل تساعدوني في هذا الطلب
Me.textbox3.text=val(textbox1.text)+val(textbox2.text).
هذا الكود الذي استخدمه
السلام عليكم ورحمة الله وبركاته
تفضل اخي هذا طلبك
كود :
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
(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
شكرا لكن صديقي على مساعدتك وفقك الله في امر تسعى اليه