28-03-20, 10:56 PM
(آخر تعديل لهذه المشاركة : 28-03-20, 11:42 PM {2} بواسطة ابراهيم ايبو.)
السلام عليكم ورحمة الله وبركاته
حاولت ربط NumericUpDown بآخر بحيث لو زدت قيمة الاول تزداد معه قيمة الثاني وان انقصت نقص الثاني
وان زدت الثاني زاد الاول وان انقصت نقص الاول
بحثت في الانترنت ولم اوفق اتمنى ان اصل الى الاجابة الصحيحة
استخدمت هذا الكود للاول وواحد اخر للثاني مع التبديل
الفكرة هي اني احاول زيادة مساحة مستطيل بالطول والعرض معا من خلال تغيير اجد ال NumericUpDown
حاولت ربط NumericUpDown بآخر بحيث لو زدت قيمة الاول تزداد معه قيمة الثاني وان انقصت نقص الثاني
وان زدت الثاني زاد الاول وان انقصت نقص الاول
بحثت في الانترنت ولم اوفق اتمنى ان اصل الى الاجابة الصحيحة
استخدمت هذا الكود للاول وواحد اخر للثاني مع التبديل
كود :
Private Sub Nmr_Width_ValueChanged(sender As Object, e As EventArgs) Handles Nmr_Width.ValueChanged
Try
If (Nmr_Width.Value = Nmr_Width.Value + 2) Then
Nmr_Height.Value = Nmr_Height.Value + 2
ElseIf (Nmr_Width.Value = Nmr_Width.Value - 2) Then
Nmr_Height.Value = Nmr_Height.Value - 2
Else
Nmr_Height.Value = Nmr_Height.Value
End If
Catch ex As Exception
End Try
End Sub
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات