Давайте напишем библиотеку для вычисления площади круга и его окружности.
Создайте новый проект 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г.
Заказ программ!
Вы можете заказать у меня написание необходимой вам программы. Чем популярнее будет она, тем меньше стоит работа.
