inmovilizar form

Iniciado por jocker, 4 Junio 2006, 05:29 AM

0 Miembros y 1 Visitante están viendo este tema.

jocker

como hago para inmovilizar el form, esto quiero hacer parar cuando lo doy un clic en la ventana, no lo arrastre, parar que no lo moviera...

un api? un ayuda? algo...?


grax

Robokop

no nada de eso nomas ve a la ventana de propíedades y donde dice moveable coloca la opcion false

jocker

ya lo hice, pero como mi form sale desde abajo de la pantalla, no lo puedo inmovilizar, por que quedaria estatico. ademas quiero saber el codigo, para aprender como se hace.


  :-X :-X :-X :-X :-X :-X :-X :-X :-X :-X :-X :-X :-X :-X :-X :-X

Red Mx

en posision del formulario solo centralo la propiedad

Staruppotition seleciona la opcion 1 y moveable coloca la opcion false.

la o moveable coloca la opcion false

Saludos Red Mx
Desarrollar Malware Es Causa De Cancer...

_Sergi_

Citarademas quiero saber el codigo, para aprender como se hace.

Lo que preguntas es tan básico que no necesita código, tan sólo has de modificar las propiedades del form, tal y como te han dicho Red mx y Robokop.

Sólo necesitarías código si quisieras modificar esos atributos en tiempo de ejecución (creo que hay algunos que no se pueden, como por ejemplo BorderStyle) paro bastaría una línea para hacerlo.

Un saludo
Proyecto de Ingeniero

jocker

este es el code

pero lo quiero aprender "IGUAL" a hacerlo con algun code, sin usar lo que dicen que use, por que asi es facil, pero a mi , me gusta complicarme la vida....

Option Explicit
Dim IH As Integer
Dim IW As Integer
Private Sub Form_Load()
IH = Height
IW = Width
Move (Screen.Height - Height) + 3000, (Screen.Width - Width) + 1000
With Me
.Height = 3000
.Width = 3000
.BorderStyle = 5
.BackColor = vbBlack
.Caption = "kill you"

End With

Timer1.Interval = 100
Timer2.Interval = 3000
End Sub

Private Sub Form_Resize()

If Height <> IH Then
IH = Height
ElseIf Width <> IW Then
Width = IW
End If




End Sub

Private Sub Timer1_Timer()
Form1.Top = Form1.Top - 100
End Sub

Private Sub Timer2_Timer()
If Timer2.Interval = 3000 Then
Timer1.Enabled = False
End If
End Sub

pero quiero hacerlo con algun codigo, ya que el form esta en movimiento y el code

form1.moveable = false

no me deja hacerlo, pero desde el cuadro de propiedades si. pero insisto, no hay alguna api, o algo asi...



:-X :-X :-X :-X :-X :-X :-X :-X :-X :-X :-X :-X :-X :-X