Visual Basic

campbells wrote:

Maybe the way i think is simple

campbells wrote:

And i only have short 1 day left to finish it..unable to take 3 month to do it...

campbells wrote:

cause i know wats the line going to be

.
.
.
Dim g As Graphics = Graphics.FromImage(PictureBox1.Image)
Dim myPen As Pen = New Pen(Color.Blue, myPenWidth)
mousePath.AddLine(e.X, e.Y, e.X, e.Y)
g.DrawPath(myPen, mousePath)
myPen.Dispose()
g.Dispose()
.
.

Private mousePath As New System.Drawing.Drawing2D.GraphicsPath<br />
    Dim myPenWidth As Integer = 12<br />
<br />
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown<br />
        If e.Button = Windows.Forms.MouseButtons.Left Then<br />
            mousePath.StartFigure()<br />
        End If<br />
    End Sub<br />
<br />
    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove<br />
        If e.Button = Windows.Forms.MouseButtons.Left Then<br />
            Dim g As Graphics = Graphics.FromImage(PictureBox1.Image)<br />
            Dim myPen As Pen = New Pen(Color.Blue, myPenWidth)<br />
            PictureBox1.Image = myImage<br />
            mousePath.AddEllipse(e.X, e.Y, myPenWidth, myPenWidth)<br />
            g.DrawPath(myPen, mousePath)<br />
        End If<br />
    End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged<br />
        Dim myText As String<br />
        myText = ComboBox1.SelectedItem.ToString<br />
End Sub