dll파일 적용방법

비주얼 베이직으로 dll 작성방법은 아래 글을 참고 하시길......

 

Private 파일알리아스 시킬 명  as new  파일명 . 네임클래스명  Private clsDll As New clsTest.clsListTest

 비주얼 베이직에서 작성한 dll 파일을 윈폼에 정의 방법이다.

 

 [ 소스 ]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         Dim NoValue As Integer         NoValue = Val(TextBox1.Text)                 If TF = True Then             clsDll.Add(Val(NoValue))             TextBox1.Text = ""             TextBox1.Focus()         Else             Exit Sub         End If     End Sub           Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click         Dim Total As Integer         Dim Aver As Double         Total = clsDll.Total()    -------------------> 합계         Aver = clsDll.Average() ------------------> 평균         TextBox2.Text = "합계 : " & Total & " , " & "평균 : " & Aver         TextBoxClear(sender, e)     End Sub       Private Sub TextBoxClear(ByVal aender, ByVal e)         clsDll.Clear()  '지정한 리스트를 값을을 지움.     End Sub       Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Application.Exit()         End     End Sub       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Me.Text = "DLL사용 예제"     End Sub

 참고 블러그  : kuisin.tistory.com/128 ~ 129 글을 참고 하시길.

 

[실행 화면 ] 

 

dll_TestExam.zip

 

dll_TestExam.zip

0.01MB