Por favor, cómo fijar la posición de un formulario?...

[Samuel Cano]

Por favor alguien me puede orientar cómo fijar un formulario en la pantalla?

Cuando se ejecuta por primera vez aparece centrado en la pantalla y eso está bien...

lo que quiero evitar es que los usuarios puedan desplazar el formulario por la pantalla, porque eso me está ocasionando problemas...

Gracias.

- Samuel

 

[Greg Truby]

Samuel,

No lo probé, pero me parece que lo que dijo Juan Pablo aquí debe de funcionar.

Saludos,

 

[Samuel Cano]

Gracias

Hola Greg,

voy a revisar el post ( mira que según yo, busqué antes de preguntar)...



hasta pronto y buen fin de semana.

- Samuel

 

[Samuel Cano]

Greg, funcionó muy bién...

aquí el código para fijar la posición de un formulario (userform) en la pantalla, por si alguien lo necesita de rápido:

Extraído del mensaje original:

This seems to work ok:

Option Explicit

Private Type Position
    Left As Single
    Top As Single
End Type

Private Sub UserForm_Layout()
    Static Pos As Position

    Dim Mvd As Boolean
    
    'If the form is just being initialized, store the position
    If Pos.Left = 0 Or Pos.Top = 0 Then
        Pos.Left = Me.Left
        Pos.Top = Me.Top
        Exit Sub
    End If
    
    'Check to see if the form has been moved
    Mvd = False
    If Me.Left <> Pos.Left Then
        Me.Left = Pos.Left
        Mvd = True
    End If
    If Me.Top <> Pos.Top Then
        Me.Top = Pos.Top
        Mvd = True
    End If
    
    If Mvd Then
        MsgBox "Please don't move me !", vbCritical
    End If
End Sub

~Juan Pablo González

Gracias a Juan Pablo por el código y a ti por orientarme hacia él.

Un abrazo.

- Samuel

 

[armando aros]

funciona de maravilla, gracias!!


saludos