[سعود]

السلام عليكم ورحمة الله و بركاته

حد الفورم السفلي كيف نعرف ان اداة معينة وصلته

اريد ان اجعل خاصية dr = false اذا وصلت البانل الى حد الفورم الاسفل .

هذه محاولتي:

PHP كود :

Dim pnl As Panel = DirectCast(Panel1, Panel)
        If pnl.Top < 0 Then
            pnl.Top = 0
            dr = False
        ElseIf pnl.Bottom >= Me.Location.Y Then
            dr = False
        End If 


هذا في حدث move للبانل  الوصول للرقم 0 وهو قيمة الحد الاعلى للفورم امره سهل لكن الحد الادنى لم اوصل لحل الى الان.

[عضو جديد]

(22-03-23, 06:50 PM)سعود كتب :

السلام عليكم ورحمة الله و بركاته

حد الفورم السفلي كيف نعرف ان اداة معينة وصلته

اريد ان اجعل خاصية dr = false اذا وصلت البانل الى حد الفورم الاسفل .

هذه محاولتي:

PHP كود :

Dim pnl As Panel = DirectCast(Panel1, Panel)
        If pnl.Top < 0 Then
            pnl.Top = 0
            dr = False
        ElseIf pnl.Bottom >= Me.Location.Y Then
            dr = False
        End If 


هذا في حدث move للبانل  الوصول للرقم 0 وهو قيمة الحد الاعلى للفورم امره سهل لكن الحد الادنى لم اوصل لحل الى الان.

PHP كود :

Dim pnl As Panel = DirectCast(Panel1, Panel)
        If pnl.Top < 0 Then
            pnl.Top = 0
            dr = False
        ElseIf pnl.Bottom >= me.clientsize.height Then
            pnl.Top =(me.clientsize.height-pnl.height)
            dr = False
        End If 


[سعود]

(22-03-23, 07:48 PM)عضو جديد كتب :

(22-03-23, 06:50 PM)سعود كتب :

السلام عليكم ورحمة الله و بركاته

حد الفورم السفلي كيف نعرف ان اداة معينة وصلته

اريد ان اجعل خاصية dr = false اذا وصلت البانل الى حد الفورم الاسفل .

هذه محاولتي:

PHP كود :

Dim pnl As Panel = DirectCast(Panel1, Panel)
        If pnl.Top < 0 Then
            pnl.Top = 0
            dr = False
        ElseIf pnl.Bottom >= Me.Location.Y Then
            dr = False
        End If 


هذا في حدث move للبانل  الوصول للرقم 0 وهو قيمة الحد الاعلى للفورم امره سهل لكن الحد الادنى لم اوصل لحل الى الان.

PHP كود :

Dim pnl As Panel = DirectCast(Panel1, Panel)
        If pnl.Top < 0 Then
            pnl.Top = 0
            dr = False
        ElseIf pnl.Bottom >= me.clientsize.height Then
            pnl.Top =(me.clientsize.height-pnl.height)
            dr = False
        End If 


ماشاء الله تبارك الله  الله يسعدك.
خصائص الادوات كثييييييييييرة مررررة