|
 , Hit : 558 |
|
|
||||
|
|||||
|
|
|
- File #1 : draw.JPG(), Download : 51 |
아아 비베가 돌아 왔습니다.그동안 C++ 이 그리기 까지 진도가 나갔군요 ㅡㅜ 그럼 모든걸 건너뛰고 바로 그리기로 갑니다... 쿨럭.. 아시다시피.. 기능을 약간더 + 하고 코딩은 짧게.. 이미지 보시면 제 예술세계가 느껴지시나요 ㅡㅡ; ..서.. 설마.. 느낀신다면 대략 남감입니다. 에뮬에서 그린거라서.. 일단 프로젝트를 하나 엽니다. 오늘은 PictureBox 를 쓸 예정입니다. 이건 기본으로 떠 있는 컴퍼넌트에 없습니다. Project > Component > Controls 가 있습니다. 여기서 PictureBox 를 체크해주면 사용할 수 있게 컴퍼넌트가 좌측에 나타납니다. 오늘의 재료 컴퍼넌트는 다음과 같습니다.. PoctureBox Label TextBox HScrollBar CommandButton * 5 화면에 원하시는 위치에 배치해 줍니다. 일단 버튼에 색상을 주어야 하는데 버튼의 BackColor 을 바꿔줘도 회색으로 변하질 않습니다.. 대체 어떻게 되먹은 건지.. 중간쯤에 Style 에서 vbButtonStandar -> vbButtonGraphical 로 바꿔주면 색상이 먹습니다. 그럼 코딩 들어갑니다. 먼저 전역변수로 쓰는건 색상만 있습니다. Option Explicit Dim My_Color My_Color = &H0& -> 이놈이 껌정입니다. 원래는 &H00000000& 인데. 색상표기시 비베가 알아서 줄여줍니다. 이렇게 이해 하시면 됩니다. 맨 앞과 뒤정보를 표시하고 중간이 0 이면 생략 0 이 아니면 표시 0 이 아닌곳까지는 0 도 표시 됩니다. 그러니가 중간에 0 이면 생략인거죠.. Private Sub Command1_Click() My_Color = &H0& End Sub 각각 버튼에도 이런식으로 코딩해 줍니다. 색상은 버튼 프로퍼티에서 복사해 쓰시면 됩니다. 마지막 흰색 버튼은.. 흰색이 아니고 클리어 버튼 입니다. Private Sub Command5_Click() PictureBox1.Cls End Sub 이번엔 펜크기 조절을 해보겠습니다. 스크롤 바의 min = 1 Max = 10 을 주었습니다. 더 크게 하면 펜이 더 커지겠죠 Private Sub HScroll1_Change() PictureBox1.DrawWidth = HScroll1.Value -> 펜크기조절 Text1.Text = HScroll1.Value -> 텍스트 박스에 펜 사이즈 표시 End Sub 자 이제 핵심부분인 그리는 부분입니다. PictureBox 의 MouseMove 부분에다 코딩해 줍니다 Private Sub PictureBox1_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal x As Double, ByVal y As Double) PictureBox1.DrawPoint x, y, My_Color End Sub 쿨럭.. 너무 썰렁하죠 ㅡㅡ; 비베가 좀 그렇습니다.. 다른거 다 빼고 PictureBox 놓고 마지막 코딩만 해주어도 검정색으로 그리는것은 가능합니다. |
|
||||||||
|
||
|
||
| ||
|
||
|
||
|
||
| ||
|
||
|
||
|
||
| ||
|
|
|||||
|
|
