|
 , Hit : 508 |
|
|
||||
|
|||||
|
|
|
- File #1 : vb01.JPG(), Download : 17 - File #2 : vb02.JPG(), Download : 21 |
자 앞에 C++ 강좌가 텍스트 암데나 놓기 였습니다.. 우리도 비슷한걸 해보겠습니다..(쿨럭.. 따라쟁이냐..) 이번에는 무려 컨트롤을 4개나 써보겠습니다.. 준비물 : 빈프로젝트, Form, TextBox, CommandButton, VScrollBar, HScrollBar 일단 화면 처럼 대충 던져놓습니다. 그런 다음 TextBox 를 움직여 왼쪽 맨위에 놓고 Left, Top 값을 확인합니다. 다음 오른쪽 맨아래로 움직여서 Left, Top 값을 확인합니다. VScrollBar 의 min 값과 Max 값을 각각 확인한 Top 값을 입력해 줍니다. 마찬가지로 HScrollBar 의 min 값과 Max 값을 각각 확인한 Left 값을 입력해 줍니다. 그런다음 CommandButton 에 코딩을 해줍니다. CommandButton 을 더블 클릭하시거나 코드입력창에서 Command1 - Click 을 눌러줍니다. Private Sub Command1_Click() Text1.Text = VScroll1.Value & Chr(44) & HScroll1.Value Text1.Left = HScroll1.Value Text1.Top = VScroll1.Value End Sub 처음에는 저번에 한겁니다. TextBox 에 값넣기 두번째는 세번째 줄은 쿨럭.. 뭔지 아시겠죠? 실행해 버튼을 눌러 보시면 스크롤바를 옮겨준 위치로 텍스트 박스가 옮겨 다닙니다. 이걸로 암데나 텍스트 박스 놓기 완성... 쿨럭... 썰렁하시죠? 역시 PDA 는 찍어주는데로 움직이는게 최고입니다. 그럼 스타일러스로 찍으면 그 위치로 텍스트 박스가 가도록 코딩을 해보겠습니다. 코드창에서 Form - MouseDown 로 작성합니다. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Left = X Text1.Top = Y End Sub 끝 입니다. 쿨럭.. 간단하죠? 실행하시면 스타일러스로 찍는 위치로 텍스트 박스가 이동합니다. AddOn - 올린거 상세설명.. 은 요청이 있으면 올리죠... 쿨럭.. 추천: 추천: |
|
||||||||
|
||
|
||
| ||
|
|
|||||
|
|
