나에게는 친한 친구가 있다.
어느 날 그 친구의 집에 전화를 했다.
친구 아버지가 전화를 받았다.
나:저 ○○이 친군데여,○○이 집에 있나요?
친구아버지:그래….
한참이 지나도 친구가 전화를 받지 않았다.
얘가 샤워를 하나?
잠자고 있나?
별의별 생각을 다 했다.
수화기 건너편에 친구가 나타나기를 기다리려니까 짜증도 나고.
한 2분이 지났나 보다.
숨막히는 정적을 깨고 들린 소리.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
“왜? 바꿔줄까?”
어느 날 그 친구의 집에 전화를 했다.
친구 아버지가 전화를 받았다.
나:저 ○○이 친군데여,○○이 집에 있나요?
친구아버지:그래….
한참이 지나도 친구가 전화를 받지 않았다.
얘가 샤워를 하나?
잠자고 있나?
별의별 생각을 다 했다.
수화기 건너편에 친구가 나타나기를 기다리려니까 짜증도 나고.
한 2분이 지났나 보다.
숨막히는 정적을 깨고 들린 소리.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
“왜? 바꿔줄까?”
ADO 커서 라이브러리
Remote Data Service(RDS) 기술의 일부인 ActiveX Data Objects(ADO) 커서 제공자는
다음 표에 나와 있는 대로 몇 가지 커서 형식을 제공합니다.
커서 형식 상수
앞으로 전용 커서 AdOpenForwardOnly
키 집합 커서 AdOpenKeyset
동적 커서 AdOpenDynamic
정적 커서 AdOpenStatic
데이터 원본과 선택된ADO 커서 라이브러리가 어떻게 다음 표의 잠금 옵션과 함께 병행
성을 관리하는지 제어할 수 있습니다.
잠금 형식 상수
독점 병행성 AdLockPessimistic
행 값을 사용한 공유 병행성 AdLockOptimistic
읽기 전용. 변경할 수 없음 AdLockReadOnly
모든 업데이트는 일괄 업데이트가 완료될 때가지 연기됨. 일괄 업데이트를 수행하려
면 키 집합 또는 정적 커서를 선택해야 함 AdLockBatchOptimistic
추가 정보 ADO 커서 옵션에 대한 자세한 내용은 MSDN Library Visual Studio 6.0의
"CursorType 속성"을 온라인 설명서에서 찾아보십시오. RDS와 그것이 어떻게 ADO를 사
용하여 커서 지원을 제공하는지에 대한 자세한 내용은 "Remote Data Service
Developer"s Guide"와 MSDN Library Visual Studio 6.0의 "원격 데이터 서비스 응용
프로그램의 이해"를 온라인 설명서에서 찾아보십시오. 복수 사용자가 동시에 사용하
는 상황을 처리하기 위한 잠금의 사용에 대한 자세한 내용은 이 장에서 커서 잠금을
사용한 병행성 관리를 참조하십시오
Remote Data Service(RDS) 기술의 일부인 ActiveX Data Objects(ADO) 커서 제공자는
다음 표에 나와 있는 대로 몇 가지 커서 형식을 제공합니다.
커서 형식 상수
앞으로 전용 커서 AdOpenForwardOnly
키 집합 커서 AdOpenKeyset
동적 커서 AdOpenDynamic
정적 커서 AdOpenStatic
데이터 원본과 선택된ADO 커서 라이브러리가 어떻게 다음 표의 잠금 옵션과 함께 병행
성을 관리하는지 제어할 수 있습니다.
잠금 형식 상수
독점 병행성 AdLockPessimistic
행 값을 사용한 공유 병행성 AdLockOptimistic
읽기 전용. 변경할 수 없음 AdLockReadOnly
모든 업데이트는 일괄 업데이트가 완료될 때가지 연기됨. 일괄 업데이트를 수행하려
면 키 집합 또는 정적 커서를 선택해야 함 AdLockBatchOptimistic
추가 정보 ADO 커서 옵션에 대한 자세한 내용은 MSDN Library Visual Studio 6.0의
"CursorType 속성"을 온라인 설명서에서 찾아보십시오. RDS와 그것이 어떻게 ADO를 사
용하여 커서 지원을 제공하는지에 대한 자세한 내용은 "Remote Data Service
Developer"s Guide"와 MSDN Library Visual Studio 6.0의 "원격 데이터 서비스 응용
프로그램의 이해"를 온라인 설명서에서 찾아보십시오. 복수 사용자가 동시에 사용하
는 상황을 처리하기 위한 잠금의 사용에 대한 자세한 내용은 이 장에서 커서 잠금을
사용한 병행성 관리를 참조하십시오
우리 회사에는
웃음 거울(smile mirror)이라는 것이 있다.
각자가 자신의 이름을 붙인 거울을 전화기 옆에 놓고
통화할 때는 그 거울을 보고 미소짓도록 했다.
이 웃음 거울 덕분에 우리 회사의 사원들은
외부인들에게 매우 좋은 인상을 준다.
웃는 얼굴은 다른 사람들을 위한
것이라기 보다 자신을 위한 것이다.
- 오모이 토루의 《35세까지 반드시 해야할 일》중에서 -
* 웃음 거울. 참 좋은 아이디어입니다.
집안에서, 직장에서 당장 실행해 보십시오.
가장 작은 투자로 가장 좋은 효과를 낼 수 있는
마법(魔法)의 거울이 될 것입니다.
웃음 거울(smile mirror)이라는 것이 있다.
각자가 자신의 이름을 붙인 거울을 전화기 옆에 놓고
통화할 때는 그 거울을 보고 미소짓도록 했다.
이 웃음 거울 덕분에 우리 회사의 사원들은
외부인들에게 매우 좋은 인상을 준다.
웃는 얼굴은 다른 사람들을 위한
것이라기 보다 자신을 위한 것이다.
- 오모이 토루의 《35세까지 반드시 해야할 일》중에서 -
* 웃음 거울. 참 좋은 아이디어입니다.
집안에서, 직장에서 당장 실행해 보십시오.
가장 작은 투자로 가장 좋은 효과를 낼 수 있는
마법(魔法)의 거울이 될 것입니다.
사랑이란
함께 걷는 것이다.
멀리 달아나지 않고
뒤에 머물러 있지 않고
편안한 마음으로 같이 걷는 것이다.
서로의 높이를 같이하고
마음의 넓이를 같이하고
시련과 고통을 이겨내며
좋아하는 것과 싫어하는 것까지
둘이 닮아가는 것이다.
- 용혜원의 《사랑하니까》중에서 -
* 인생은 길을 가는 것입니다. 그래서 인생길입니다.
그 인생길이 결코 쉽지만은 않습니다. 그래서 고생길입니다.
하지만 고생길도 사랑하는 사람과 함께 걸으면
덜 힘들고 힘이 납니다. 함께 갈 사람이 있으면
인생길은 고생길이 아니라 행복길입니다.
함께 걷는 것이다.
멀리 달아나지 않고
뒤에 머물러 있지 않고
편안한 마음으로 같이 걷는 것이다.
서로의 높이를 같이하고
마음의 넓이를 같이하고
시련과 고통을 이겨내며
좋아하는 것과 싫어하는 것까지
둘이 닮아가는 것이다.
- 용혜원의 《사랑하니까》중에서 -
* 인생은 길을 가는 것입니다. 그래서 인생길입니다.
그 인생길이 결코 쉽지만은 않습니다. 그래서 고생길입니다.
하지만 고생길도 사랑하는 사람과 함께 걸으면
덜 힘들고 힘이 납니다. 함께 갈 사람이 있으면
인생길은 고생길이 아니라 행복길입니다.
ImgScan1.ScanTo = FileOnly
ImgScan1.MultiPage = True
ImgScan1.PageOption = PromptToCreateNewFile
ImgScan1.FileType = JPG_File
strFileName = ImgAdmin1.GetUniqueName("c:\\my documents", "pic", "jpg")
ImgScan1.Image = "c:\\my documents" & "\\" & strFileName
ImgScan1.StartScan
ImgScan1.MultiPage = True
ImgScan1.PageOption = PromptToCreateNewFile
ImgScan1.FileType = JPG_File
strFileName = ImgAdmin1.GetUniqueName("c:\\my documents", "pic", "jpg")
ImgScan1.Image = "c:\\my documents" & "\\" & strFileName
ImgScan1.StartScan
invalid-file오라클과 VB 연결하는 방법입니다. 물론 이 방법 말고도 ODBC, OO4O 등 여러가지 방법이 있지만, 제가 생각하기에는 이 방법이 간단한 것 같습니다.
*******************************************************************************************************************************
1. Oracle Client를 설치하고, 연결할 Oracle을 에 대한 설정을 한다.
2. DB connect Function(여기서 XXX 부분에 Oracle Client에서 설정한 값을 입력한다.)
- DB 연결이 필요한 부분에 아래 function을 호출한다.
Private Sub ConnectDB()
Set adoOraCon = New ADODB.Connection
With adoOraCon
.ConnectionString = "Provider=MSDAORA.1;Data Source=XXX;User ID=XXX;Password=XXX;Persist Security Info=True"
.ConnectionTimeout = 60
.Open
End With
End Sub
3. 모듈에 다음 function을 입력한다.
Option Explicit
Public adoOraCon As ADODB.Connection
' Procedure : GetRecordSet
' Description : 인자로 넘어오는 쿼리를 실행하고, 결과값을 RecordSet으로 반환
' Parameter : szSql(쿼리)
'Return Value : Recordset
Public Function GetRecordSet(ByVal szSql As String) As ADODB.Recordset
Dim adoRs As ADODB.Recordset
Set adoRs = New ADODB.Recordset
adoRs.Open szSql, adoOraCon, adOpenKeyset, adLockBatchOptimistic
'Recordset 반환
Set GetRecordSet = adoRs
Set adoRs = Nothing
End Function
' Procedure : ExecuteQuery
' Description : 인자로 넘어오는 쿼리를 실행하고 성공여부를 반환
' Parameter : szSql(쿼리)
'Return Value : True/False
Public Function ExecuteQuery(szSql As String) As Boolean
On Error GoTo ErrHandler
adoOraCon.Execute szSql
ExecuteQuery = True
Exit Function
ErrHandler:
If Err.Number <> 0 Then
MsgBox Err.Source & vbCrLf & Err.Description, vbExclamation, "쿼리 수행 오류"
ExecuteQuery = False
Err.Clear
End If
End Function
4. 원하는 쿼리를 만들어 모듈의 function을 실행한다.
- 일반적으로 값을 가지고 오는 Select Query이면, GetRecordSet를 실행하고,
- insert, delete와 같은 데이터 조작 쿼리인 경우에는 ExecuteQuery를 실행한다.
예) SELECT Query
Dim strSQL As String
Dim adoRs As ADODB.Recordset
'//IMPORTANT : 조회 쿼리 생성
strSQL = "SELECT * FROM TEST_TAB ORDER BY A_COL"
Set adoRs = GetRecordSet(strSQL)
While Not adoRs.EOF
'//IMPORTANT : 가지고 온 결과를 처리하는 부분
adoRs.MoveNext
Wend
adoRs.Close
Set adoRs = Nothing
예) Execute Query
Dim strSQL As String
strSQL = "INSERT INTO TEST_TAB(a_col, b_col, c_col, d_col) VALUES ('" & strName & "', '" & strKorean & "', '" & strMath & "', '" & strEnglish & "')"
If ExecuteQuery(strSQL) = False Then
Msgbox "실패"
Else
Msgbox "성공"
End If
*******************************************************************************************************************************
1. Oracle Client를 설치하고, 연결할 Oracle을 에 대한 설정을 한다.
2. DB connect Function(여기서 XXX 부분에 Oracle Client에서 설정한 값을 입력한다.)
- DB 연결이 필요한 부분에 아래 function을 호출한다.
Private Sub ConnectDB()
Set adoOraCon = New ADODB.Connection
With adoOraCon
.ConnectionString = "Provider=MSDAORA.1;Data Source=XXX;User ID=XXX;Password=XXX;Persist Security Info=True"
.ConnectionTimeout = 60
.Open
End With
End Sub
3. 모듈에 다음 function을 입력한다.
Option Explicit
Public adoOraCon As ADODB.Connection
' Procedure : GetRecordSet
' Description : 인자로 넘어오는 쿼리를 실행하고, 결과값을 RecordSet으로 반환
' Parameter : szSql(쿼리)
'Return Value : Recordset
Public Function GetRecordSet(ByVal szSql As String) As ADODB.Recordset
Dim adoRs As ADODB.Recordset
Set adoRs = New ADODB.Recordset
adoRs.Open szSql, adoOraCon, adOpenKeyset, adLockBatchOptimistic
'Recordset 반환
Set GetRecordSet = adoRs
Set adoRs = Nothing
End Function
' Procedure : ExecuteQuery
' Description : 인자로 넘어오는 쿼리를 실행하고 성공여부를 반환
' Parameter : szSql(쿼리)
'Return Value : True/False
Public Function ExecuteQuery(szSql As String) As Boolean
On Error GoTo ErrHandler
adoOraCon.Execute szSql
ExecuteQuery = True
Exit Function
ErrHandler:
If Err.Number <> 0 Then
MsgBox Err.Source & vbCrLf & Err.Description, vbExclamation, "쿼리 수행 오류"
ExecuteQuery = False
Err.Clear
End If
End Function
4. 원하는 쿼리를 만들어 모듈의 function을 실행한다.
- 일반적으로 값을 가지고 오는 Select Query이면, GetRecordSet를 실행하고,
- insert, delete와 같은 데이터 조작 쿼리인 경우에는 ExecuteQuery를 실행한다.
예) SELECT Query
Dim strSQL As String
Dim adoRs As ADODB.Recordset
'//IMPORTANT : 조회 쿼리 생성
strSQL = "SELECT * FROM TEST_TAB ORDER BY A_COL"
Set adoRs = GetRecordSet(strSQL)
While Not adoRs.EOF
'//IMPORTANT : 가지고 온 결과를 처리하는 부분
adoRs.MoveNext
Wend
adoRs.Close
Set adoRs = Nothing
예) Execute Query
Dim strSQL As String
strSQL = "INSERT INTO TEST_TAB(a_col, b_col, c_col, d_col) VALUES ('" & strName & "', '" & strKorean & "', '" & strMath & "', '" & strEnglish & "')"
If ExecuteQuery(strSQL) = False Then
Msgbox "실패"
Else
Msgbox "성공"
End If
Picture Box에 Line이나 Print 메소드를 이용해서 그래프나, 그림, 글씨등을 그린후
그 내용을 프린트 하려면,
꼭 다른 PictureBox를 사용하지 않아도 되더라구요.
Printer.PaintPicture Picture1.Image, 0, 0, Picture1.Width, Picture1.Height
Printer.EndDoc
이거를 아래처럼 한번 해봤걸랑요
Printer.PaintPicture Picture1.Image, 0, 0, Picture1.Width * 2, Picture1.Height * 2
Printer.EndDoc
이렇게 하면 2배가 확대가 되어 나옵니다.
참 *2 부분에서 꼭 정수가 아니더라도 되더라구요
2배가 약간 커서 1.8을 곱해봤더니 이것두 역시 만족하게 나왔습니다
그 내용을 프린트 하려면,
꼭 다른 PictureBox를 사용하지 않아도 되더라구요.
Printer.PaintPicture Picture1.Image, 0, 0, Picture1.Width, Picture1.Height
Printer.EndDoc
이거를 아래처럼 한번 해봤걸랑요
Printer.PaintPicture Picture1.Image, 0, 0, Picture1.Width * 2, Picture1.Height * 2
Printer.EndDoc
이렇게 하면 2배가 확대가 되어 나옵니다.
참 *2 부분에서 꼭 정수가 아니더라도 되더라구요
2배가 약간 커서 1.8을 곱해봤더니 이것두 역시 만족하게 나왔습니다
▨ 클래스
저는 표준모듈과 클래스모듈과의 차이점은 알고 있지만 어느때 표준과 클래스모듈을 적절히 사용을 해야 하는지에 대해서는 잘 모르겠습니다.
저는 사용자정의프로시져를 주로 이용을 하고 있거든요. (경력이 짧은 관계로..)
▨ 클래스의 요소
- 클래스에서는 외부에 공개를 할꺼냐 ..... Public
아니면 공개를 하지 않을꺼냐 ........... Private
라는 두가지로 선언을 할 수 있습니다.
- Public로 선언
Public로 선인이 되었다면 외부로부터 변수를 마음껏 사용을 할 수 있습니다.
여기서 마음껏이라는 건 접근을 허용할 뿐 아니라 그 값을 변화 시킬 수 있다는 얘기입니다.
쉽게 파일의 쓰기와 읽기 권한을 준다고 보시면 됩니다.
- Private로 선언
외부에서는 절대로 접근을 할 수 없으면 클래스(오브젝트)안에서만 사용을 할 수 있습니다.
▨ 클래스의 Property(속성)
속성 프로시져에는 Property Get와 Property Let라는 두개의 프로시져가 있습니다
만약 모두 Public로 선언을 한다면 외부로부터 값을 전달 받고 또 줄 수 있다는 겁니다.
- Property Get
Property Get는 외부에 자료를 전달 해줄때 사용을 합니다.
다른 말로는 클래스에 선언된 변수를 외부에 전달해줍니다.
사용방법은
Public Property Get MyData() As Integer
End Sub
- Property Let
Property Let는 외부에 자료를 전달 받을 때 사용을 합니다.
사용방법은
Public Property Let MyData(Value As Integer)
End Sub
만약에 표준모듈을 만들어서 사용 하실 수 있는 분이라면 위의 2개의 선언문에서 보는 봐와 같이 차이점을 알 수 있을 겁니다.
Get는 외부로부터 값을 전달 해준는 것....Function과 비슷
Let는 외부로부터 값을 전달 받는 것......Sub나 Function에 인수가 전달 받는 것
표준모듈로 설명을 하자면
Function MyData(Value1 as Integer, Value2 as Integer) as Integer
End Function
이건 외부에서 특정한 값(Value1, Value2)라는 값을 전달 받아서 특정한 일을 하고 그 결과 값을 Integer형으로 전달해주는 겁니다.
이걸 클래스에서는 따로 구분을 짓는 거죠.
전달 받는 것과 (Property Let) 전달 받은 걸 가지고 결과 값을 전달 해주는 것 (Property Get)으로
※ 참고로 VB.Net에서는 하나의 함수 안에 두개의 속성이 존재합니다.
▨ 예제
다음은 간단하게 숫자를 클래스에 전달하고 클래스에서는 전달 받은 값에 100을 더해서 그 결과 값을 다시 돌려주는 예제 입니다.
- 먼저 표준EXE에서 폼(Form1)과 클래스모듈(Class1)을 추가를 합니다.
- 폼에 Command Button을 하나 추가를 하고 아래와 같이 코드창에 코딩을 하고
F8(한단계씩 코드 실행)를 눌러서 한줄씩 실행을 시켜보면 소스에 있는 번호순서대로 실행을 합니다.
*** Class1에 ***
Private MyValue As Integer
4) Public Property Let MyData(Value As Integer)
5) MyValue = Value
6) End Property
8) Public Property Get MyData() As Integer
9) MyData = MyValue + 100
10) End Property
*** Form1에 ***
1) Private Sub Command1_Click()
Dim Result As Integer
Dim C1 As Class1
2) Set C1 = New Class1
3) C1.MyData = 100
7) Result = C1.MyData
11) MsgBoxt Result
End Sub
번호 3번에서 클래스의 Property Let의 프로시져(4번)로 이동을 하는 걸 알 수 있을 겁니다.
위에서 설명을 했듯 Property Let는 외부로부터 값을 전달 받는 것을 알 수 있을 겁니다.
반대로 7번에서 클래스의 값을 Result라는 변수에 저장을 할려고 할때는
클래스의 Property Get(8번)의 프로시져를 실행하는 것을 볼 수 있을 겁니다.
위 예제로 클래스에서 사용하는 두개의 프로시져에 대해서 설명을 했습니다.
오늘은 여기까지 입니다.
다음에는 위 소스를 가지고 좀 더 자세히 분석을 해보죠.
저는 표준모듈과 클래스모듈과의 차이점은 알고 있지만 어느때 표준과 클래스모듈을 적절히 사용을 해야 하는지에 대해서는 잘 모르겠습니다.
저는 사용자정의프로시져를 주로 이용을 하고 있거든요. (경력이 짧은 관계로..)
▨ 클래스의 요소
- 클래스에서는 외부에 공개를 할꺼냐 ..... Public
아니면 공개를 하지 않을꺼냐 ........... Private
라는 두가지로 선언을 할 수 있습니다.
- Public로 선언
Public로 선인이 되었다면 외부로부터 변수를 마음껏 사용을 할 수 있습니다.
여기서 마음껏이라는 건 접근을 허용할 뿐 아니라 그 값을 변화 시킬 수 있다는 얘기입니다.
쉽게 파일의 쓰기와 읽기 권한을 준다고 보시면 됩니다.
- Private로 선언
외부에서는 절대로 접근을 할 수 없으면 클래스(오브젝트)안에서만 사용을 할 수 있습니다.
▨ 클래스의 Property(속성)
속성 프로시져에는 Property Get와 Property Let라는 두개의 프로시져가 있습니다
만약 모두 Public로 선언을 한다면 외부로부터 값을 전달 받고 또 줄 수 있다는 겁니다.
- Property Get
Property Get는 외부에 자료를 전달 해줄때 사용을 합니다.
다른 말로는 클래스에 선언된 변수를 외부에 전달해줍니다.
사용방법은
Public Property Get MyData() As Integer
End Sub
- Property Let
Property Let는 외부에 자료를 전달 받을 때 사용을 합니다.
사용방법은
Public Property Let MyData(Value As Integer)
End Sub
만약에 표준모듈을 만들어서 사용 하실 수 있는 분이라면 위의 2개의 선언문에서 보는 봐와 같이 차이점을 알 수 있을 겁니다.
Get는 외부로부터 값을 전달 해준는 것....Function과 비슷
Let는 외부로부터 값을 전달 받는 것......Sub나 Function에 인수가 전달 받는 것
표준모듈로 설명을 하자면
Function MyData(Value1 as Integer, Value2 as Integer) as Integer
End Function
이건 외부에서 특정한 값(Value1, Value2)라는 값을 전달 받아서 특정한 일을 하고 그 결과 값을 Integer형으로 전달해주는 겁니다.
이걸 클래스에서는 따로 구분을 짓는 거죠.
전달 받는 것과 (Property Let) 전달 받은 걸 가지고 결과 값을 전달 해주는 것 (Property Get)으로
※ 참고로 VB.Net에서는 하나의 함수 안에 두개의 속성이 존재합니다.
▨ 예제
다음은 간단하게 숫자를 클래스에 전달하고 클래스에서는 전달 받은 값에 100을 더해서 그 결과 값을 다시 돌려주는 예제 입니다.
- 먼저 표준EXE에서 폼(Form1)과 클래스모듈(Class1)을 추가를 합니다.
- 폼에 Command Button을 하나 추가를 하고 아래와 같이 코드창에 코딩을 하고
F8(한단계씩 코드 실행)를 눌러서 한줄씩 실행을 시켜보면 소스에 있는 번호순서대로 실행을 합니다.
*** Class1에 ***
Private MyValue As Integer
4) Public Property Let MyData(Value As Integer)
5) MyValue = Value
6) End Property
8) Public Property Get MyData() As Integer
9) MyData = MyValue + 100
10) End Property
*** Form1에 ***
1) Private Sub Command1_Click()
Dim Result As Integer
Dim C1 As Class1
2) Set C1 = New Class1
3) C1.MyData = 100
7) Result = C1.MyData
11) MsgBoxt Result
End Sub
번호 3번에서 클래스의 Property Let의 프로시져(4번)로 이동을 하는 걸 알 수 있을 겁니다.
위에서 설명을 했듯 Property Let는 외부로부터 값을 전달 받는 것을 알 수 있을 겁니다.
반대로 7번에서 클래스의 값을 Result라는 변수에 저장을 할려고 할때는
클래스의 Property Get(8번)의 프로시져를 실행하는 것을 볼 수 있을 겁니다.
위 예제로 클래스에서 사용하는 두개의 프로시져에 대해서 설명을 했습니다.
오늘은 여기까지 입니다.
다음에는 위 소스를 가지고 좀 더 자세히 분석을 해보죠.
*** Class1에 ***
'클래스에 보면 MyValue라는 변수가 선언이 된 걸 볼 수 있을 겁니다.
'이 변수는 오로직 클래스에서만 사용을 하며 외부에서는 절대로 사용할 수 없습니다.
'이유는 저번에 설명을 했듯 변수가 선언이 될때 Private로 선언을 해서 입니다.
Private MyValue As Integer
'이 프로시져는 외부에서 값을 전달 받을 때 사용을 합니다.
'Form1에서 'C1.MyData = 100'라고 100이라는 값을 클래스에 전달을
'해주는 것입니다.
Public Property Let MyData(Value As Integer)
'외부에서 전달 받은 값(100)을 클래스 안에서만 사용이 가능한 변수(MyValue)에 집어 넣습니다.
MyValue = Value
End Property
'외부로 값을 전달해주는 프로시져로써
'클래스 안에서만 사용가능한 MyValue에 100을 더해서 외부로 전달을 해줍니다.
Public Property Get MyData() As Integer
MyData = MyValue + 100
End Property
*** Form1에 ***
Private Sub Command1_Click()
Dim Result As Integer
'참조변수를 선언을 합니다.
Dim C1 As Class1
'인스턴스를 생성(New)을 합니다.
Set C1 = New Class1
'숫자 100을 인스턴스로 생성된 C1의 MyData에 전달을 한다.
'이때 클래스의 Property Let MyData를 실행을 해서
'클래스에 선언된 MyValue라는 변수에 전달을 한다
C1.MyData = 100
'클래스의 MyData라는 프로시져를 실행 후 전달 받은 값을
'Result라는 변수에 전달을 한다.
Result = C1.MyData
MsgBoxt Result
'Nothing으로 New로 생성된 C1을 메모리에 소멸시킴
'Nothing을 하지않으면 메모리등의 자원을 그대로 잠식하기 때문에
'New가 있으면 Nothing이 꼭 있어 합니다.
Set C1 = Nothing
End Sub
다음 예제는 1부터 100까지 숫자를 클래스에서 구해서 그 결과값을 전달해주는 예제 입니다.
위 예제와 틀린 점은 외부에서 특정한 값을 전달 받는 것이 없습니다.
그러므로 Public Property Let라는 프로시져는 필요하지 않습니다.
무조건 외부에 값을 절달해주는 Public Property Get프로시져만 필요한 겁니다.
이 예제도 F5 대신 F8를 눌러서 한단계씩 실행을 시켜가면서 어떤식으로 실행이 되는지 확인을 해보시길...
다음 강좌에서는 클래스의 Method(메서드)에 관해서 설명을 하겠습니다.
'클래스에 보면 MyValue라는 변수가 선언이 된 걸 볼 수 있을 겁니다.
'이 변수는 오로직 클래스에서만 사용을 하며 외부에서는 절대로 사용할 수 없습니다.
'이유는 저번에 설명을 했듯 변수가 선언이 될때 Private로 선언을 해서 입니다.
Private MyValue As Integer
'이 프로시져는 외부에서 값을 전달 받을 때 사용을 합니다.
'Form1에서 'C1.MyData = 100'라고 100이라는 값을 클래스에 전달을
'해주는 것입니다.
Public Property Let MyData(Value As Integer)
'외부에서 전달 받은 값(100)을 클래스 안에서만 사용이 가능한 변수(MyValue)에 집어 넣습니다.
MyValue = Value
End Property
'외부로 값을 전달해주는 프로시져로써
'클래스 안에서만 사용가능한 MyValue에 100을 더해서 외부로 전달을 해줍니다.
Public Property Get MyData() As Integer
MyData = MyValue + 100
End Property
*** Form1에 ***
Private Sub Command1_Click()
Dim Result As Integer
'참조변수를 선언을 합니다.
Dim C1 As Class1
'인스턴스를 생성(New)을 합니다.
Set C1 = New Class1
'숫자 100을 인스턴스로 생성된 C1의 MyData에 전달을 한다.
'이때 클래스의 Property Let MyData를 실행을 해서
'클래스에 선언된 MyValue라는 변수에 전달을 한다
C1.MyData = 100
'클래스의 MyData라는 프로시져를 실행 후 전달 받은 값을
'Result라는 변수에 전달을 한다.
Result = C1.MyData
MsgBoxt Result
'Nothing으로 New로 생성된 C1을 메모리에 소멸시킴
'Nothing을 하지않으면 메모리등의 자원을 그대로 잠식하기 때문에
'New가 있으면 Nothing이 꼭 있어 합니다.
Set C1 = Nothing
End Sub
다음 예제는 1부터 100까지 숫자를 클래스에서 구해서 그 결과값을 전달해주는 예제 입니다.
위 예제와 틀린 점은 외부에서 특정한 값을 전달 받는 것이 없습니다.
그러므로 Public Property Let라는 프로시져는 필요하지 않습니다.
무조건 외부에 값을 절달해주는 Public Property Get프로시져만 필요한 겁니다.
이 예제도 F5 대신 F8를 눌러서 한단계씩 실행을 시켜가면서 어떤식으로 실행이 되는지 확인을 해보시길...
다음 강좌에서는 클래스의 Method(메서드)에 관해서 설명을 하겠습니다.
Prev
Rss Feed