Por favor, ¿alguien puede decirme pq no funciona el siguente código? GRACIAS !!!
Código:
Private Sub Image11_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
'Coordenadas actuales
X = Image11.Left
Y = Image11.Top
Select Case (Y)
Case 1800 'Casilla 24 => Primer movimiento
Image2(16).Enabled = False
Image2(48).Enabled = False
Image2(56).Enabled = False
Image2(32).Enabled = True
Image2(40).Enabled = True
Case 2760 'Casilla 32
Image2(16).Enabled = False
Image2(24).Enabled = False
Image2(32).Enabled = False
Image2(40).Enabled = True
Image2(48).Enabled = False
Case 3720 'Casilla 40
Image2(16).Enabled = False
Image2(24).Enabled = False
Image2(32).Enabled = False
Image2(56).Enabled = False
Image2(64).Enabled = False
Image2(72).Enabled = False
Image2(48).Enabled = True
End Select
End Sub
El código está aplicado a una imagen, y las casillas son imagenes tb. Me gustaría saltar de casilla en casilla, es decir... Si estoy en la casilla 24 tener la posibilidad de saltar dos hacia delante, si estoy en la 32 saltar a la 40. Mi idea es desactivar aquellas casillas que no me interesa pisar, pero el código no realiza la función que deseo :(
Quiero llevar a cabo el movimiento de un peon. Quizá el código sea poco eficiente, estoy iniciandome en Visual :(
Por favor, ¿me ayudáis?
gracias de antemano.