Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Крытия проекта определить, имеются ли на вашем компьютере все необходимые компоненты.

Читайте также:
  1. ECO HOLDING” Ответственный редактор. Руководитель проекта.
  2. I Пример слияния в MS WORD 2003. Изучите материал и выполните пример на компьютере.
  3. I. После закрытия дверей, двери закрываются, но вновь
  4. I.Анализ проекта
  5. II. После открытия дверей в поезде, двери вновь
  6. II.Порядок вскрытия конвертов с заявками на участие в конкурсе и рассмотрения заявок на участие в конкурсе
  7. III. После закрытия дверей, мигает ЛСД

3. Добавьте в секцию (General)(Declarations) следующую функцию:

Public Function ListReferencesO As String Dim i As Integer Dim X As String

With VBInstance

Создать заголовок секции X =..... & vbCrLf & "' Ссылки: " & vbCrLf

If.ActiveVBProject.VBReferences.Count > 0 Then ' Составить список ссылок For i = 1 To

.ActiveVBProject.References. Count

X = X &..... & vbTab & _

.ActiveVBProject.References(i).

Description & vbCrLf Next Else

Ссылок нет

X = X &..... & vbTab & "Нет."

End If End With

Возвратить список ссылок ListComponents = X End Function

4. Наконец, добавьте в секцию (General)(Declarations) следующую функцию:

Public Function LtstSummary() As String Dim X As String

' Создать комментарии X =..... & vbCrLf & _

" Название проекта: " & vbTab & vbCrLf &

" Версия: " & vbTab & vbCrLf & _

" Организация: " & vbTab & vbCrLf &

" Copyright: " & vbTab & vbCrLf &

' Товарные знаки: " & vbTab & vbCrLf &

" Описание: " & vbTab & vbCrLf

Возвратить список ListSummary = X End Function

5. Сохраните проект. Перед тем как использовать надстройку, необходимо откомпилировать ее — в процессе компиляции надстройка зарегистрируется в Visual Basic, а ее имя и сведения запуска будут включены в файл VB.INI. Он используется как диспетчером, так и панелью надстроек VB6.

1. Откомпилируйте надстройку командой File > Make CodeDocApp.dll

Прежде чем работать с надстройкой, следует убедиться в том, что панель инструментов Edit отображается на экране. Кнопки надстроек CodeDoc автоматически помещаются на панель Edit.

2. Если панель Edit не отображается, выполните команду View > Toolbars > Edit.

3. Запустите диспетчера надстроек командой Add-Ins > Add-In Manager.

4. Когда окно диспетчера появится на экране, выделите строку CodeDoc - App и установите флажок Loaded/Unloaded (рис. 16.26). Обратите внимание: введенное в конструкторе описание отображается в поле Description.

Рис. 16.26. Загрузка надстройки

5. Нажмите кнопку ОК, чтобы загрузить надстройку.

6. Когда надстройка будет загружена, в середине панели Edit появляется новая кнопка (рис. 16.27).

Рис. 16.27. Кнопка надстройки на панели Edit

7. Запустите нашу надстройку с помощью добавленной кнопки. Оставьте все флажки установленными и нажмите кнопку ОК.

Visual Basic добавляет в программу новый модуль и включает в него некоторые комментарии. Примерный вид модуля показан на рис. 16.28.

Рис. 16.28. Содержимое файла AppSpecs

Хотя вам придется заполнить пустые места соответствующей информацией, надстройка CodeDoc создала общую структуру и заметно упростила процесс документирования программы.

Если эта надстройка вам понравилась, продолжайте читать дальше. Нам предстоит создать еще две надстройки, которые вставляют аналогичные комментарии в начало текущего модуля и текущей процедуры.


Дата добавления: 2015-07-20; просмотров: 65 | Нарушение авторских прав


Читайте в этой же книге: Для чего нужно ООП? | Наследование | Полиморфизм | Создание класса | Использование класса | Работа с окном просмотра объектов | С помощью надстроек | Использование панели надстроек VB6 | Использование VB6 Application Wizard | Использование VB6 Data Form Wizard |
<== предыдущая страница | следующая страница ==>
Создание утилиты комментирования на уровне приложения| Сохраните проект.

mybiblioteka.su - 2015-2024 год. (0.006 сек.)