Drawing lines with dots leaves spaces if mouse moves too fast

[Manuel Daponte]

I found this code in this newsgroup and used it, but the lines drawn
are composed of point too separated when the mouse moves at medium or
fast speed. How can I fix it?

Thanks in advance !!!

Dim bTracking As Boolean
Dim blackPen As Pen
Dim g As Graphics

Private Sub frmFirma_Load(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
blackPen = New Pen(Color.Black , 2)
blackPen.LineJo in = Drawing2D.LineJ oin.Round
g = PictureBox1.Cre ateGraphics()
End Sub

Private Sub AddPoint(ByVal e As
System.Windows. Forms.MouseEven tArgs)
g.DrawLine(blac kPen, e.X, e.Y, e.X + 1, e.Y + 1)
End Sub

Private Sub PictureBox1_Mou seDown(ByVal sender As Object, ByVal e
As System.Windows. Forms.MouseEven tArgs) Handles PictureBox1.Mou seDown
bTracking = True
AddPoint(e)
End Sub

Private Sub PictureBox1_Mou seMove(ByVal sender As Object, ByVal e
As System.Windows. Forms.MouseEven tArgs) Handles PictureBox1.Mou seMove
If bTracking Then
AddPoint(e)
End If
End Sub

Private Sub PictureBox1_Mou seUp(ByVal sender As Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) Handles PictureBox1.Mou seUp
If bTracking Then
AddPoint(e)
bTracking = False
End If
End Sub

Protected Overrides Sub Finalize()
g.Dispose()
MyBase.Finalize ()
End Sub

[Armin Zingler]

"Manuel Daponte" <md******@prtc. net> schrieb

I found this code in this newsgroup and used it, but the lines
drawn are composed of point too separated when the mouse moves at
medium or fast speed. How can I fix it?

Draw lines instead of points.
--
Armin

How to quote and why:
http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Manuel Daponte]

I found this code in this newsgroup and used it, but the lines
drawn are composed of point too separated when the mouse moves at
medium or fast speed. How can I fix it?

Draw lines instead of points.

Actually, I'm drawing small lines (2 points)...

The thing is that this will be used in a picture box, in an tabletPC app, to pick a signature. Do you have a better chunk of code
for that?

Thanks in advance for you help !!!

--
Manuel Daponte

[Herfried K. Wagner [MVP]]

* "Manuel Daponte" <md******@prtc. net> scripsit:

I found this code in this newsgroup and used it, but the lines
drawn are composed of point too separated when the mouse moves at
medium or fast speed. How can I fix it?

Draw lines instead of points.

Actually, I'm drawing small lines (2 points)...

The thing is that this will be used in a picture box, in an tabletPC app, to pick a signature. Do you have a better chunk of code
for that?

I think that's already a good solution. There may be better solutions
using interpolation to make everything look more smooth, but I think
that's too much effort...

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Larry Serflaten]

"Manuel Daponte" <md******@prtc. net> wrote

Draw lines instead of points.
Actually, I'm drawing small lines (2 points)...

The thing is that this will be used in a picture box, in an tabletPC app, to pick a signature. Do you have a better chunk of

code for that?

Thanks in advance for you help !!!

Here is a quick example of drawing on the form. (Drawing on the form
offers no persistance) Paste the code below in a new project, AFTER
the designer code section:

HTH
LFS
Private grx As Graphics
Private mouse As Point
Private ink As Pen = New Pen(Color.Midni ghtBlue, 3)

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load
grx = Me.CreateGraphi cs
grx.SmoothingMo de = Drawing2D.Smoot hingMode.HighQu ality
End Sub

Private Sub Form1_MouseMove (ByVal sender As Object, ByVal e As System.Windows. Forms.MouseEven tArgs) Handles MyBase.MouseMov e
Dim pos As Point = New Point(e.X, e.Y)
If e.Button = MouseButtons.Le ft Then
grx.DrawLine(in k, mouse, pos)
mouse = pos
End If
End Sub

Private Sub Form1_MouseDown (ByVal sender As Object, ByVal e As System.Windows. Forms.MouseEven tArgs) Handles MyBase.MouseDow n
mouse = New Point(e.X, e.Y)
End Sub

[Manuel Daponte]

It's perfect !!! Thanks !!!

--
Manuel A. Daponte Santiago
--------------------------
DBA Municipio de Guaynabo

"Larry Serflaten" <se*******@usin ternet.com> wrote in message news:Oq******** ********@tk2msf tngp13.phx.gbl. ..

"Manuel Daponte" <md******@prtc. net> wrote

Draw lines instead of points.
Actually, I'm drawing small lines (2 points)...

The thing is that this will be used in a picture box, in an tabletPC app, to pick a signature. Do you have a better chunk of

code for that?

Thanks in advance for you help !!!

Here is a quick example of drawing on the form. (Drawing on the form
offers no persistance) Paste the code below in a new project, AFTER
the designer code section:

HTH
LFS
Private grx As Graphics
Private mouse As Point
Private ink As Pen = New Pen(Color.Midni ghtBlue, 3)

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load
grx = Me.CreateGraphi cs
grx.SmoothingMo de = Drawing2D.Smoot hingMode.HighQu ality
End Sub

Private Sub Form1_MouseMove (ByVal sender As Object, ByVal e As System.Windows. Forms.MouseEven tArgs) Handles MyBase.MouseMov e
Dim pos As Point = New Point(e.X, e.Y)
If e.Button = MouseButtons.Le ft Then
grx.DrawLine(in k, mouse, pos)
mouse = pos
End If
End Sub

Private Sub Form1_MouseDown (ByVal sender As Object, ByVal e As System.Windows. Forms.MouseEven tArgs) Handles MyBase.MouseDow n
mouse = New Point(e.X, e.Y)
End Sub