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
C# / VB.NET - Disegniare Picturebox richiamando sub
Forum - C# / VB.NET - Disegniare Picturebox richiamando sub

Pagine: [ 1 2 ] Precedente | Prossimo
Avatar
raistig (Normal User)
Newbie


Messaggi: 5
Iscritto: 24/06/2010

Segnala al moderatore
Postato alle 22:24
Giovedì, 24/06/2010
Buonasera, mi sono da un po’ avvicinato al VB e mi trovo di fronte al seguente quesito:
devo disegnare in alcune Picturebox alcuni disegni (composti da linee ed altri elementi inclusi in e.graphics), il mio desiderio ed obbiettivo è riuscire a disegnare nelle Picturebox semplicemente richiamando dalle varie “Picturebox_Paint” alcune sub in cui sono contenuti i vari disegni.

Chiedendo anticipatamente scusa se ciò che ho scritto è una castroneria, ringrazio anticipatamente anche chiunque mi risponda.

PM Quote
Avatar
Ale96 (Member)
Pro


Messaggi: 132
Iscritto: 06/04/2010

Segnala al moderatore
Postato alle 22:28
Giovedì, 24/06/2010
Non ho capito molto bene, prova ad inviare un codice. da quello che hai detto ho capito che hai inserito delle immagini in una procedura (di solito si inseriscono nelle risorse del programma).

PM Quote
Avatar
raistig (Normal User)
Newbie


Messaggi: 5
Iscritto: 24/06/2010

Segnala al moderatore
Postato alle 22:38
Giovedì, 24/06/2010
Testo quotato

Postato originariamente da Ale96:

Non ho capito molto bene, prova ad inviare un codice. da quello che hai detto ho capito che hai inserito delle immagini in una procedura (di solito si inseriscono nelle risorse del programma).  


Si ma più che immagini li definirei disegni
Codice sorgente - presumibilmente VB.NET

  1. Public Sub PictureBox2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox2.Paint
  2.         [b]RimorchioUno()[/b]
  3. End Sub
  4.  
  5. Public Sub RimorchioUno(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
  6.         'RimorchioUno
  7.         [b][/b]
  8.         Dim antsin As New Rectangle(2, 10, 2, 5)
  9.         Dim antdes As New Rectangle(34, 10, 2, 5)
  10.         Dim possin As New Rectangle(2, 55, 2, 5)
  11.         Dim posdes As New Rectangle(34, 55, 2, 5)
  12.         Dim possin2 As New Rectangle(2, 61, 2, 5)
  13.         Dim posdes2 As New Rectangle(34, 61, 2, 5)
  14.         'Bordi Esterni
  15.         e.Graphics.FillPolygon((Brushes.Blue), rimorchiounomuso)
  16.         e.Graphics.DrawPolygon((Pens.Gray), rimorchiounomuso)
  17.         'Apertura Posteriore
  18.         Dim zx As New Point(8, 71)
  19.         Dim xz As New Point(31, 71)
  20.         e.Graphics.DrawLine((Pens.Red), zx, xz)
  21.         'Cardini Portellone Posteriore
  22.         Dim qw As New Rectangle(7, 70, 2, 2)
  23.         Dim wq As New Rectangle(30, 70, 2, 2)
  24.         e.Graphics.DrawEllipse(Pens.DarkRed, qw)
  25.         e.Graphics.FillEllipse(Brushes.DarkRed, qw)
  26.         e.Graphics.DrawEllipse(Pens.DarkRed, wq)
  27.         e.Graphics.FillEllipse(Brushes.DarkRed, wq)
  28.         'Ruota Anteriore Sinistra
  29.         e.Graphics.DrawEllipse(Pens.Black, antsin)
  30.         e.Graphics.FillEllipse(Brushes.Black, antsin)
  31.         'Ruota Anteriore Destra
  32.         e.Graphics.DrawEllipse(Pens.Black, antdes)
  33.         e.Graphics.FillEllipse(Brushes.Black, antdes)
  34.         'Ruota Posteriore Sinistra
  35.         e.Graphics.DrawEllipse(Pens.Black, possin)
  36.         e.Graphics.FillEllipse(Brushes.Black, possin)
  37.         'Ruota Posteriore Destra
  38.         e.Graphics.DrawEllipse(Pens.Black, posdes)
  39.         e.Graphics.FillEllipse(Brushes.Black, posdes)
  40.         'Seconda Ruota Posteriore Sinistra
  41.         e.Graphics.DrawEllipse(Pens.Black, possin2)
  42.         e.Graphics.FillEllipse(Brushes.Black, possin2)
  43.         'Seconda Ruota Posteriore Destra
  44.         e.Graphics.DrawEllipse(Pens.Black, posdes2)
  45.         e.Graphics.FillEllipse(Brushes.Black, posdes2)
  46.     End Sub



Scusatemi ancora se non sono esperto

Ultima modifica effettuata da raistig il 24/06/2010 alle 22:39
PM Quote
Avatar
Ale96 (Member)
Pro


Messaggi: 132
Iscritto: 06/04/2010

Segnala al moderatore
Postato alle 8:45
Venerdì, 25/06/2010
Nella sub RimorchioUno ci sono 2 parametri (sender di tipo oject ed e di tipo painteventargs) quando richiami quella procedura devi semplicemente specificare il valore di quei due parametri separati da virgole.
Per maggiori informazioni vai su:
http://totem.altervista.org/guida/versione3/A13%20-%20I%20 ...
quindi, essendo una guida, puoi leggere anche i capitoili successivi contenenti più informazioni.

Ultima modifica effettuata da Ale96 il 25/06/2010 alle 8:53
PM Quote
Avatar
Neo1986 (Ex-Member)
Pro


Messaggi: 97
Iscritto: 21/06/2010

Segnala al moderatore
Postato alle 8:53
Venerdì, 25/06/2010
Testo quotato


Disegniare Picturebox richiamando sub



Il post viola una delle più semplici regole del forum..... scrivere in italiano, o se preferisci itagniano

Cavolo..... :d

PM Quote
Avatar
Ale96 (Member)
Pro


Messaggi: 132
Iscritto: 06/04/2010

Segnala al moderatore
Postato alle 9:08
Venerdì, 25/06/2010
Testo quotato

Postato originariamente da Neo1986:

Testo quotato


Disegniare Picturebox richiamando sub



Il post viola una delle più semplici regole del forum..... scrivere in italiano, o se preferisci itagniano

Cavolo..... :d



L'importante è che la comunicazione avvenga, potrebbe anche essere un errore di battitura, capitano spesso. non è un sito di grammatica e se proprio bisogna chiudere il topic sarà quando chi ha postato otterrà una risposta soddisfacente.

PM Quote
Avatar
Neo1986 (Ex-Member)
Pro


Messaggi: 97
Iscritto: 21/06/2010

Segnala al moderatore
Postato alle 10:02
Venerdì, 25/06/2010
Testo quotato


L'importante è che la comunicazione avvenga, potrebbe anche essere un errore di battitura, capitano spesso. non è un sito di grammatica e se proprio bisogna chiudere il topic sarà quando chi ha postato otterrà una risposta soddisfacente.



1) Non fare l'avvocato del diavolo
2) Non ho mai parlato di chiudere il topic
3) mmmm.... disegniare? non so se hai presente e se usi una tastiera italiana, ma la I è tutta dall'altra parte rispetto alla A! :nono:

PM Quote
Avatar
raistig (Normal User)
Newbie


Messaggi: 5
Iscritto: 24/06/2010

Segnala al moderatore
Postato alle 14:13
Venerdì, 25/06/2010
Testo quotato

Postato originariamente da Neo1986:

Testo quotato


Disegniare Picturebox richiamando sub



Il post viola una delle più semplici regole del forum..... scrivere in italiano, o se preferisci itagniano

Cavolo..... :d



Scusami se ho sbagliato a scrivere, a te non è mai capitato?

Tornando ad Ale96, grazie per avermi postato una guida, la leggerò non appena arrivo a casa (ti scrivo da uno smartphone).

PM Quote
Avatar
raistig (Normal User)
Newbie


Messaggi: 5
Iscritto: 24/06/2010

Segnala al moderatore
Postato alle 16:16
Venerdì, 25/06/2010
Ok, ho risolto al problema nel seguente modo:

Codice sorgente - presumibilmente VB.NET

  1. Public Sub PictureBox2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox2.Paint
  2.         RimorchioUno(e)
  3.     End Sub
  4.     Public Sub RimorchioUno(ByVal e As System.Windows.Forms.PaintEventArgs)
  5.         'RimorchioUno
  6.         Dim antsin As New Rectangle(2, 10, 2, 5)
  7.         Dim antdes As New Rectangle(34, 10, 2, 5)
  8.         Dim possin As New Rectangle(2, 55, 2, 5)
  9.         Dim posdes As New Rectangle(34, 55, 2, 5)
  10.         Dim possin2 As New Rectangle(2, 61, 2, 5)
  11.         Dim posdes2 As New Rectangle(34, 61, 2, 5)
  12.         'Bordi Esterni
  13.         e.Graphics.FillPolygon((Brushes.Blue), rimorchiounomuso)
  14.         e.Graphics.DrawPolygon((Pens.Gray), rimorchiounomuso)
  15.         'Apertura Posteriore
  16.         Dim zx As New Point(8, 71)
  17.         Dim xz As New Point(31, 71)
  18.         e.Graphics.DrawLine((Pens.Red), zx, xz)
  19.         'Cardini Portellone Posteriore
  20.         Dim qw As New Rectangle(7, 70, 2, 2)
  21.         Dim wq As New Rectangle(30, 70, 2, 2)
  22.         e.Graphics.DrawEllipse(Pens.DarkRed, qw)
  23.         e.Graphics.FillEllipse(Brushes.DarkRed, qw)
  24.         e.Graphics.DrawEllipse(Pens.DarkRed, wq)
  25.         e.Graphics.FillEllipse(Brushes.DarkRed, wq)
  26.         'Ruota Anteriore Sinistra
  27.         e.Graphics.DrawEllipse(Pens.Black, antsin)
  28.         e.Graphics.FillEllipse(Brushes.Black, antsin)
  29.         'Ruota Anteriore Destra
  30.         e.Graphics.DrawEllipse(Pens.Black, antdes)
  31.         e.Graphics.FillEllipse(Brushes.Black, antdes)
  32.         'Ruota Posteriore Sinistra
  33.         e.Graphics.DrawEllipse(Pens.Black, possin)
  34.         e.Graphics.FillEllipse(Brushes.Black, possin)
  35.         'Ruota Posteriore Destra
  36.         e.Graphics.DrawEllipse(Pens.Black, posdes)
  37.         e.Graphics.FillEllipse(Brushes.Black, posdes)
  38.         'Seconda Ruota Posteriore Sinistra
  39.         e.Graphics.DrawEllipse(Pens.Black, possin2)
  40.         e.Graphics.FillEllipse(Brushes.Black, possin2)
  41.         'Seconda Ruota Posteriore Destra
  42.         e.Graphics.DrawEllipse(Pens.Black, posdes2)
  43.         e.Graphics.FillEllipse(Brushes.Black, posdes2)
  44.     End Sub


Ringrazio ancora Ale96 per la guida.




PM Quote
Pagine: [ 1 2 ] Precedente | Prossimo