자료실

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

vb.net

IT HUB를 찾아주셔서 감사합니다.

Mouse [vb.net] 주어진 비율을 유지하면서 마우스로 사각형을 그립니다

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 7,140회 작성일 21-01-30 09:39

본문

   Dim mRect As Rectangle
    Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
        mRect = New Rectangle(e.X, e.Y, 00)
        Me.Invalidate()
    End Sub
 
    Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs)
        If e.Button = Windows.Forms.MouseButtons.Left Then
            mRect = New Rectangle(mRect.Left, mRect.Top, e.X - mRect.Left, e.Y - mRect.Top)
            'Replace 1.5 with the scale you want to use
            Dim hgt As Integer = Convert.ToInt32(mRect.Height / 1.5)
            Dim wdth As Integer = Convert.ToInt32(mRect.Width / 1.5)
            mRect.Size = New Size(wdth * 1.5, hgt * 1.5)
            Me.Invalidate()
        End If
    End Sub
 
    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Using pen As New Pen(Color.Red, 3)
            e.Graphics.DrawRectangle(pen, mRect)
        End Using
    End Sub

댓글목록

등록된 댓글이 없습니다.