PDA

Visualizza la versione completa : [vb] un semplice aiuto


lofcarlos
01-06-2002, 21:55
Ciao.
so che questa cosa che vi chiedo Ŕ di una banalitÓ che sarebbe capace anche un bimbo di 5 anni, per˛ io non so come si fa.
Vorrei ripetere per un determinato numero di volte una operazione finchŔ non viene premuto un pulsante.
esempio:
una immagine deve percorrere il video verso sinistra finchŔ non viene premuto il pulsante su della tastiera, e dopo la pressione del tsto l'immagine va su.
spero di essermi spiegato bene.
grazie

Mabi
01-06-2002, 23:51
Ciao lofcarlos.
Inserisci in un nuovo form:

1 tasto
2 timer
1 casella immagine


E quindi...



Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = False
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Timer1.Enabled = False
Timer2.Enabled = True
End Sub

Private Sub Form_Load()
Form1.KeyPreview = True
End Sub

Private Sub Timer1_Timer()
If Image1.Left < 0 Or Image1.Left = 0 Then
Image1.Left = Form1.Width
End If
Image1.Left = Image1.Left - 100
End Sub

Private Sub Timer2_Timer()
If Image1.Top < 0 Or Image1.Top = 0 Then
Image1.Top = Form1.Height
End If
Image1.Top = Image1.Top - 100
End Sub


In questo modo l'immagine si sposta a sinistra se viene premuto il tasto (Command1) e in alto se viene premuto un tasto (da tastiera).

Loading