.NET Tutorials, Forums, Interview Questions And Answers
Welcome :Guest
 
Sign In
Register
 
Win Surprise Gifts!!!
Congratulations!!!


Top 5 Contributors of the Month
david stephan

Home >> Code Snippets >> Visual Studio >> Post New Resource Bookmark and Share   

 Subscribe to Code Snippets

Form act as Paint

Posted By:Abraham       Posted Date: August 29, 2010    Points: 10    Category: Visual Studio    URL: http://www.dotnetspark.com  

Form act as paint
 

You draw in this Form
Public Class GraphForm
    Dim shouldpaint As Boolean

    Private Sub GraphForm_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        shouldpaint = True
    End Sub


    Private Sub GraphForm_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If shouldpaint Then
            Dim graphic As Graphics = CreateGraphics()
            graphic.FillEllipse(New SolidBrush(Color.Blue), e.X, e.Y, 10, 5)
        End If
    End Sub

    Private Sub GraphForm_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        shouldpaint = False
    End Sub
End Class

     

Further Readings:

Responses

No response found. Be the first to respond this post

Post Comment

You must Sign In To post reply
Find More code samples in C#, ASP.Net, Vb.Net and more Here

Hall of Fame    Twitter   Terms of Service    Privacy Policy    Contact Us    Archives   Tell A Friend