Hola a todos!! Para mover un shape, utilizo la magnífica librería dx_lib32 2.0, por cierto,muy buenalibrería, [EX3]. Ahora va mi problema.


Tengo este código para Form_Load:

Código:

Private Sub Form_Load()
Set m_Input = New dx_Input_Class 'Creamos la referencia a la clase dx_Input.


Call m_Input.Init(Me.hWnd) 'Inicializamos la clase dx_Input.
End Sub

Este codigo para Form_Unload:

Código:

Private Sub Form_Unload(Cancel As Integer)
'Terminamos la ejecucion de la clase:
Call m_Input.Terminate


'Destruimos la instancia de la clase:
Set m_Input = Nothing


End


End Sub

Y por útltimo, en un Timer1, con la propiedadIntervala 10:

Código:

Private Sub Timer1_Timer()
With m_Input
If .Key(Key_Left) Then
Shape1.Left = Shape1.Left - 100
End If


If .Key(Key_Right) Then
Shape1.Left = Shape1.Left + 100
End If


If .Key(Key_Up) Then
Shape1.Top = Shape1.Top - 100
End If


If .Key(Key_Down) Then
Shape1.Top = Shape1.Top + 100
End If
End With
End Sub

Ahora, éste es mi problema, cuando muevo el shape (este codigo me funciona muy bien), no quiero que se salga por los bordes, alguien sabe como conseguir esto???


Muchas gracias de antemano.


Salu2...Edited by: K0rl3oN

Hola por cierto esta muy buena la dx_lib32 2.0 pero creo que si solo le vas a dar esa utilidad pues te combendria usar el api GetAsyncKeyState
y para lo que preguntas pues tienes que ir comprovando el left y el top segun donde se encuentre el shape peros si lo aumentas de 100 en 100 puede que se pase un poquito apenas

mira

Código:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyUp) <> 0 Then
If Shape1.Top > 0 Then Shape1.Top = Shape1.Top - 100
End If
If GetAsyncKeyState(vbKeyLeft) <> 0 Then
If Shape1.Left > 0 Then Shape1.Left = Shape1.Left - 100
End If
If GetAsyncKeyState(vbKeyRight) <> 0 Then
If Shape1.Left + Shape1.Width < Me.ScaleWidth Then Shape1.Left = Shape1.Left + 100
End If
If GetAsyncKeyState(vbKeyDown) <> 0 Then
If Shape1.Top + Shape1.Height < Me.ScaleHeight Then Shape1.Top = Shape1.Top + 100
End If
End Sub

Saludos



Edited by: Leandro

Gracias, probaré a ver que tal. Con cualquier duda te aviso.


Salu2...

La dx_lib32 solo merece la pena usarla si se van aprovechar todas las clases en cierta medida. Usarla solo por 4 funciones no merece la pena ya que es tener que cargar con una dependencia que instalar mas al programa pudiendo evitarla para tan poco trabajo, como en este caso.

Salu2...

Pues es el inicio de un juego aunque no lo parezca


Gracias y salu2...