Este pequeño código es para escribirlo en el evento ‘move’ de un formulario, y le impide salir de los límites de la pantalla
El siguiente código se puede copiar 'tal cual' en el evento move de un formulario. El efecto que se consigue es impedir que al desplazar el formulario por la pantalla, este salga de los límites de la misma.
''' <summary> ''' Formulario que al moverse no sale de la ventana ''' </summary> ''' <remarks> ''' El Codigo original puede verse en en ''' http://www.codyx.org/snippet_form-ne-sort-pas-ecran_670.aspx '''</remarks> Private Sub Form1_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Move If Me.Top < 0 Then Me.Top = 0 If Me.Left < 0 Then Me.Left = 0 If Me.Top > Screen.PrimaryScreen.Bounds.Height - Me.Height Then Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) End If If Me.Left > Screen.PrimaryScreen.Bounds.Width - Me.Width Then Me.Left = Screen.PrimaryScreen.Bounds.Width - Me.Width End If End Sub
| © 1.997- 2.008 - La Güeb de Joaquín | |||||
|
Joaquin Medina Serrano
|
|||||
|