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 - Muovere Shape con Command Button
Forum - Visual Basic 6 - Muovere Shape con Command Button

Pagine: [ 1 2 ] Precedente | Prossimo
Avatar
luca94 (Normal User)
Pro


Messaggi: 71
Iscritto: 07/05/2008

Segnala al moderatore
Postato alle 16:23
Sabato, 26/07/2008
Allora ho creato in vb6 una form con una shape (è l' immagine a forma di cerchio) e vorrei farla muovere di tot pixel in su alla pressione di un command buttom.
Questo è il codice:
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Command1_Click()
  2. Shape1.move 480, 5040
  3. end sub


il problema è la decrementazione di -10 del 5040 ad ogni pressione del command button.
Come posso fare a decrementare?

Ultima modifica effettuata da Shutdown il 27/07/2008 alle 19:39
PM Quote
Avatar
Alceus (Member)
Expert


Messaggi: 288
Iscritto: 22/07/2008

Segnala al moderatore
Postato alle 16:59
Sabato, 26/07/2008
Allora, se ho capito bene vorresti far spostare una shape con l'evento click del mouse di alcuni pixel in su.
Il tuo codice va allora modificato così:
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Command1_Click()
  2. Shape1.Top = Shape1.Top - 30
  3. 'Dove 30 sta per l'intervallo di spazio entro cui fai muovere l'oggetto shape
  4. End Sub


Ultima modifica effettuata da Alceus il 26/07/2008 alle 16:59
PM Quote
Avatar
luca94 (Normal User)
Pro


Messaggi: 71
Iscritto: 07/05/2008

Segnala al moderatore
Postato alle 17:08
Sabato, 26/07/2008
E se la voglio spostare a destra o a sinistra?

PM Quote
Avatar
Alceus (Member)
Expert


Messaggi: 288
Iscritto: 22/07/2008

Segnala al moderatore
Postato alle 17:11
Sabato, 26/07/2008
Per spostarla a sinistra:
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Command1_Click()
  2. Shape1.Left=Shape1.Left-30
  3. End Sub


Per spostarla a destra:
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Command1_Click()
  2. Shape1.Left=Shape1.Left+30
  3. End Sub


PM Quote
Avatar
luca94 (Normal User)
Pro


Messaggi: 71
Iscritto: 07/05/2008

Segnala al moderatore
Postato alle 17:17
Sabato, 26/07/2008
L' ultimissima cosa e poi non ti do più fastidio...come faccio a verificare la posizione della shape?
Cioè, se, ad esempio, la shape si trova in queste coordinate: 345,678 esegui queste instruzioni:
command1.enabled = false.
Come faccio?

PM Quote
Avatar
Alceus (Member)
Expert


Messaggi: 288
Iscritto: 22/07/2008

Segnala al moderatore
Postato alle 17:25
Sabato, 26/07/2008
Testo quotato

Postato originariamente da luca94:
L' ultimissima cosa e poi non ti do più fastidio...come faccio a verificare la posizione della shape?
Cioè, se, ad esempio, la shape si trova in queste coordinate: 345,678 esegui queste instruzioni:
command1.enabled = false.
Come faccio?


Non mi stai dando fastidio, non ti preoccupare :k:...
Precisa però le "coordinate": 345 corrisponde alla posizione della shape rispetto ai margini superiore e inferiore della form e 678 alla sua posizione rispetto ai margini sinistro e destro della form?

PM Quote
Avatar
luca94 (Normal User)
Pro


Messaggi: 71
Iscritto: 07/05/2008

Segnala al moderatore
Postato alle 17:27
Sabato, 26/07/2008
Si

PM Quote
Avatar
Alceus (Member)
Expert


Messaggi: 288
Iscritto: 22/07/2008

Segnala al moderatore
Postato alle 17:30
Sabato, 26/07/2008
Ok, allora devi inserire questo codice nella routine Click del CommandButton:
Codice sorgente - presumibilmente VB.NET

  1. If Shape1.Top = 345 And Shape1.Left = 678 Then
  2. Command1.Enabled = False
  3. End If


PM Quote
Avatar
luca94 (Normal User)
Pro


Messaggi: 71
Iscritto: 07/05/2008

Segnala al moderatore
Postato alle 17:32
Sabato, 26/07/2008
Ok.....grazie 1000!!!!

PM Quote
Pagine: [ 1 2 ] Precedente | Prossimo