21-01-16, 11:52 PM
يمكنك استخدام الروتين التالي
او يمكنك التعديل ف الكود بما يناسبك
عموما الكود سوف يعطيك فكرة جيدة عن كيفية تحجيم حركة الفورم علي شاشة الكمبيوتر
حاول تستخدمه في االحدث الخاص ب حركة الفورم مثل FormMove
و يتم استخدام الكود كالتالي
او يمكنك التعديل ف الكود بما يناسبك
عموما الكود سوف يعطيك فكرة جيدة عن كيفية تحجيم حركة الفورم علي شاشة الكمبيوتر
PHP كود :
Private Sub LimitMovementOnScreen(currentForm As Form)
Dim virtual As Rectangle = SystemInformation.VirtualScreen
Dim rect As Rectangle = currentForm.Bounds
Dim formLeft As Integer = rect.Left
Dim formTop As Integer = rect.Top
If formLeft + rect.Width > virtual.Width Then
formLeft = virtual.Width - rect.Width
End If
If formTop + rect.Height > virtual.Height Then
formTop = virtual.Height - rect.Height
End If
If formLeft < virtual.X Then
formLeft = virtual.X
End If
If formTop < virtual.Y Then
formTop = virtual.Y
End If
currentForm.Bounds = New Rectangle(formLeft, formTop, rect.Width, rect.Height)
End Sub
حاول تستخدمه في االحدث الخاص ب حركة الفورم مثل FormMove
و يتم استخدام الكود كالتالي
PHP كود :
LimitMovementOnScreen(Me)

