[VB NET] disegnare in picturebox

[Pazzokli]

ciao a tutti,
ho il seguente problema.
Devo visualizzare una linea che segue il mouse in una picturebox che chiamo "immagine". Quando clicco sulla picturebox devo disegnare la linea in modo permanente nel punto cliccato.
La parte della linea che segue il mouse l'ho fatta e funziona. Ora come fisso la linea quando clicco?
Ecco il codice:

Private Sub immagine_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles immagine.Paint
Dim passo As Integer
If piazza = True Then
If Val(FATTORE) <> 0 Then passo = Int(2.5 / FATTORE)
x2 = x1 : y2 = y1 - passo
If FATTORE <> 0 Then e.Graphics.DrawLine(Pens.Black, x1, y1, x2, y2)
End If
End Sub

Nell'evento MouseMove della picturebox ho messo
immagine.refresh

GRAZIE
Pazzokli

[ShaleN]

Che cos'è piazza?
Che cos'è FATTORE?
Questa riga non l'ho capita: x2 = x1 : y2 = y1 - passo

[Pazzokli]

Si scusate, ho dato per scontato un po di cose

piazza è una variabile boolean che mi serve per abilitare o no la visualizzazione della linea.
Se la metto a TRUE allora a monitor devo vedere disegnata la linea che segue il mouse nell'evento mouse_move, se e FALSE non visualizzo niente.

FATTORE è una variabile in cui memorizzo il fattore di conversione tra twip e mm perchè in un textbox metterò i mm di lunghezza della linea che poi con questa formuletta converto in twip per le coordinate

If Val(FATTORE) <> 0 Then passo = Int(2.5 / FATTORE)

in questo caso ho forzato la lunghezza della linea a 2.5mm
il valore della lunghezza in twip che ricavo viene assegnato alla variabile passo
Quindi passo altro non è che la lunghezza della linea in twip

x1,y1 sono le coordinate a cui punta il mouse
x2,y2 sono le coordinate di arrivo della linea
A questo punto per disegnare una linea verticale lunga 2.5mm applico la formula

x2 = x1 : y2 = y1 - passo

CIAO
GRAZIE

[oregon]

Originariamente inviato da Pazzokli
... la formula

x2 = x1 : y2 = y1 - passo

Formula? In che senso ? Queste sono due istruzioni separate, ovvero

x2 = x1

y2 = y1 - passo

E' questo quello che intendi con "formula"?

[Pazzokli]

esatto, due istruzioni.

[ShaleN]

If FATTORE <> 0 Then e.Graphics.DrawLine(Pens.Black, x1, y1, x2, y2)
Non capisco il perchè dell'If.

Altra domanda: x1 e x2 dove vengono dichiarati (con che scope) e dove vengono modificati?

[Pazzokli]

l' IF serve perchè se non c'è ancora un fattore di conversione tra mm e twip non puo disegnare la linea e quindi non esegue l'istruzione di disegno.
X1 e Y1 sono le coordinate del mouse che si aggiornano nell'evento mouse_move della picturebox

[ShaleN]

Un'idea che mi è venuta, che però funziona solo se devi disegnare linee:
al posto di X1 e X2 e Y1 e Y2 usi una List(Of Point) nella quale imaggazini le varie coordinate delle linee. Poi, nell'evento Paint della Picturebox cicli la lista e disegni ogni linea. Ora lascio alla tua fantiasia il lavoro di implementare la mia idea (se ti piace).