일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | |||||
3 | 4 | 5 | 6 | 7 | 8 | 9 |
10 | 11 | 12 | 13 | 14 | 15 | 16 |
17 | 18 | 19 | 20 | 21 | 22 | 23 |
24 | 25 | 26 | 27 | 28 | 29 | 30 |
- Firebird
- Delphi
- 입문
- SDK
- 설치
- 초보
- 인스톨
- Visual Studio 2005
- 델파이
- MySQL
- Visual Basic
- c#
- 예제
- VB.NET
- 문자열
- dll
- vb
- 소니
- SQL
- PostgreSQL
- winsock
- 파라미터
- WIN32 SDK
- 시리얼 통신
- 기초
- MFC
- xml
- 데이터베이스
- 셋업
- 파이어버드
- Today
- Total
프로그래밍 노트
VB.NET로 만든 클래스 라이브러리 VB.NET에서 사용하기 본문
◆ 클래스 라이브러리 VB.NET에서 사용하기
새 프로젝트를 만들어서 Visual Basic에서 Windows 응용 프로그램을 선택하여
새로운 프로젝트를 만든다.
메뉴의 프로젝트에서 참조 추가를 선택한다.
참조 추가의 화면에서 참조 탭을 선택한다.
만들어둔 클래스 라이브러리를 찾아선 선택하고 OK를 누른다.
이렇게 하면 클래스 라이브러리를 참조할 수 있다.
참조한 클래스 라이브러리를 선언한다.
아래 소스와 같이 클래스 라이브러리의 메서드와 프로퍼티를 사용한다.
Public Class frmMain
' 클래스 라이브러리 선언
' [클래스 라이브러리명].[클래스 라이브러리에 선언한 클래스명]
Private Score As New clTest.clsListTest
Private Sub btnAdd_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnAdd.Click
' 리스트 추가
Score.Add(Val(txtList.Text))
txtList.Text = ""
End Sub
Private Sub btnTotal_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnTotal.Click
' 추가된 리스트 합계
lblTotal.Text = Score.Total
End Sub
Private Sub btnAvg_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnAvg.Click
' 추가된 리스트 평균
lblAvg.Text = Score.Average
End Sub
Private Sub btnCls_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnCls.Click
lblTotal.Text = ""
lblAvg.Text = ""
' 추가된 리스트 초기화
Score.Clear()
End Sub
Private Sub btnEnd_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnEnd.Click
End
End Sub
End Class