C# / VB.NET - classe Graphics: riproduzione di un poligono in un pannello

Forum - C# / VB.NET - classe Graphics: riproduzione di un poligono in un pannello

maikarki (Normal User)
Newbie

Messaggi: 9
Iscritto: 10/09/2011

Postato alle 18:10
Domenica, 30/10/2011

Questo topic è stato chiuso dal moderatore

Buongiorno a tutti!
Visto che in precedenza siete stati così gentili ad aiutarmi ci riprovo ancora un volta.
Il problema è (credo) semplice ma, essendo un principiante, ritengo che mi stia sfuggendo qualcosa.
Io dovrei in VB.NET popolare due vettori separati all'interno di una subroutine, chamiamoli: punti_x() e punti_y()
Una volta creati e popolati si vorrebbe che fossero uniti in un insieme di punti rappresentando un poligono all'interno di un pannello.

Orbene: quanto descritto funziona se tutto il codice viene inserito all'interno di Private Sub Panel1_Paint ma quando cerco di spostare il punto di creazione del vettore una bella X rossa mi comunica che non viene effettuata correttamente la riproduzione del poligono. Il codice che si vorrebbe fare funzionare è il seguente:

Codice sorgente - presumibilmente VB.NET

Public Class Form1
    Public punti_x() As Double
    Public punti_y() As Double
    Public n As Integer
 
 
 
    Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
 
 
 
        'Fusione dei due vettori dei punti X e Y in un unico insieme di punti da renderizzare
        N = UBound(punti_x)
        Dim cp(N - 1) As Point
        For pt = 0 To N - 1
            cp(pt).X = punti_x(pt)
            cp(pt).Y = punti_y(pt)
        Next
 
 
        Dim penna As New Pen(Color.Maroon, 2)
        Dim pennello As New SolidBrush(Color.Lime)
        e.Graphics.DrawPolygon(penna, cp)
        e.Graphics.FillPolygon(pennello, cp)
 
    End Sub
 
    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'INIZIA LA COMPOSIZIONE DEI 2 VETTORI CHE RICEVONO SEPARATAMENTE I VALORI DI X E Y
 
        n = 4
        ReDim Preserve punti_x(n)
        ReDim Preserve punti_y(n)
        'punto 1
        punti_x(0) = 0
        punti_y(0) = 0
        'punto 2
        punti_x(1) = 0
        punti_y(1) = 50
        'punto 3
        punti_x(2) = 50
        punti_y(2) = 50
        'punto 4
        punti_x(3) = 50
        punti_y(3) = 0
 
        'FINE DELLA COMPOSIZIONE DEI VETTORI
 
        '--------------------------------------------
    End Sub
End Class

Dove sto sbagliando?

Grazie mille

nessuno (Normal User)
Guru^2

Messaggi: 6402
Iscritto: 03/01/2010

Postato alle 20:51
Domenica, 30/10/2011

All'inizio del Paint scrivi

If punti_x Is Nothing Then Return

e alla fine del Click

Panel1.Refresh()

Grazie mille, funziona! Grazie ancora... - maikarki - 30/10/11 21:21

Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.

Qwertj (Dev Team)
Guru

Messaggi: 678
Iscritto: 30/05/2011

Postato alle 19:59
Domenica, 30/10/2011

Riga? Errore?

Non viene segnalato alcune errore all'interno del codice. Semplicemente non funziona... - maikarki - 30/10/11 20:10

sembra che non riesca a comunicare il valore dei due vettori alla Sub Panel1.paint o che ci sia un problema di refresh... - maikarki - 30/10/11 20:22