VB를 이용한 그리기 프로그램 작성

임의의 곡선을 그리는 간단한 코드를 제공합니다. 다른 기능도 비슷하니, 한 가지 예를 통해 추론해보시길 바랍니다.

양식에 Picture?box를 추가한 후 다음 명령을 입력합니다: Dim?oldx?As?Single

Dim?oldy?As?Single Private?Sub?Picture1_MouseMove (버튼 ?As?정수,?Shift?As?정수,?X?As?Single,?Y?As?Single)

If?Button?=?1?Then?'왼쪽 마우스를 버튼을 눌렀을 때 발생합니다.

Picture1.Line?(oldx,?oldy)-(X,?Y)

oldx?=?X

oldy? =?Y

End?If

End?Sub

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

oldx?=?X

oldy?=?Y

End?Sub