Mover un image
Hola jerryortiz, ¿me podrías ayudar con algo en foxpro? Resulta que tengo que hacer un juego en foxpro y me gustaría saber como puedo mover un IMAGE dentro del formulario usando el teclado.
Desde ya muchas gracias!
Desde ya muchas gracias!
1 respuesta
Respuesta de Jerry Ortiz
1
Para mover un objeto se puede hacer de está manera:
1.- Agrega el objecto en el formulario
2.- Agrega dos propiedades al formulario (Una con el nombre "Im_Top" y otra con el nombre "Im_Left") ambas propiedades tienes que estar en "0"
3.- En el evento DragDrop del Objeto coloca este código:
THIS.Parent.DragDrop(oSource, nXCoord, nYCoord)
4.- En el Evento MouseLeave del Objeto colocas este otro código:
IF nButton=1
THISFORM.Im_Left = nXCoord - THIS.Left
THISFORM.Im_Top = nYCoord - THIS.Top
THIS.Drag
Endif
1.- Agrega el objecto en el formulario
2.- Agrega dos propiedades al formulario (Una con el nombre "Im_Top" y otra con el nombre "Im_Left") ambas propiedades tienes que estar en "0"
3.- En el evento DragDrop del Objeto coloca este código:
THIS.Parent.DragDrop(oSource, nXCoord, nYCoord)
4.- En el Evento MouseLeave del Objeto colocas este otro código:
IF nButton=1
THISFORM.Im_Left = nXCoord - THIS.Left
THISFORM.Im_Top = nYCoord - THIS.Top
THIS.Drag
Endif
Hola Jerryortiz, muchas gracias por tu respuesta, pero no se tendría que incluir en la codificación la disminución o el aumento de "left", "¿width" para que se pueda mover la imagen? Hice lo que me dijiste pero sin resultados.
Algo así estaba pensando: cuando oprima la letra "A" del teclado que la imagen se desplase hacia la izquierda, cuando oprima la letra "D" del teclado que la imagen se desplase hacia la derecha.
Muchas gracias por tus repuestas y gracias por tu tiempo
Algo así estaba pensando: cuando oprima la letra "A" del teclado que la imagen se desplase hacia la izquierda, cuando oprima la letra "D" del teclado que la imagen se desplase hacia la derecha.
Muchas gracias por tus repuestas y gracias por tu tiempo
Disculpa pensé que te referías a mover la imagen con el mouse...
Estos son algunos códigos de las teclas de VFP.
a = 97
b = 98
c = 99
d = 100
e = 101
f = 102
g = 103
h = 104
i = 105
j = 106
k = 107
l = 108
m = 109
n = 110
ñ = 241
o = 111
p = 112
q = 113
r = 114
s = 115
t = 116
u = 117
v = 118
w = 119
x = 120
y = 121
z = 122
1 = 49
2 = 50
3 = 51
4 = 52
5 = 53
6 = 54
7 = 55
8 = 56
9 = 57
0 = 48
A = 65
B = 66
C = 67
D = 68
E = 69
F = 70
G = 71
H = 72
I = 73
J = 74
K = 75
L = 76
M = 77
N = 78
Ñ = 209
O = 79
P = 80
Q = 81
R = 82
S = 83
T = 84
U = 85
V = 86
W = 87
X = 88
Y = 89
Z = 90
Inicio = 1
Flecha Arriba = 5
Flecha Abajo = 24
Flecha Izquierda = 19
Flecha Derecha = 4
Enter=13
Para mover la imagen al presionar una tecla coloca en el evento Keypress del formulario un código más o menos como este:
If lastkey()=Codigodetecla
This.nombredeImagen.Top=10
This.nombredeImagen.Left=10
endif
Espero te sirva y cuálquier duda no te olvides en preguntar.
***Suerte***
This.Nombreimagen.T
Estos son algunos códigos de las teclas de VFP.
a = 97
b = 98
c = 99
d = 100
e = 101
f = 102
g = 103
h = 104
i = 105
j = 106
k = 107
l = 108
m = 109
n = 110
ñ = 241
o = 111
p = 112
q = 113
r = 114
s = 115
t = 116
u = 117
v = 118
w = 119
x = 120
y = 121
z = 122
1 = 49
2 = 50
3 = 51
4 = 52
5 = 53
6 = 54
7 = 55
8 = 56
9 = 57
0 = 48
A = 65
B = 66
C = 67
D = 68
E = 69
F = 70
G = 71
H = 72
I = 73
J = 74
K = 75
L = 76
M = 77
N = 78
Ñ = 209
O = 79
P = 80
Q = 81
R = 82
S = 83
T = 84
U = 85
V = 86
W = 87
X = 88
Y = 89
Z = 90
Inicio = 1
Flecha Arriba = 5
Flecha Abajo = 24
Flecha Izquierda = 19
Flecha Derecha = 4
Enter=13
Para mover la imagen al presionar una tecla coloca en el evento Keypress del formulario un código más o menos como este:
If lastkey()=Codigodetecla
This.nombredeImagen.Top=10
This.nombredeImagen.Left=10
endif
Espero te sirva y cuálquier duda no te olvides en preguntar.
***Suerte***
This.Nombreimagen.T
