(29-03-20, 01:51 AM)351028 كتب :

PHP كود :

Public Class Form1

    Dim AA As Integer = 200
    Dim BB As Integer = 100

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim MyTrackBar As New TrackBar
        MyTrackBar.Dock = DockStyle.Bottom
        MyTrackBar.Minimum = 10
        MyTrackBar.Maximum = 190
        MyTrackBar.Value = 100
        AddHandler MyTrackBar.Scroll, AddressOf MyTrackBar_Scroll
        Me.Controls.Add(MyTrackBar)
        Me.Text = MyTrackBar.Value & "%"
    End Sub

    Private Sub MyTrackBar_Scroll(sender As Object, e As EventArgs)
        Panel1.Width = AA * (sender.Value / 100)
        Panel1.Height = BB * (sender.Value / 100)
        Me.Text = sender.Value & "%"
    End Sub

End Class 


(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

(29-03-20, 03:45 AM)معاند الحظ كتب : وعليك السلام ورحمة الله وبركاته
المعذرة اخ ابراهيم
" جداء الطرفين بالوسطين"
اذا دخلت الرياضيات من الباب اخرج انا من الشباك
ادام الله ايامك بالخير