Ayudenme no size!

[Morles]

Aqui una duda, no me gustaria que mi formulario( el ejecutable ) se mueva... me explico con un grafico ya que creo no me explico bien 



Y al pasar el cursor lo puedo dejar asi 



Bueno espero y me ayuden en esto( Nunca he sido bueno diseñando  ), un saludo!

[JKey]

Es muy sencillo.

Selecciona el Form al que quieres aplicarle esta propiedad, y busca en la parte inferior derecha de la pantalla "Propiedades de Form1"

Selecciona el Item "Border Style", esto te desplegara un listado de las posibilidades que hay para los bordes, y su aspecto.

Ensaya con todos, hasta que encuentres la conveniente para tu caso.

"Fixed Single" y "Fixed Dialog" te pueden servir para no modificar el tamaño del formulario.

De todas formas, te recomiendo tambien, que alli mismo, y mas abajo, busques tambien la propiedad "Max Button" (Maximizar Form),y la dejes en estado "False"

Ya si necesitas que ademas este estatica, y que por ejemplo, tampoco se puede cerrar con la "X" superior derecha, te paso el Code.

Saludos.

[Morles]

Gracias, si sabia lo de border style, y lo de minbutton ... Solo que no se me ocurrio juntarlo con la opcion 1 - Fixed Single, y no viene mal un codigo mas   

[JKey]

Hola.

Mira, aqui tienes tu Code, para no poder mover, ni cambiarle el especto al Form.

Código:

Option Explicit
' Para deshabilitar el menú y otros
Private Declare Function DeleteMenu Lib "user32" ( _
    ByVal hMenu As Long, _
    ByVal nPosition As Long, _
    ByVal wFlags As Long) As Long

' Obtiene el Handle al menú del sistema de la ventana
Private Declare Function GetSystemMenu Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal bRevert As Long) As Long

Private Sub Aplicar_Cambios(ByVal El_Formulario As Form, _
                            ByVal Menu_Cerrar As Boolean, _
                            ByVal Redimensionar As Boolean, _
                            ByVal Mover As Boolean)

Dim Hwnd_Menu As Long
   
    ' Obtiene el Hwnd del menú para usar con el Api DeleteMenu
    Hwnd_Menu = GetSystemMenu(El_Formulario.hwnd, False)
   
    ' botón Cerrar
    If Menu_Cerrar Then
       Call DeleteMenu(Hwnd_Menu, 6, MF_BYPOSITION)
    End If
    'Hace que la ventana no se pueda cambiar de tamaño
    If Redimensionar Then
       Call DeleteMenu(Hwnd_Menu, 2, MF_BYPOSITION)
    End If
   
    ' No permite que la ventana se pueda mover
    If Mover Then
       Call DeleteMenu(Hwnd_Menu, 1, MF_BYPOSITION)
    End If

    End Sub

Private Sub Form_Load()
' Deshabilita el Command de cerrar, y no permite que se redimensione _
     y mueva el formulario
    Call Aplicar_Cambios(Me, True, True, True)
End Sub

Este code, lo encontré en "Recursos Visual Basic", alguna vez que tenia una duda similar.

Espero que te sirva.

Saludos.