Gambas-it

Archivi (sola lettura) => Programmazione (Gambas 2) => Topic aperto da: Lux - 02 Maggio 2009, 16:28:25

Titolo: Muovere oggetti
Inserito da: Lux - 02 Maggio 2009, 16:28:25

Ciao a tutti, per divertirmi un po' ho creato un form, ho aggiunto un button1 e dopo averci cliccato su, l'oggetto button1 si muove verso l'alto.
ecco il codice che ho inserito:

Codice: [Seleziona]

PUBLIC SUB Button1_Click()  
DIM x AS Integer   
x = 308   
WHILE x > 56        
WAIT 0.1        
x = x - 10       
Button1.Move(119, x)  
WEND   
END

ora mi fa uno strano effetto, ovvero l'oggetto button1 oltre a salire(quindi a muoversi sull'asse delle ordinate Y) si muove anche l'ungo lasse delle ascisse(anche se di poco).
Come posso risolvere?
Ecco come ho impostato le proprietà:
X = 119
Y = 308
ciao.

Titolo: Re: Muovere oggetti
Inserito da: claudio - 02 Maggio 2009, 16:42:10

Modifica il codice in questo modo:

PUBLIC SUB Button1_Click()
    DIM x AS Integer
    x = ME.Button1.Top
    WHILE x > 56
        WAIT 0.1
        x = x - 10
        Button1.Move(ME.Button1.Left, x)
    WEND
END

Titolo: Re: Muovere oggetti
Inserito da: Lux - 03 Maggio 2009, 11:01:26

Grazie mille! Cosi ho risolto!