Mover un form

[trader]

hola necesito saber como puedo hacer para mover un form en forma de X no me acuerdo el comando si me lo pueden passar se los agradeceria.


 

Marcelo

[ranefi]

Hola trader, mira, no entiendo tu pregunta,  

[Universal SAC]

Puedes mover cualquier objeto en los cuadrantes X y Y facilmente...

necesitas 3 CommandButton. .. (Command1, Command2, Command3 y Command4) y un form (form1)

Código:

Private Sub Command1_Click(Index As Integer)
'a la derecha
Form1.Left = Form1.Left + 500
If Form1.Left > 8000 Then
Form1.Left = 8000
End If
End Sub

'hacia arriba
Private Sub Command2_Click()
Form1.Top = Form1.Top - 500
If Form1.Top < 0 Then
Form1.Top = 0
End If
End Sub

'a la derecha
Private Sub Command3_Click()
Form1.Top = Form1.Top + 500
If Form1.Top > 6000 Then
Form1.Top = 6000
End If
End Sub

'a la izquierda
Private Sub Command4_Click(Index As Integer)
Form1.Left = Form1.Left - 500
If Form1.Left < 0 Then
Form1.Left = 0
End If
End Sub

Aqu

[ranefi]

Hola trader, buen día. Mira, basándome en el código de Universal SAC, podemos hacer que el formulario se mueva sólo, aquí te dejo una pequeña modificación al código:

Código:

'AGREGA 4 CONTROLES TIMER
'EN LA PROPIEDAD Nombre (Name) DE CADA UNO DE LOS CONTROLES INTRODUCE
'<<LO SIGUIENTE:
'Timer1, Timer2, Timer3, Timer4

'EN LA PROPIEDAD Interval DE CADA UNO DE LOS CONTROLES INTRODUCE
'<<LO SIGUIENTE:
'300, 300, 300, 300

'CÓDIGO DE Universal SAC CON ALGUNAS PEQUEñÍSIMAS MODIFICACIONES:
'
'
'
Private Sub Timer1_Timer()
      'a la derecha
      Form1.Left = Form1.Left + 1000
     
      If Form1.Left > 8000 Then
          Form1.Left = 8000
      End If
     
      Timer1.Enabled = False
      Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
      'hacia arriba
      Form1.Top = Form1.Top - 1000

      If Form1.Top < 0 Then
           Form1.Top = 0
      End If
     
      Timer2.Enabled = False
      Timer3.Enabled = True
End Sub

Private Sub Timer3_Timer()
      'a la derecha
      Form1.Top = Form1.Top + 1000

   If Form1.Top > 6000 Then
           Form1.Top = 6000
       End If
     
      Timer3.Enabled = False
      Timer4.Enabled = True
End Sub

Private Sub Timer4_Timer()
      'a la izquierda
      Form1.Left = Form1.Left - 1000
 
      If Form1.Left < 0 Then
      Form1.Left = 0
      End If
     
      Timer4.Enabled = False
      Timer1.Enabled = True
End Sub

Eso es todo. See ya.

[Cagalas]

ranefi enceri si que la pones muy sencillito para tdos wow eres grande amigo