C# / VB.NET - SUB per rappresentare un poligono su di un pannello [VB.NET]

Forum - C# / VB.NET - SUB per rappresentare un poligono su di un pannello [VB.NET]

maikarki (Normal User)
Newbie

Messaggi: 9
Iscritto: 10/09/2011

Postato alle 11:47
Lunedì, 23/04/2012

Buongiorno a tutti,

sono un pò in difficoltà nel creare una procedura che rappresenti su di un pannello esistente (panel2) un poligono descritto da una struttura PointF.

Mi spiego meglio.

Desidero realizzare una sub pubblica di questo tipo:

Codice sorgente - presumibilmente VB.NET

Public Sub Foto_su_PANEL2(ByVal x() As Double, ByVal y() As Double, ByVal e As PaintEventArgs)
        
 
        'fusione dei due vettori in un insieme di punti
        Dim cp(UBound(x)) As PointF
        Dim pt As Integer
        For pt = 0 To UBound(x) Step 1
            cp(pt).X = x(pt)
            cp(pt).Y = y(pt)
        Next
        Panel2.CreateGraphics.FillPolygon(Brushes.Black, cp)
    End Sub

Al click del mouse la procedura dovrebbe leggere i valori dei punti da una struttura e rappresentare il poligono scrivendo qualcosa del tipo:

Codice sorgente - presumibilmente VB.NET

Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
        Foto_su_PANEL2(sezione(ComboBox1.Text).px, sezione(ComboBox1.Text).py, e...)
    End Sub

ove
- sezione è il nome di una struttura esistente;
- combobox1.text contiene la posizione da leggere all'interno della struttura;
- px e py i vettori della struttura che contengono le coppie dei punti da rappresentare;
- e ..qualche cosa dovrebbe comunicare alla sub che il disegno dovrebbe essere effettuato su panel2.....

Vi ringrazio molto.