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

[RISOLTO][Aiuto] .X e .Y Random in un Panel
(Questo messaggio è stato modificato l'ultima volta il: 14/08/2011, 16:32 da digger.)

Il criceto mannaro
Messaggi: 3,536
Discussioni: 201
Registrato: 03-2011
Mix: 3,737
Allora, non fare troppo caso allo stile di programmazione etc, ma il concetto dovrebbe essere questo di questo piccolo esempio di codice.
Ho messo un panel, un picturebox all'interno e un button all'esterno giusto per creare l'evento.
Ad ogni pressione del button2 il picturebox si sposta all'interno del panel.

    VBNET Programming
  1. Public Class Form1
  2.  
  3. Private rnd_x, rnd_y As Integer
  4.  
  5. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  6. rnd_x = CInt(Int(((Panel1.Width - PictureBox1.Width) * Rnd()) + 1))
  7. rnd_y = CInt(Int(((Panel1.Height - PictureBox1.Height) * Rnd()) + 1))
  8.  
  9. Dim a As New System.Drawing.Point(rnd_x, rnd_y)
  10. PictureBox1.Location = a
  11.  
  12. End Sub
  13.  
  14. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  15. Randomize()
  16. End Sub
  17. End Class




digger
14/08/2011, 16:30
#2
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,386 14/01/2015, 22:11
Ultimo messaggio: digger
  aiuto portatile oirad94 1 1,665 22/12/2014, 16:27
Ultimo messaggio: Admin
  Aiuto Nella Definizone Rokys091 9 3,624 25/11/2014, 10:24
Ultimo messaggio: digger



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