Benvenuto! Per postare e godere delle funzionalità del forum registrati, occorrono pochi secondi ed è gratis!

[RISOLTO][Aiuto] .X e .Y Random in un Panel

Coder
Messaggi: 633
Discussioni: 57
Registrato: 04-2011
Mix: 0
digger, ho risolto con questo:

    VBNET Programming
  1. Dim collisione_x, collisione_y As Boolean
  2. Dim pb1_x1 = PictureBox1.Location.X
  3. Dim pb1_x2 = PictureBox1.Location.X + PictureBox1.Width
  4. Dim pb1_y1 = PictureBox1.Location.Y
  5. Dim pb1_y2 = PictureBox1.Location.Y + PictureBox1.Height
  6. Dim pb2_x1 = PictureBox2.Location.X
  7. Dim pb2_x2 = PictureBox2.Location.X + PictureBox2.Width
  8. Dim pb2_y1 = PictureBox2.Location.Y
  9. Dim pb2_y2 = PictureBox2.Location.Y + PictureBox2.Height
  10. collisione_x = (pb1_x1 >= pb2_x1 And pb1_x1 <= pb2_x2) Or (pb1_x2 >= pb2_x1 And pb1_x2 <= pb2_x2)
  11. collisione_y = (pb1_y1 >= pb2_y1 And pb1_y1 <= pb2_y2) Or (pb1_y2 >= pb2_y1 And pb1_y2 <= pb2_y2)
  12. If collisione_x And collisione_y Then
  13. My.Computer.Audio.Play(My.Resources.pacman_eat, AudioPlayMode.Background)
  14. pnt.Text += 1
  15. rnd_x = CInt(Int(((Panel1.Width - PictureBox2.Width) * Rnd()) + 1))
  16. rnd_y = CInt(Int(((Panel1.Height - PictureBox2.Height) * Rnd()) + 1))
  17. Dim a As New System.Drawing.Point(rnd_x, rnd_y)
  18. PictureBox2.Location = a
  19. End If



ora però non riesco a fare un'altra cosa e cioè che quando la pb1 si scontra con il panel devo generare un'evento... ho provato con lo stesso codice delle pb (cambiando il codice dove serve) ma non funziona... come posso fare? Sad

18/08/2011, 15:32
#15
Cerca


Messaggi in questa discussione
[Nessun oggetto] - da digger - 14/08/2011, 16:30
[Nessun oggetto] - da Cato97 - 14/08/2011, 17:47
[Nessun oggetto] - da digger - 14/08/2011, 20:12
[Nessun oggetto] - da Cato97 - 14/08/2011, 21:15
[Nessun oggetto] - da Skyline@69 - 15/08/2011, 17:08
[Nessun oggetto] - da Patoffo - 15/08/2011, 17:14
[Nessun oggetto] - da Cato97 - 15/08/2011, 19:56
[Nessun oggetto] - da digger - 16/08/2011, 17:20
[Nessun oggetto] - da Cato97 - 16/08/2011, 21:35
[Nessun oggetto] - da Cato97 - 18/08/2011, 1:12
[Nessun oggetto] - da digger - 18/08/2011, 15:17
[Nessun oggetto] - da Luca360 - 18/08/2011, 15:24
[Nessun oggetto] - da Cato97 - 18/08/2011, 15:32
[Nessun oggetto] - da digger - 18/08/2011, 15:29
[Nessun oggetto] - da Skyline@69 - 18/08/2011, 15:46
[Nessun oggetto] - da digger - 18/08/2011, 16:01
[Nessun oggetto] - da Cato97 - 18/08/2011, 18:26

Discussioni simili
Discussione Autore Risposte Letto Ultimo messaggio
  [aiuto] No segnale su sapphire R9 280. Pocciox 5 2,390 14/01/2015, 22:11
Ultimo messaggio: digger
  aiuto portatile oirad94 1 1,666 22/12/2014, 16:27
Ultimo messaggio: Admin
  Aiuto Nella Definizone Rokys091 9 3,627 25/11/2014, 10:24
Ultimo messaggio: digger



Utenti che stanno guardando questa discussione: 1 Ospite(i)