| Please help me |
Aldo |
26/03/2005 |
Difficoltà:
Principiante
|
|
Please,
help
me.
Ciao
a
tutti,
sono
un
principiante
della
programmazione,
mi
sono
cimentato
nella
scrittura
di
un
semplice
programma
con
VB5
e
mi
sono
subito
arenato.
Su
un
form
ho
disposto
un
pulsante
ESCI,
un
pulsante
AVANTI
e
5
controlli
IMAGE
e
nel
progetto
ho
inserito
un
file.RES.
Quando
lancio
il
programma
IMG1
e
IMG2
caricano
in
ordine
inverso
(B,
A;),
rispetto
all’ordine
corretto
(A,
B),
due
Bitmap
(B,
A
(LoadResPicture,
file.RES)).
IMG3
e
IMG4
servono
per
ordinare,
trascinandole
(DragDrop),
le
bitmap
contenute
in
IMG1
e
IMG2.
IMG5
deve
confermare
l’esattezza
della
disposizione:
se
trascino
IMG2
(Bitmap
A)
in
IMG3,
IMG5
deve
mostrarmi,
un’altra
bitmap
il
cui
significato
è
quello
di
ESATTO;
per
farla
breve,
se
trascino
IMG2
in
IMG3,
IMG5
deve
rispondere
(mostrando
una
Bitmap)
ESATTO.
Lo
stesso
discorso
vale
per
IMG4.
Il
pulsante
AVANTI
carica
nuove
bitmap
in
IMG1
e
IMG2.
Ecco
il
problema
:
come
faccio
a
far
comparire
la
bitmap
(ESATTO)
in
IMG5
se
e
solo
se
le
bitmap
trascinate
in
IMG3
e
IMG4
sono
disposte
nel
giusto
ordine
(1,
2)
?
Utilizzando
il
file.res
è
possibile
recuperare
l’impostazione
della
proprietà
picture
?
Ho
provato
così…
Private
Sub
image4_DragOver
(source
As
Control,
X
As
Single,
Y
As
Single,
state
As
Integer)
If
Image3.Picture
=
LoadResPicture(A,
VbResBitmap)
Then
Image5.Picture
=
LoadResPicture(esatto,
VbResBitmap)
End
If
End
Sub
…
ma
anche
così
(DragOver
+
Select
Case
state-->
Case
vbenter),
ma
non
funziona.
Dove
sbaglio
?
Help
me
Thanks
|
