Rysowanie prostych

[eheem123]

Siemanko,
Chciałbym napisać prostą apkę. 
Chodzi o to aby zaznaczać 1 punkt następnie 2 i żeby powstawała prosta. 
Pomoże mi ktoś jak to zrobić? 

[WellyPL]

Musisz wykorzystać event Paint (w TabControl jest event DrawItem)

Ustalasz dwie zmienne, które ustalane są przy evencie Click

 

Dim x As Point = New Point(Cursor.Position.X, Cursor.Position.Y)
Dim y AsPoint = New Point(Cursor.Position.X, Cursor.Position.Y)

Tylko musisz sobie zrobić by po kliknięciu robiło nową zmienną ustalało ją dopiero po drugim kliknięciu.

Np. robisz

 

Dim clicks As Integer = 0

i po kliknięciu dodajesz 1, i jeżeli jest 0 to ustala "x" a jak 1 to ustala "y".

Potem prosto już z eventem taki kod będzie:

 

e.Graphics.DrawLine(Pens.Black, x, y)

Oczywiście Pens.Black możesz zmienić na jaki chcesz

Spróbuj i będzie prawdopodobnie działać