ارقام موجبة فقط في تيكست بوكس

[محمد الورفلي1]

السلام عليكم

ارقام موجبة فقط  في تيكست بوكس

اريد عندما تكون النتيجة  في التكسيت 3 = -8    تعطي نتيجة 0   يعني الظهور للارقام الموجبة فقط

 

10.rar

[ياسر خليل أبو البراء]

وعليكم السلام أخي محمد

جرب الكود بهذا الشكل

Private Sub CommandButton1_Click()
    If TextBox1 - TextBox2 <= 0 Then

        TextBox3 = 0
    Else
        TextBox3 = TextBox1 - TextBox2
    End If
End Sub

 

[محمد الورفلي1]

شكراً استاذ ياسر

[ياسر خليل أبو البراء]

عفواً أخي محمد

الحمد لله الذي بنعمته تتم الصالحات