Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Cambiare posizione ad un immagine
Forum - Visual Basic 6 - Cambiare posizione ad un immagine

Pagine: [ 1 2 3 ] Precedente | Prossimo
Avatar
DeDos (Normal User)
Rookie


Messaggi: 21
Iscritto: 03/11/2008

Segnala al moderatore
Postato alle 0:26
Lunedì, 01/12/2008
Ciao a tutti ,
Come posso far in modo che ogni volta che , spingendo un bottone , richiamando una funzione , o comunque inserendo il codice in un timer , un immagine cambi posizione(posizione random)?

PM Quote
Avatar
antometal (Member)
Guru


Messaggi: 691
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 1:30
Lunedì, 01/12/2008
cambiare posizione in che senso, dell' oggetto che la contine o dell' immagine proprio???

se parli dell' oggetto devi usare le proprietà top e left

se ti riferisci proprio all' immagine una soluzione sarebbe usare il paintpicture che ti permette di disegnare un immagine su di un elemento che sopporta la grafica

PM Quote
Avatar
Louis (Normal User)
Pro


Messaggi: 150
Iscritto: 22/04/2008

Segnala al moderatore
Postato alle 8:55
Lunedì, 01/12/2008
Ciao,
di seguito posto un esempio che potrai affinare in base alle tue esigenze. In particolare l'immagine si sposta con il metodo Move; quindi poni sulla form un controllo Image con relativa Picture:
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Form_Load()
  2.     Timer1.Interval = 500
  3. End Sub
  4. '--------------------------------------------
  5. ' Muove l'immagine nell'intervallo dato con numeri casuali:
  6. Private Sub Timer1_Timer()
  7. Dim NumRndx As Single, NumRndy As Single, y As Integer, x As Integer
  8.     x = 1500
  9.     y = 1500
  10.     ' Valori compresi tra 1 e 1500:
  11.     NumRndx = Int((x * Rnd) + 1)
  12.     NumRndy = Int((y * Rnd) + 1)
  13.     Image1.Move NumRndx, NumRndy
  14. End Sub


Spero che ti sia utile.

PM Quote
Avatar
DeDos (Normal User)
Rookie


Messaggi: 21
Iscritto: 03/11/2008

Segnala al moderatore
Postato alle 12:53
Lunedì, 01/12/2008
Grazie Louis è propio quello che mi serviva .

PS: come sempre sempre gentili e disponibili ^^

Ultima modifica effettuata da DeDos il 01/12/2008 alle 13:04
PM Quote
Avatar
DeDos (Normal User)
Rookie


Messaggi: 21
Iscritto: 03/11/2008

Segnala al moderatore
Postato alle 19:37
Lunedì, 01/12/2008
Scusate il doppio post , mi serve un altra info , come faccio se voglio mettere un numero random?
Nel senso , che tipo io imposto 10 , 20 numeri che
devono uscire e in una label esce uno di quei numeri in modo casuale

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 20:07
Lunedì, 01/12/2008
dim x as integer
Randomize
x = rnd * 20 'usciranno numeri da 0 a 20
label1.caption = x

PM Quote
Avatar
DeDos (Normal User)
Rookie


Messaggi: 21
Iscritto: 03/11/2008

Segnala al moderatore
Postato alle 20:09
Lunedì, 01/12/2008
In poche parole , in vb6 l istruzione rnd randomizza?!

Grazie :)

PS: ma se io voglio prestabilire che escano solo dei determinati numeri ?

Es . 10 , 14 , 16 e 25.... si puo fare?

Ultima modifica effettuata da DeDos il 01/12/2008 alle 20:12
PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 20:45
Lunedì, 01/12/2008
Si...
Se vuoi per esempio che NON esca mai 14 basta fare:

1
dim x as integer
blabla...<-codice postato sopra
if x = 14 then: goto 1
label1.caption = x

invece se ad esempio si vuole fare uscire SEMPRE 14 basta fare:

1
dim x as integer
blabla...
if x <> 14 then: goto 1
label1.caption = x

Naturalmente poi se VUOI o NON VUOI più numeri basta che li unisci con operatori Or e And

PM Quote
Avatar
DeDos (Normal User)
Rookie


Messaggi: 21
Iscritto: 03/11/2008

Segnala al moderatore
Postato alle 21:10
Lunedì, 01/12/2008
Bhe se voglio che esca sempre un numero basterebbe  fare label1.caption = 14 :k:
Comunque , siccome devo mettere tantissimi numeri , quindi se faccio "NON METTERE" ci metterei una vita :)

PM Quote
Pagine: [ 1 2 3 ] Precedente | Prossimo