[ VB 2008 ] DrawLine 예제

Imports System.Windows.Forms
Imports System.Drawing.Graphics

Public Class Form3

   ' 프로그램명 : 사각형 그리기
    ' 제작일 : 2010. 01. 08
    ' 제작자 : 객과 함께.

    Dim RcDraw As Rectangle
    Dim Rc As New Rectangle

    Private Sub Form3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        RcDraw.X = e.X
        RcDraw.Y = e.Y
    End Sub

    Private Sub Form3_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp

        Rc.X = e.X
        Rc.Y = e.Y
        If Rc.X = 0 And Rc.Y = 0 Then Exit Sub
        Form3Paint()
    End Sub

    Private Sub Form3Paint()
        Dim LinePen As New Pen(Color.Red, 1)
        Dim G As Graphics = Me.CreateGraphics()

        G.DrawLine(LinePen, RcDraw.X, RcDraw.Y, Rc.X, Rc.Y)
    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized
        Me.Text = " DrawLine 예제 "
    End Sub
End Class

 

[ 실행 화면 ]

 

 

짜고 보니 허접 하네...쩝 .....