[소프트] 그림판

소개글

내가제작한 그림판... ^^
윈도 그림판과 흡사..
십자가 그리기 추가..

컴파일 실행환경

총 4개파일

MSSCCPRJ.SCC
picture.frm
picture.vbp
picture.vbw

본문내용

'=========================================== 마 우 스 무 브 이 벤 트 ============================================'

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

'----------선 그리기-----------'
If ((draw_status = 1) And (Button = 1)) Then

Picture1.DrawMode = 2
Picture1.DrawStyle = 0
Picture1.Line (x_star, y_star)-(X_pos, Y_pos)
Picture1.Line (x_star, y_star)-(X, Y)
X_pos = X
Y_pos = Y

'---------사각그리기----------'
ElseIf ((draw_status = 0) And (Button = vbLeftButton)) Then
Picture1.DrawMode = 2
Picture1.DrawStyle = 2
Picture1.Line (x_star, y_star)-(X_pos, Y_pos), , B
Picture1.Line (x_star, y_star)-(X, Y), , B
X_pos = X
Y_pos = Y
ElseIf ((draw_status = 2) And (Button = vbLeftButton)) Then
Picture1.DrawStyle = 0
Picture1.Line (X_pos, Y_pos)-(X, Y), QBColor(l_color)
X_pos = X
Y_pos = Y
ElseIf ((draw_status = 3) And (Button = 1)) Then
Picture1.DrawWidth = 10
Picture1.DrawStyle = 0
Picture1.Line (X_pos, Y_pos)-(X, Y), QBColor(15)
X_pos = X
Y_pos = Y
ElseIf ((draw_status = 4) And (Button = 1)) Then
Picture1.DrawMode = 2
Picture1.DrawStyle = 2

'--------십자가 그리기-----------'

sum1_x = (X - x_star) / 3 + x_star
sum2_x = (X - x_star) / 3
sum1_y = (Y - y_star) / 3 + y_star
sum2_y = (Y - y_star) / 3

'십자가 좌표 점 위치 계산

wid1_x = x_star
high1_y = y_star
wid2_x = sum1_x
high2_y = sum1_y
wid3_x = sum1_x + sum2_x
high3_y = sum1_y + sum2_y
wid4_x = sum1_x + sum2_x * 2
high4_y = sum1_y + sum2_y * 2


'------------------------------------ 이전 좌표 지우기 ------------------------------------'

'십자가 가로줄 그리기

Picture1.Line (cls2_x, cls1_y)-(cls3_x, cls1_y)
Picture1.Line (cls1_x, cls2_y)-(cls2_x, cls2_y)
Picture1.Line (cls3_x, cls2_y)-(cls4_x, cls2_y)
Picture1.Line (cls1_x, cls<font color=aaaaff>..</font>

압축파일 내 파일목록

내가낸 report 완성작/MSSCCPRJ.SCC
내가낸 report 완성작/picture.frm
내가낸 report 완성작/picture.vbp
내가낸 report 완성작/picture.vbw

참고 자료

없음