Создание библиотеки .dll

Сайт Алексея Муртазина (Star Cat) E-mail: starcat-rus@yandex.ru

Создание библиотеки .dll Давайте напишем библиотеку для вычисления площади круга и его окружности.
Создайте новый проект ActiveX DLL и добавьте этот код в класс.

Const PI As Double = 3.14

'вычисление площади круга
Public Function Area(ByVal Radius As Double) As Double
    Area = PI * Radius ^ 2
End Function

'вычисление окружности круга
Public Function LengthCircle(ByVal Radius As Double) As Double
    LengthCircle = 2 * PI * Radius
End Function

   Теперь нажмите меню Project \ Properties. В строку Project Name введите имя библиотеки CalcCircle, а в строку Project Description её описание Вычисление площади и окружности круга. Откомпилируйте проект в папку C:\Windows\System под именем Circle.dll.
   Библиотека готова! Нам осталось научиться её использовать.
   Создайте новый стандартный проект. Нажмите в меню Project \ References..., кнопкой Browse... найдите файл Circle.dll завершите операцию кнопкой OK. Вставьте код:

Private Sub Form_Load()
    Dim R As String  'Радиус круга
    R = 5
    Dim X As CalcCircle.t X = New CalcCircle.ption = "Площадь круга " & X.Area(R)
    Caption = Caption & ", Окружность круга " & X.LengthCircle(R)
    Set X = Nothing
    WindowState = vbMaximized
End Sub

   Конечно же это самый простой пример и на первый взгляд не имеет смысла. В основном библиотеки используют в VBA т.е. расширение возможностей MS Office.
   На странице VBA Word вы узнаете об этом поподробнее.
   25 апреля 2004г.

Инфо

Сайт создан: 20 июня 2015 г.

Главная страница