[ابراهيم ايبو]

السلام عليكم اخوتي الكرام من شارك ومن قرأ 
لم اجد الى الان حلا سوى انشاء اداتي نص وبجوار كل واحدة 2 Button واحد للانقاص وواحد للزيادة 
وعند التغيير يتم تغيير الاخر وان شاء الله سأعمله كونترول وهكذا اصل الى مرادي 
كنت اريد نفس الشيئ بأداتي NumericUpDown ولكن الله المستعان على كل معضلة
احببت ان اشارككم بما فعلت للاستفادة

---

(29-03-20, 05:23 AM)معاند الحظ كتب :

(28-03-20, 10:56 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
حاولت ربط 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

الفكرة هي اني احاول زيادة مساحة مستطيل بالطول والعرض معا من خلال تغيير اجد ال NumericUpDown

اخ ابراهيم سؤالك ياكل في عقلي لانه يبدو سهل بالنسبة لي لكن اعرف ان الامور ليست دائما على ضاهرها 
فياليت تتكرم بشرح بسيط توضح لي فيه اللبس او الشيء اللي ماني فاهمه في اول كود لك 
واكون لك من الشاكرين

اخي انظر الى المثال الجديد الذي ارفقته منذ قليل ستفهم مرادي
 طبعا في المثال الزياد ليست نسبة وتناسب فقط مايزيد او ينقص في الاول يزيد او ينقص في الثاني والعكس صحيح 
سأضيف المعادلة الرياضية حسب حاجتي في البرنامج