- модуль класса
- Код: Выделить всё
Imports DSALib.HelpAttribute
<Help(), ComClass(clsDSA.ClassId, clsDSA.InterfaceId, clsDSA.EventsId)> _
Public Class clsDSA
#Region "COM GUIDs"
Public Const ClassId As String = "3F0CD705-094F-4afc-903D-98E37094C959"
Public Const InterfaceId As String = "63A26FF1-226F-4f8f-A364-3840C849F439"
Public Const EventsId As String = "17B0F573-1F3D-4bb2-A5A9-881BE28FF437"
#End Region
#Region "Код класса"
Public Sub New()
MyBase.New()
End Sub
#End Region
<Help(Topic:="PREFFT"), Description("Функция составляют таблицу комплексных экспонент для использования в подпрограмме FFT")> _
Public Function PREFFT(ByVal NFFT As Integer, ByRef NEXP As Integer, Optional ByVal IFFT As Boolean = False) As Complex()
...
End Function
- класс HelpAttribute
- Код: Выделить всё
Imports System.Security.Permissions.PermissionSetAttribute
<AttributeUsage(AttributeTargets.All)> _
Public Class HelpAttribute
Inherits Attribute
Public Topic As String = Nothing
Private urlValue As String
Public Sub New(Optional ByVal urlValue As String = "D:\VB\Help\dsa.chm")
Me.urlValue = urlValue
End Sub
Public ReadOnly Property Url() As String
Get
Return urlValue
End Get
End Property
End Class
