|
 , Hit : 442 |
|
|
||||
|
|||||
|
|
|
- File #1 : rect.JPG(), Download : 51 |
자자.. 다음 시간입니다. 쿨럭.. 화면 사이즈.. 구하는 프로그램을 올리셨는데.. 강화된 기능을 구현하는 프로그램입니다..(웬지 경쟁하는거 같죠 쿨럭.. 달려요 달려!) 프로그램은 아주 간단합니다.. 일단 새 프로젝트를 만들어 주시고 폼에다가 3가지 컨트롤을 얻져줍니다. Shape , Label, TextBox .. 여기까지는 쉽게 가능하시죠 ^^? (안되면 대략 낭패.. 쿨럭..) Label 에는 원하시는 내용 적으시면 됩니다.. 저는 Retangle Size is .. TextBox 의 텍스트는 비워주시면 됩니다. Shape1 의 Visible 은 False 해주시구요. 프로그램 실행시 첨에 안보이게 해주는겁니다. 프로그램 기능을 간단히 생각해보면 화면을 찍고 이동한뒤 떼면 사각형이 그려지고 그 사각형 사이즈가 TextBox 에 넘어 가는 겁니다.. 프로그램에서 이벤트는 두가지가 쓰입니다. MouseDown, MouseUp 이제 부터 좀더 어려운 코딩으로 들어갑니다.!! 코드입력창에서 위에 보시면 선택하는 콤보박스가 있습니다. 거기 보시면 General, Form, Label1, Text1 이라고 나옵니다. 먼저 General 은 전체적인 변수를 선언해주는 부분입니다. 여기다가 변수를 선언해 줍니다. 기본적으로 오른쪽은 Declarations 로 되어 있습니다 Option Explicit 밑에다가 -> Dim Xp1, Yp1, Xp2, Yp2, MyStr 적어줍니다. 변수를 5개 선언하였습니다. 작은 프로그램이라서 통채로 굴립니다.. 쿨럭.. 그럼 MouseDown 이벤트 코딩을 해보겠습니다. 코딩창에서 Form 을 선택하시고 오른쪽에 MouseDown 을 선택하시면 자동으로 기본코딩이 생기고 입력하는 부분이 생깁니다. 여기다가 화면을 찍었을때 Shape 숨기기와 좌표를 받는 코딩을 넣습니다. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape1.Visible = False -> Shape 숨기기 Xp1 = X -> X 좌표 받기 Yp1 = Y -> Y 좌표 받기 End Sub 그리고 MouseUp 이벤트 코딩을 합니다. 이건 좀 많습니다.. (많아 봤자..) Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Xp2 = X -> 역시 X, Y 좌표를 받고 Yp2 = Y -> Case 문은 화면을 찍고 떼는 포인트가 처음보다 값이 줄어들면 오류가 생기는것을 방지할려는 목적입니다. Select Case (Xp1 < Xp2) Case True: Shape1.Left = Xp1 Shape1.Width = Xp2 - Xp1 Case False: Shape1.Left = Xp2 Shape1.Width = Xp1 - Xp2 End Select 무슨 내용인지 대강 아시겠죠? 값이 작은걸 기준으로 왼쪽 위치, 넓이값으로 넣습니다. Select Case (Yp1 < Yp2) Case True: Shape1.Top = Yp1 Shape1.Height = Yp2 - Yp1 Case False: Shape1.Top = Yp2 Shape1.Height = Yp1 - Yp2 End Select 이것도 마찬가지 값이 작은걸 기준으로 위쪽 위치, 높이 값을 만들어 넣습니다. Shape1.Visible = True -> Shape 를 화면에 표시하고. MyStr = Shape1.Width / 15 & Chr(44) & Shape1.Height / 15 -> 마우스 포인터 값과 픽셀값이 틀려서 약간의 보정작업을 한겁니다. Text1.Text = MyStr -> 텍스트 박스에 표시 End Sub 이렇게 만든 다음 실행을 시키시면 하얀 화면이 뜨고 마우스나 스타일러스로 화면을 찍어 보시면 위의 화면처럼 됩니다. 관련 스킬 상세는 2-1 에서 !! 쿨럭.. 비베 보시는 분들 우리의 모토는 C++ 이 하는건 VB 도 한다입니다.. 쿨럭.. |
|
||||||||
|
|||||
|
|
