구)홈페이지 오탈자 보기
IT CookBook, 비주얼 베이직 프로그래밍 입문

 

페이지오탈자 내용등록일
87

((p.87) [표 3-22] 컨트롤의 속성)

현재 번호 6번에 설정: lblSelected
==>
현재 번호 6번에 설정: lstSelected

2006-10-251
91

((p.91) 7번 그림)

그림에서 폼의 캡션 이름이 6번 문제의 그림에 있는 캡션과 이름이 같다.
==>
PassWordChar 속성 -> 여러 줄 입력하기

2006-10-251
93

((p.93) 4번 그림)

주문내역에 치킨너켓이라고 적혀 있음
==>
치킨너켓 -> 치킨너겟

2006-10-251
97

((p.97) [그림 4-2] 첫번째, 두번째 그림 설명)

0-투명 1-단색
==>
0-단색 1-투명     

2006-10-251
97

((p.97) [표 4-3] 8행 3열)

상향 대각선과 하향 대각선
==>
수평선과 수직선 교차

2006-10-251
98

((p.98) [표 4-4] 설명)

[그림 4-3] 안에 내용과 [표 4-4]의 설명이 맞아야 할 것 같다.
==>
[표 4-4] 각 행의 3열 설명부분 수정합니다
2행 투명한 선(투명)
3행 실선(단색)
4행 쇄선(대시)
5행 점선(점)
6행 일점 쇄선(대시-점)
7행 이점 쇄선(대시-점-점)
8행 내부선(내부단색)

2006-10-251
101

((p.101) 소스 밑에서 셋째줄)

Private Sub cboBorder_Click()
==>
Private Sub cmdExit_Click()

2006-10-251
103

((p.103) [표 4-6] 1행 1열)

상수 이름
==>
속성 이름

2006-10-251
105

((p.105) 코드 중)

위에서 두번째 줄과 아래에서 두번째 줄 끝 "_"가 추가 되어야 함.
==>
...생략...
shpRect.Fillcolor = RGB(hsbRed.Value, hsbGreen.Value, _
                           hsbBlue.Value)
.. 생략...
shpRect.Fillcolor = RGB(hsbRed.Value, hsbGreen.Value, _
                           hsbBlue.Value)

2006-10-251
108

((p.108) [표 4-9])

번호 3에 레이블 속성 3개 추가해야함
==>
속성 3번 레이블에 다음 세 개의 속성 추가
Alignment       2-가운데 맞춤
Font            글꼴 스타일-굵게
BorderStyle     1-단일고정

2006-10-251
109

((p 109) 첫째 줄)

Min = Time_Count / 60
==>
Min = Int(Time_Count / 60)

2006-10-251
117

((p.117) 밑에서부터 2~3행)

잘못된 메소드 코드
==>
Picture1.Line (300, 300)-(3800, 800), vbRed
Picture1.Line (300, 1100)-(3800, 2000), vbBlue, BF

2006-10-251
120

((p.120) 실습하기 3번 코드 2행)

label1.caption=Drive1.List(Drive1.ListIndex)
==>
lblDrive1.caption=Drive1.List(Drive1.ListIndex)

2006-10-251
120

((p.120) [표 4-16])

번호 3의 레이블 속성에 borderstyle 추가.
==>
레이블 컨트롤에 해당 속성 추가
BorderStyle     1-단일고정

2006-10-251
121

((p.121) 넷째줄)

Drive 속성은 Dir 컨트롤에 없다. 따라서 이것은 Path 속성으로 바뀌어야 한다      
==>
Drive 속성-> Path 속성

2006-10-251
125

((p.125) [표 4-21] 전체 수정)

표 전체 수정
==>
1번에 " Caption : 드라이브 및 경로 선택 " 추가
4번에 " Caption : 파일 선택 "
7번에 " Caption : 미리보기 "
9번에 " Caption을 Name으로 수정 " "Caption: 그래픽 뷰어 " 추가
10번에 " Caption을 Name으로 수정 " "Caption: 이미지 보기 선택 " 추가
11번에 " Caption : 크기 맞추기 " 추가
12번에 " Caption : 원래 크기대로 " 추가
13번에 " Caption : 끝내기 " 추가

2006-10-251
126

((p.126) 밑에서 5째줄)

File1.Pattern = "*.wmf*.ico" -> 세미콜론 빠짐
==>
File1.Pattern = "*.wmf;*.ico"

2006-10-251
127

((p.127) 위에서 5째줄)

Path$ = Left(FilePath$, 2)
==>
FilePath$ = Left(FilePath$, 2)

2006-10-251
129

((p.129) 두번째 단락 첫째 줄)

첫째 요소에 대한 Name 속성으로
==>
첫째 요소의 Name 속성으로

2006-10-251
132

((p.132) [표 4-22] 2행, 4행)

2행 설정: 컨트롤 배열을 사용한 컨트롤 추가
4행 설정: 색상을 표시하려면 옵션 버튼을 누르시오
==>
2행 설정: Form1
4행 설정: 색상을 선택하려면 옵션 버튼을 누르시오

2006-10-251
133

((p.133) 두번째 줄)

Visible 속성이
==>
Visible 속성을     

2006-10-251
145

((p.145) 7번째줄)

MsgBox 함수의 구성요소가
==>
InputBox 함수의 구성요소가     

2006-10-251
149

((p 149) 새로운 폼 만들기 설명 세째 줄)

마우스의 왼쪽 버튼을 ~
==>
마우스의 오른쪽 버튼을 ~

2006-10-251
152

((p 152) [그림 5-10] 바로 위 설명)

마우스 왼쪽 버튼을 ~
==>
마우스 오른쪽 버튼을 ~

2006-10-251
161

((p 161)[표 5-10] Shift 인수 설명)

Shift 키와 Alt 키를 같이 누르면 Shift 값은 6이 된다.
==>
Shift 키와 Alt 키를 같이 누르면 Shift 값은 5가 된다.

2006-10-251
164

((p 164) DragOver 이벤트의 구문 형식)

Private Sub 개체 이름_DragOver( Source As Control, X As Singles, 
                                               Y As Single, State As Integer )
==>
Private Sub 개체 이름_DragOver( Source As Control, X As Singles, _
                                               Y As Single, State As Integer )

2006-10-251
165

((p 165) 소스 코드)

Private Sub 개체 이름_DragDrop( Source As Control, X As Singles,
                                               Y As Single)
==>
Private Sub 개체 이름_DragDrop( Source As Control, X As Singles, _
                                               Y As Single)

2006-10-251
189

((p.189) [표 6-7] 3행 2열)

비교 문자열 이전/이후 %를
==>
비교 문자열 이전/이후 *를

2006-10-251
190

((p.190) IS 연산자 구문 형식)

결과 = 개체명1 Like 개체명2
==>
결과 = 개체명1 IS 개체명2

2006-10-251
199

((p.199) [표 6-12] 2~4행)

Name의 설정: frmIfThen
Caption의 설정: IF~THEN 문 사용하기
==>
Name의 설정: frmSelectCase
Caption의 설정: SELECT~CASE 문 사용하기

2006-10-251
200

((p.200) 밑에서 17번째 줄 아래)

Average = Round(Aver, 2) 밑에폼에 있는 텍스트 박스에 총점과 평균을 넣어주기 위한 소스코드가 빠져있음
==>
Average = Round(Aver, 2) 밑에 다음 두줄 추가
txtTotal.Text = Str(Total)
txtAverage.Text = Str(Average)

2006-10-251
210

((p.210) Sub 함수 구문)

구문 첫째줄
[Private | Public] [ Static] Sub 함수 이름 ([매개변수])
==>
[Private | Public] [Static] Sub 함수 이름 [(매개변수)][As 데이터 형식]

2006-10-251
211

((p.211) [표 6-17] 1행)

Name 속성 설정 frmRetureValue
==>
frmReturnValue

2006-10-251
220

((p.220) 마지막 코드)

Dim ColorStr = ColorMap(a)
MsgBox ColorStr
비주얼 베이직에서는 변수를 선언하며 값을 넣을 수 없다.
따라서 위의 코드는 작동하지 않으므로 3줄로 나누어져야 한다.
==>
Dim ColorStr
ColorStr = ColorMap(a)
MsgBox ColorStr

2006-10-251