Oppure

Loading
23/04/12 9:47
maikarki
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:
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:

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