나를 사랑하는 방법

Line함수를 이용하여 아래와 그림판과 같이 선그리기를 해보겠습니다.

프로젝트를 한개 열고 아래 그림과 같이 컨트롤을 배치합니다.

그림을 그릴 PictureBox 1개, 그린 그림을 저장할 수 있게 CommandBox 1개, 저장경로를 표시할 TextBox 1개

폼에 다음과 같이 입력합니다.

Private Sub Form_Load()

  Command1.Caption = "Save"

  Text1.Text = "c:\그림.bmp"

  Picture1.AutoRedraw = True

  Picture1.ForeColor = vbBlack

  Picture1.BackColor = vbWhite

End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

  If Button = vbLeftButton Then

    Picture1.CurrentX = X: Picture1.CurrentY = Y

  End If

End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

  If Button = vbLeftButton Then Picture1.Line -(X, Y)

End Sub

Private Sub Command1_Click()

  SavePicture Picture1.Image, Text1.Text

End Sub

작성된 내용이 너무 하네요.. 죄송합니다.

Tip.

MouseMove 이벤트에 마우스 왼쪽 버튼을 눌렀을때 라인을 그리는 Picture1.Line -(X, Y)을

Picture1.Line -(X, Y), , B 또는 Picture1.Line -(X, Y), , BF 로 바꾸어 보면 더욱 재밌는 모양이 만들어집니다.

MSDN을 참고하여 각 인수의 설명을 참고하시기 바랍니다.