chapter 04 Control q Visual Basic Control Label

chapter 04. 컨트롤(Control)

q 학습목표 Visual Basic • Control 이란? • Label • Text Box • Label & Text Box 예제 • Label & Text Box 프로젝트 • Check Box • Option Button • Frame • Check Box & Option Button & Frame 예제 • Check Box & Option Button & Frame 프로젝트 -3 - 동국대학교 전산원 부전공 연수

• 포커스 자동 변경 예제(코드) Visual Basic Option Explicit Private Sub text 1_Key. Press(Key. Ascii As Integer) '엔터키를 치면 다음 입력항목으로 포커스를 이동시킵니다. If Key. Ascii = Asc(vb. Cr) Then text 2. Set. Focus End Sub Private Sub text 2_Key. Press(Key. Ascii As Integer) '엔터키를 치면 다음 입력항목으로 포커스를 이동시킵니다. If Key. Ascii = Asc(vb. Cr) Then command 1. Set. Focus End Sub Private Sub command 1_Click() '입력된 값 출력 label 3. Caption = "학생번호: " + text 1. Text _ + " , 체중 : " + text 2 End Sub - 19 - 동국대학교 전산원 부전공 연수

q 포커스 이동 예제 코드 Visual Basic Option Explicit Private Sub cmd. Input_Click() Dim s. Result As String '입력이 끝난 후 출력할 문장 생성 s. Result = "수험번호: " + txt. Num. Text + _ ", 필기 시험 점수: " + txt. Exam. Text + ", 면접 시험 점수: " + txt. Interview. Text lbl. Result. Caption = s. Result '입력항목 clear txt. Num. Text = "" txt. Exam. Text = "" txt. Interview. Text = "" '포커스를 수험번호로 이동 txt. Num. Set. Focus End Sub - 21 - 동국대학교 전산원 부전공 연수

q 포커스를 받았을때 블록으로 선택하는 예제(코드 1) Visual Basic Option Explicit Private Sub txt. Item_Got. Focus() '포커스를 받았을 때 현재 입력한 값을 블록으로 선택 txt. Item. Sel. Start = 0 txt. Item. Sel. Length = Len(txt. Item. Text) End Sub Private Sub txt. Number_Got. Focus() '포커스를 받았을 때 현재 입력한 값을 블록으로 선택 txt. Number. Sel. Start = 0 txt. Number. Sel. Length = Len(txt. Number. Text) End Sub - 27 - 동국대학교 전산원 부전공 연수

q 포커스를 받았을때 블록으로 선택하는 예제(코드 2) Visual Basic Private Sub txt. Price_Got. Focus() '포커스를 받았을 때 현재 입력한 값을 블록으로 선택 txt. Price. Sel. Start = 0 txt. Price. Sel. Length = Len(txt. Price. Text) End Sub Private Sub cmd. Input_Click() '입력한 값 출력 lbl. Result. Caption = "항목: " + txt. Item. Text + _ " , 수량: " + txt. Number. Text + " , 단가: " + txt. Price. Text End Sub - 28 - 동국대학교 전산원 부전공 연수

q Label & Text Box 예제 Visual Basic ■ Label & Text Box 예제(1) • Form Txt. Num cmd. Input Txt. Weight cmd. Cancel Txt. Extension cmd. Exit lbl. Result - 29 - 동국대학교 전산원 부전공 연수

q Label & Text Box 예제 Visual Basic ■ Label & Text Box 예제(2) - 30 - 동국대학교 전산원 부전공 연수

q Option Button Visual Basic ■ Option Button 예제(2) • 폼 설계 - 41 - 동국대학교 전산원 부전공 연수

q Option Button Visual Basic ■ Option Button 예제(2)코드 - 42 - 동국대학교 전산원 부전공 연수

q Option Button Visual Basic ■ Option Button 예제(2)결과 - 43 - 동국대학교 전산원 부전공 연수

q Check Box & Option Button 예제 Visual Basic ■ Check Box & Option Button 예제 (1) • Form – Name 지정: frm. Check. Option – Caption 지정: Check. Box & Option Button 1. 더블 클릭 (frm. Label. Text. Box 입력) 2. 더블 클릭 (Label & Text. Box 입력) - 46 - 동국대학교 전산원 부전공 연수

q Check Box & Option Button 예제 Visual Basic ■ Check Box & Option Button 예제 (2) 3. Control 배치 Frame 1 Frame 2 Frame 3 Check. Box Check 1 Check 2 Check 3 Option Button Option 1 Option 2 Option 3 Command Button Command 1 - 47 - 동국대학교 전산원 부전공 연수

q Check Box & Option Button 예제 Visual Basic ■ Check Box & Option Button 예제 (3) Control 속 속성지정 성 Name Control Frame Caption Frame 1 미리보기 Frame 2 글꼴 유형 Frame 3 글자색 Text. Box Control 속 성 Text 1 Name Caption txt. Font 가나다ABC 123 - 48 - Board. Style 1 -단일고정 Back. Color 흰색 동국대학교 전산원 부전공 연수

q Check Box & Option Button 예제 Visual Basic ■ Check Box & Option Button 예제 (4) Control 속 성 Check. Box Name Caption Check 1 chk. Bold 굵게(&B) Check 2 chk. Italic 기울임(&I) Check 3 chk. Underline 밑줄(&U) 속 성 Name Caption Value Option 1 opt. Black 검정 True Option 2 opt. Red 빨강 False Option 3 opt. Blue 파랑 False Control - 49 - 동국대학교 전산원 부전공 연수

q Check Box & Option Button 예제 Visual Basic ■ Check Box & Option Button 예제 (5) – Command Control 속 성 Command 1 Name Caption cmd. Exit 종료(&X) - 50 - 동국대학교 전산원 부전공 연수

q Check Box & Option Button 예제 Visual Basic ■ Check Box & Option Button 예제 (6) • Control 배치 및 속성 지정 완료 화면 - 51 - 동국대학교 전산원 부전공 연수

q 교육목표 Visual Basic • List. Box & Combo. Box 예제 • List. Box & Combo. Box 프로젝트 • Scroll. Bar & Progress Bar 예제 • Scroll. Bar & Progress Bar 프로젝트 - 57 - 동국대학교 전산원 부전공 연수

q Combo Box Visual Basic ■ Combo Box (2)코드-1 - 66 - 동국대학교 전산원 부전공 연수

q Combo Box Visual Basic ■ Combo Box (2)코드-2 - 67 - 동국대학교 전산원 부전공 연수

q Combo Box Visual Basic ■ Combo Box (2)실습 - 68 - 동국대학교 전산원 부전공 연수

q Combo Box Visual Basic ■ Combo Box (1)결과 - 69 - 동국대학교 전산원 부전공 연수

q List Box & Combo Box 예제 Visual Basic ■ List Box & Combo Box 예제(1) • Form – Name 지정: frm. List. Combo – Caption 지정: List. Box & Combo. Box 1. 더블 클릭 (frm. List. Combo입력) 2. 더블 클릭 (List. Box & Combo. Box 입력) - 70 - 동국대학교 전산원 부전공 연수

q List Box & Combo Box 예제 Visual Basic ■ List Box & Combo Box 예제(2) 3. Control 배치 Label Text. Box Frame Combo. Box List. Box Command. Button - 71 - 동국대학교 전산원 부전공 연수

q List Box & Combo Box 예제 Visual Basic ■ List Box & Combo Box 예제(3) 속 속성지정 성 Control Name Control Label Caption Label 1 학과 Label 2 학번 Label 3 이름 Label 4 수강 가능 과목 Label 5 수강 신청 과목 Control 속 성 Frame 1 Name Caption Frame 1 수강 과목 - 72 - 동국대학교 전산원 부전공 연수

q List Box & Combo Box 예제 Visual Basic ■ List Box & Combo Box 예제(4) – Combo. Box Control 속 성 Combo 1 Name cbo. Department Style List 전자계산과 소프트웨 0: 늘어진 콤보 어개발과 멀티미디어과 – Text. Box Control 속 성 Name Text Max. Length Text 1 txt. ID 7 Text 2 txt. Name 10 - 73 - 동국대학교 전산원 부전공 연수

q List Box & Combo Box 예제 Visual Basic ■ List Box & Combo Box 예제(5) Control 속 성 List. Box Name Style Multi. Select Sorted List 1 lst. Select 0: 표준 2: 확장형 True List 2 lst. Selected 0: 표준 2: 확장형 False – Command. Button Control 속 성 Name Caption Command 1 cmd. Select > Command 2 cmd. Select. All >> Command 3 cmd. Deselect < Command 4 cmd. Deselect. All << Command 5 cmd. Exit 종료(&X) - 74 - 동국대학교 전산원 부전공 연수

q List Box & Combo Box 예제 Visual Basic ■ List Box & Combo Box 예제 • 실행 결과 – 수강과목 • JAVA 14. 클릭 • Visual Basic • JAVA, Visual Basic 선택 - 76 - 동국대학교 전산원 부전공 연수

q Scroll Bar & Slider 예제 Visual Basic ■ Scroll Bar & Slider 예제(1) • Form – Name 지정: frm. Scroll. Slider – Caption 지정: Scroll. Bar & Slider 1. 더블 클릭 (frm. Scroll. Slider입력) 2. 더블 클릭 (Scroll Bar & Slider 입력) - 81 - 동국대학교 전산원 부전공 연수

q Scroll Bar & Slider 예제 Visual Basic ■ Scroll Bar & Slider 예제(2) 3. Control 배치 Label 수평 Scroll Bar slider Command Button - 82 - 동국대학교 전산원 부전공 연수

q Scroll Bar & Slider 예제 Visual Basic ■ Scroll Bar & Slider 예제(3) • Control 속성지정 – Label Control 속 성 Label 1 Name Caption lbl. Value Alignment 2 -가운데 맞춤 0% Border Style 1 -단일고정 – 수평 Scroll Bar Control 속 성 HScroll 1 Name hsb. Value Min 0 Max Large. Change Small. Change 100 - 83 - 10 1 동국대학교 전산원 부전공 연수

q Scroll Bar & Slider 예제 Visual Basic ■ Scroll Bar & Slider 예제(4) – Slider Control 속 성 Slider 1 Name sld. Value Min 0 Max Large. Change Small. Change 10 2 1 – Command 속 성 Name Caption Command 1 cms. Exit 종 료(&X) Control - 84 - 동국대학교 전산원 부전공 연수