Oppure

Loading
24/06/10 20:24
raistig
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.
aaa
24/06/10 20:28
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).
aaa
24/06/10 20:38
raistig
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
Public Sub PictureBox2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox2.Paint
        [b]RimorchioUno()[/b]
End Sub

Public Sub RimorchioUno(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
        'RimorchioUno
        [b][/b]
        Dim antsin As New Rectangle(2, 10, 2, 5)
        Dim antdes As New Rectangle(34, 10, 2, 5)
        Dim possin As New Rectangle(2, 55, 2, 5)
        Dim posdes As New Rectangle(34, 55, 2, 5)
        Dim possin2 As New Rectangle(2, 61, 2, 5)
        Dim posdes2 As New Rectangle(34, 61, 2, 5)
        'Bordi Esterni
        e.Graphics.FillPolygon((Brushes.Blue), rimorchiounomuso)
        e.Graphics.DrawPolygon((Pens.Gray), rimorchiounomuso)
        'Apertura Posteriore
        Dim zx As New Point(8, 71)
        Dim xz As New Point(31, 71)
        e.Graphics.DrawLine((Pens.Red), zx, xz)
        'Cardini Portellone Posteriore
        Dim qw As New Rectangle(7, 70, 2, 2)
        Dim wq As New Rectangle(30, 70, 2, 2)
        e.Graphics.DrawEllipse(Pens.DarkRed, qw)
        e.Graphics.FillEllipse(Brushes.DarkRed, qw)
        e.Graphics.DrawEllipse(Pens.DarkRed, wq)
        e.Graphics.FillEllipse(Brushes.DarkRed, wq)
        'Ruota Anteriore Sinistra
        e.Graphics.DrawEllipse(Pens.Black, antsin)
        e.Graphics.FillEllipse(Brushes.Black, antsin)
        'Ruota Anteriore Destra
        e.Graphics.DrawEllipse(Pens.Black, antdes)
        e.Graphics.FillEllipse(Brushes.Black, antdes)
        'Ruota Posteriore Sinistra
        e.Graphics.DrawEllipse(Pens.Black, possin)
        e.Graphics.FillEllipse(Brushes.Black, possin)
        'Ruota Posteriore Destra
        e.Graphics.DrawEllipse(Pens.Black, posdes)
        e.Graphics.FillEllipse(Brushes.Black, posdes)
        'Seconda Ruota Posteriore Sinistra
        e.Graphics.DrawEllipse(Pens.Black, possin2)
        e.Graphics.FillEllipse(Brushes.Black, possin2)
        'Seconda Ruota Posteriore Destra
        e.Graphics.DrawEllipse(Pens.Black, posdes2)
        e.Graphics.FillEllipse(Brushes.Black, posdes2)
    End Sub


Scusatemi ancora se non sono esperto
Ultima modifica effettuata da raistig 24/06/10 20:39
aaa
25/06/10 6:45
Ale96
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:
totem.altervista.org/guida/versione3/…
quindi, essendo una guida, puoi leggere anche i capitoili successivi contenenti più informazioni.
Ultima modifica effettuata da Ale96 25/06/10 6:53
aaa
25/06/10 6:53
Neo1986
Disegniare Picturebox richiamando sub


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

Cavolo..... :d
aaa
25/06/10 7:08
Ale96
Postato originariamente da Neo1986:

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.
aaa
25/06/10 8:02
Neo1986
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:
aaa
25/06/10 12:13
raistig
Postato originariamente da Neo1986:

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).
aaa