дПРПМОЙФЕМШОЩЕ УЧЕДЕОЙС

рПУЛПМШЛХ УЧПКУФЧП Value ЧПЪЧТБЭБЕФ ЪОБЮЕОЙЕ ФЙРБ Variant, ПОП ПВЕУРЕЮЙЧБЕФ ДПУФХР Л МАВПНХ УЧПКУФЧХ. дМС ДПУФХРБ Л УРЙУЛБН УМЕДХЕФ ЙУРПМШЪПЧБФШ УЧПКУФЧП IndexedValue.

еУМЙ УЧПКУФЧП, РТЕДУФБЧМСЕНПЕ ПВЯЕЛФПН Property, ДПУФХРОП ДМС ЮФЕОЙС/ЪБРЙУЙ, УЧПКУФЧП Value ФБЛЦЕ ДПУФХРОП ДМС ЮФЕОЙС/ЪБРЙУЙ. еУМЙ УЧПКУФЧП ДПУФХРОП ФПМШЛП ДМС ЮФЕОЙС, РПРЩФЛБ ЪБДБФШ ДМС ОЕЗП ЪОБЮЕОЙЕ УЧПКУФЧБ Value РТЙЧПДЙФ Л ПЫЙВЛЕ. еУМЙ УЧПКУФЧП ДПРХУЛБЕФ ФПМШЛП ЪБРЙУШ, РПРЩФЛБ ЧПЪЧТБФЙФШ ЪОБЮЕОЙЕ УЧПКУФЧБ Value РТЙЧПДЙФ Л ПЫЙВЛЕ.

уЧПКУФЧП Value СЧМСЕФУС ЙУРПМШЪХЕНЩН РП ХНПМЮБОЙА УЧПКУФЧПН ПВЯЕЛФБ Property.

пВЯЕЛФ CodeModule

рТЕДУФБЧМСЕФ РТПЗТБННХ, ПРТЕДЕМЕООХА ДМС ФБЛЙИ ЛПНРПОЕОФПЧ РТПЕЛФБ ЛБЛ ЖПТНБ, ЛМБУУ ЙМЙ ДПЛХНЕОФ.

дПРПМОЙФЕМШОЩЕ УЧЕДЕОЙС

пВЯЕЛФ CodeModule ЙУРПМШЪХЕФУС ДМС ЙЪНЕОЕОЙС (ДПВБЧМЕОЙС, ХДБМЕОЙС ЙМЙ ЙЪНЕОЕОЙС) РТПЗТБННЩ, ПРТЕДЕМЕООПК ДМС ЛПНРПОЕОФБ.

лБЦДЩК ЛПНРПОЕОФ УЧСЪЩЧБЕФУС У ПДОЙН ПВЯЕЛФПН CodeModule. пДОБЛП ПВЯЕЛФ CodeModule НПЦЕФ ВЩФШ УЧСЪБО У ОЕУЛПМШЛЙНЙ ПВМБУФСНЙ РТПЗТБННЩ.

нЕФПДЩ, ПРТЕДЕМЕООЩЕ ДМС ПВЯЕЛФБ CodeModule, РПЪЧПМСАФ РПУФТПЮОП ПВТБВБФЩЧБФШ РТПЗТБННЩ Й ЧПЪЧТБЭБФШ ЙОЖПТНБГЙА П ФЕЛУФЕ РТПЗТБННЩ. оБРТЙНЕТ, НЕФПД AddFromString ЙУРПМШЪХАФ ДМС ДПВБЧМЕОЙС ФЕЛУФБ Ч НПДХМШ. нЕФПД AddFromString РПНЕЭБЕФ ФЕЛУФ ОЕРПУТЕДУФЧЕООП РЕТЕД РЕТЧПК РТПГЕДХТПК Ч НПДХМЕ ЙМЙ Ч ЛПОЕГ НПДХМС, ЕУМЙ Ч НПДХМЕ ОЕФ РТПГЕДХТ.

уЧПКУФЧП Parent РПЪЧПМСЕФ ЧПЪЧТБФЙФШ ПВЯЕЛФ VBComponent, УЧСЪБООЩК У РТПЗТБННОЩН НПДХМЕН.

пВЯЕЛФ CommandBarEvents

чПЪЧТБЭБЕФУС УЧПКУФЧПН CommandBarEvents. пВЯЕЛФ CommandBarEvents ЪБРХУЛБЕФ УПВЩФЙЕ РТЙ ЧЩВПТЕ ЬМЕНЕОФБ ХРТБЧМЕОЙС ОБ РБОЕМЙ ЙОУФТХНЕОФПЧ.

дПРПМОЙФЕМШОЩЕ УЧЕДЕОЙС

пВЯЕЛФ CommandBarEvents ЧПЪЧТБЭБЕФУС УЧПКУФЧПН CommandBarEvents ПВЯЕЛФБ Events. ч ЙОФЕТЖЕКУЕ ЧПЪЧТБЭЕООПЗП ПВЯЕЛФБ ЙНЕЕФУС ПДОП УПВЩФЙЕ ОБЦБФЙС ЛОПРЛЙ. дМС ПВТБВПФЛЙ ЬФПЗП УПВЩФЙС ЙУРПМШЪХЕФУС ПРЙУБОЙЕ WithEvents.

уЕНЕКУФЧП CommandBars

уПДЕТЦЙФ ЧУЕ РБОЕМЙ ЛПНБОД Ч РТПЕЛФЕ, ЧЛМАЮБС РБОЕМЙ ЛПНБОД, РПДДЕТЦЙЧБАЭЙЕ ЛПОФЕЛУФОЩЕ НЕОА.

дПРПМОЙФЕМШОЩЕ УЧЕДЕОЙС

дМС ЧЛМАЮЕОЙС ОБДУФТПЕЛ, ДПВБЧМСАЭЙИ РБОЕМЙ ЛПНБОД Й ЬМЕНЕОФЩ ХРТБЧМЕОЙС, Б ФБЛЦЕ ДМС ДПВБЧМЕОЙС ЬМЕНЕОФПЧ ХРТБЧМЕОЙС ОБ УХЭЕУФЧХАЭЙЕ ЧУФТПЕООЩЕ РБОЕМЙ ЛПНБОД, ЙУРПМШЪХАФ УЕНЕКУФЧП CommandBars.

уЧПКУФЧП FullPath

чПЪЧТБЭБЕФ ЪОБЮЕОЙЕ ФЙРБ String, УПДЕТЦБЭЕЕ РХФШ Й ЙНС ЖБКМБ БДТЕУХЕНПК ВЙВМЙПФЕЛЙ ФЙРПЧ. фПМШЛП ДМС ЮФЕОЙС.

уЧПКУФЧП Left

чПЪЧТБЭБЕФ ЙМЙ ЪБДБЕФ ЪОБЮЕОЙЕ ФЙРБ Single, УПДЕТЦБЭЕЕ РПМПЦЕОЙЕ МЕЧПК ЗТБОЙГЩ ПЛОБ ОБ ЬЛТБОЕ Ч ЕДЙОЙГБИ ФЧЙР. юФЕОЙЕ/ЪБРЙУШ.

дПРПМОЙФЕМШОЩЕ УЧЕДЕОЙС

ъОБЮЕОЙЕ, ЧПЪЧТБЭБЕНПЕ УЧПКУФЧПН Left, ЪБЧЙУЙФ ПФ ФПЗП, СЧМСЕФУС МЙ ПЛОП УЧСЪБООЩН ЙМЙ ЪБЛТЕРМЕООЩН.

рТЙНЕЮБОЙЕ. йЪНЕОЕОЙЕ ЪОБЮЕОЙС УЧПКУФЧБ Left ДМС УЧСЪБООПЗП ЙМЙ ЪБЛТЕРМЕООПЗП ПЛОБ ОЕ ЙНЕЕФ РПУМЕДУФЧЙК, РПЛБ ПЛОП ПУФБЕФУС УЧСЪБООЩН ЙМЙ ЪБЛТЕРМЕООЩН.

уЧПКУФЧП LinkedWindowFrame

чПЪЧТБЭБЕФ ПВЯЕЛФ Window, РТЕДУФБЧМСАЭЙК ТБНЛХ, УПДЕТЦБЭХА ПЛОП. фПМШЛП ДМС ЮФЕОЙС.

дПРПМОЙФЕМШОЩЕ УЧЕДЕОЙС

уЧПКУФЧП LinkedWindowFrame ПВЕУРЕЮЙЧБЕФ ДПУФХР Л ПВЯЕЛФХ, РТЕДУФБЧМСАЭЕНХ ТБНЛХ УЧСЪБООЩИ ПЛПО, УЧПКУФЧБ ЛПФПТПК ПФМЙЮБАФУС ПФ УЧПКУФЧ УПДЕТЦБЭЙИУС Ч ОЕК ПЛПО. еУМЙ ПЛОП ОЕ СЧМСЕФУС УЧСЪБООЩН, УЧПКУФЧП LinkedWindowFrame ЧПЪЧТБЭБЕФ ЪОБЮЕОЙЕ Nothing.

уЧПКУФЧП MainWindow

чПЪЧТБЭБЕФ ПВЯЕЛФ Window, РТЕДУФБЧМСАЭЙК ЗМБЧОПЕ ПЛОП УТЕДЩ ТБЪТБВПФЮЙЛБ Visual Basic. фПМШЛП ДМС ЮФЕОЙС.

дПРПМОЙФЕМШОЩЕ УЧЕДЕОЙС

пВЯЕЛФ Window, ЛПФПТЩК ЧПЪЧТБЭБЕФУС УЧПКУФЧПН MainWindow, ЙУРПМШЪХАФ ДМС ДПВБЧМЕОЙС ЙМЙ ХДБМЕОЙС ЪБЛТЕРМЕООЩИ ПЛПО. ьФПФ ПВЯЕЛФ Window ЙУРПМШЪХЕФУС ФБЛЦЕ ДМС ТБЪЧЕТФЩЧБОЙС, УЧЕТФЩЧБОЙС, УЛТЩФЙС ЙМЙ ЧПУУФБОПЧМЕОЙС ЗМБЧОПЗП ПЛОБ УТЕДЩ ТБЪТБВПФЮЙЛБ Visual Basic.

уЧПКУФЧП Major

чПЪЧТБЭБЕФ ЪОБЮЕОЙЕ ФЙРБ Long, УПДЕТЦБЭЕЕ ПУОПЧОПК ОПНЕТ ЧЕТУЙЙ БДТЕУХЕНПК ВЙВМЙПФЕЛЙ ФЙРПЧ. фПМШЛП ДМС ЮФЕОЙС.

дПРПМОЙФЕМШОЩЕ УЧЕДЕОЙС

ъОБЮЕОЙЕ, ЧПЪЧТБЭБЕНПЕ УЧПКУФЧПН Major, УППФЧЕФУФЧХЕФ ПУОПЧОПНХ ОПНЕТХ ЧЕТУЙЙ, УПИТБОЕООПНХ Ч ВЙВМЙПФЕЛЕ ФЙРПЧ, ОБ ЛПФПТХА ЪБДБЕФУС УУЩМЛБ.

уЧПКУФЧП Minor

чПЪЧТБЭБЕФ ЪОБЮЕОЙЕ ФЙРБ Long, УПДЕТЦБЭЕЕ ДПРПМОЙФЕМШОЩК ОПНЕТ ЧЕТУЙЙ БДТЕУХЕНПК ВЙВМЙПФЕЛЙ ФЙРПЧ. фПМШЛП ДМС ЮФЕОЙС.

дПРПМОЙФЕМШОЩЕ УЧЕДЕОЙС

ъОБЮЕОЙЕ, ЧПЪЧТБЭБЕНПЕ УЧПКУФЧПН Minor, УППФЧЕФУФЧХЕФ ДПРПМОЙФЕМШОПНХ ОПНЕТХ ЧЕТУЙЙ, УПИТБОЕООПНХ Ч ВЙВМЙПФЕЛЕ ФЙРПЧ, ОБ ЛПФПТХА ЪБДБЕФУС УУЩМЛБ.

уЧПКУФЧП Mode

чПЪЧТБЭБЕФ ЪОБЮЕОЙЕ, ПРТЕДЕМСАЭЕЕ ТЕЦЙН ХЛБЪБООПЗП РТПЕЛФБ. фПМШЛП ДМС ЮФЕОЙС.

чПЪЧТБЭБЕНЩЕ ЪОБЮЕОЙС

уЧПКУФЧП Mode ЧПЪЧТБЭБЕФ УМЕДХАЭЙЕ ЪОБЮЕОЙС:

лПОУФБОФБ

пРЙУБОЙЕ

vbext_vm_RunMode

хЛБЪБООЩК РТПЕЛФ ОБИПДЙФУС Ч ТЕЦЙНЕ ЧЩРПМОЕОЙС.

vbext_vm_BreakMode

хЛБЪБООЩК РТПЕЛФ ОБИПДЙФУС Ч ТЕЦЙНЕ РТЕТЩЧБОЙС.

vbext_vm_DesignMode

хЛБЪБООЩК РТПЕЛФ ОБИПДЙФУС Ч ТЕЦЙНЕ ЛПОУФТХЛФПТБ.

уЧПКУФЧП Name

чПЪЧТБЭБЕФ ЙМЙ ЪБДБЕФ ЪОБЮЕОЙЕ ФЙРБ String, УПДЕТЦБЭЕЕ ЙНС, ЛПФПТПЕ ЙУРПМШЪХЕФУС Ч РТПЗТБННЕ ДМС ЙДЕОФЙЖЙЛБГЙЙ ПВЯЕЛФБ. дМС ПВЯЕЛФПЧ VBProject Й VBComponent ЬФП УЧПКУФЧП ДПУФХРОП ДМС ЮФЕОЙС/ЪБРЙУЙ; ДМС ПВЯЕЛФБ Property Й ПВЯЕЛФБ Reference УЧПКУФЧП ДПУФХРОП ФПМШЛП ДМС ЮФЕОЙС.

дПРПМОЙФЕМШОЩЕ УЧЕДЕОЙС

ч УМЕДХАЭЕК ФБВМЙГЕ РТЙЧПДЙФУС ПРЙУБОЙЕ УРПУПВПЧ РТЙНЕОЕОЙС УЧПКУФЧБ Name ДМС ТБЪОЩИ ПВЯЕЛФПЧ.

пВЯЕЛФ

рТЙНЕОЕОЙЕ УЧПКУФЧБ Name

VBProject

чПЪЧТБЭБЕФ ЙМЙ ЪБДБЕФ ЙНС БЛФЙЧОПЗП РТПЕЛФБ.

VBComponent

чПЪЧТБЭБЕФ ЙМЙ ЪБДБЕФ ЙНС ЛПНРПОЕОФБ. рТЙ РПРЩФЛЕ ХЛБЪБФШ Ч УЧПКУФЧЕ Name ХЦЕ ЙУРПМШЪХЕНПЕ ЙМЙ ОЕДПРХУФЙНПЕ ЙНС ЧПЪОЙЛБЕФ ПЫЙВЛБ.

Property

чПЪЧТБЭБЕФ ЙНС УЧПКУФЧБ Ч ФПН ЧЙДЕ, ЛБЛ ПОП ЧЩЧПДЙФУС Ч ПЛОЕ УЧПКУФЧ. ьФП ЦЕ ЪОБЮЕОЙС ЙУРПМШЪХЕФУС ДМС ЙОДЕЛУБГЙЙ УЕНЕКУФЧБ Properties. ьФП ЙНС ЪБДБФШ ОЕЧПЪНПЦОП.

Reference

чПЪЧТБЭБЕФ ЙНС УУЩМЛЙ Ч РТПЗТБННЕ. ьФП ЙНС ЪБДБФШ ОЕЧПЪНПЦОП

йНС, ЛПФПТПЕ ОПЧЩЕ ПВЯЕЛФЩ РПМХЮБА РП ХНПМЮБОЙА, ПВТБЪХЕФУС ЙЪ ФЙРБ ПВЯЕЛФБ Й ХОЙЛБМШОПЗП ГЕМПЗП ЮЙУМБ. оБРТЙНЕТ, РЕТЧЩК ОПЧЩК ПВЯЕЛФ Form РПМХЮБЕФ ЙНС Form1, УМЕДХАЭЙК ПВЯЕЛФ Form ЙНС Form2, Б ФТЕФЙК ЬМЕНЕОФ ХРТБЧМЕОЙС, СЧМСАЭЙКУС РПМЕН (TextBox) Ч ЖПТНЕ ЙНС TextBox3.

йНС ПВЯЕЛФБ (ЪОБЮЕОЙЕ УЧПКУФЧБ Name) ДПМЦОП ОБЮЙОБФШУС У ВХЛЧЩ Й УПДЕТЦБФШ ОЕ ВПМЕЕ 40 УЙНЧПМПЧ. ч ЙНС НПЦОП ЧЛМАЮБФШ ГЙЖТЩ Й УЙНЧПМЩ РПДЮЕТЛЙЧБОЙС (_), ОП ОЕМШЪС ЧЛМАЮБФШ РТПВЕМЩ ЙМЙ ЪОБЛЙ РТЕРЙОБОЙС. йНЕОБ ЖПТН Й НПДХМЕК ОЕ ДПМЦОЩ УПЧРБДБФШ У ЙНЕОБНЙ ДТХЗЙИ ПВЭЙИ ПВЯЕЛФПЧ, ФБЛЙИ ЛБЛ Clipboard, Screen ЙМЙ App. иПФС Ч ЛБЮЕУФЧЕ ЪОБЮЕОЙС УЧПКУФЧБ Name НПЦОП ХЛБЪБФШ ЛМАЮЕЧПЕ УМПЧП, ЙНС УЧПКУФЧБ ЙМЙ ЙНС ДТХЗПЗП ПВЯЕЛФБ, ДЕМБФШ ЬФП ОЕ ТЕЛПНЕОДХЕФУС ЧП ЙЪВЕЦБОЙЕ ЛПОЖМЙЛФПЧ ЙНЕО Ч РТПЗТБННЕ.

уЧПКУФЧП NumIndices

чПЪЧТБЭБЕФ ЛПМЙЮЕУФЧП ЙОДЕЛУПЧ ДМС УЧПКУФЧБ, ЧПЪЧТБЭБЕНПЗП ПВЯЕЛФПН Property.

дПРПМОЙФЕМШОЩЕ УЧЕДЕОЙС

ъОБЮЕОЙЕН УЧПКУФЧБ NumIndices НПЦЕФ ВЩФШ МАВПЕ ГЕМПЕ ЮЙУМП ПФ 0 ДП 4. дМС ВПМШЫЙОУФЧБ УЧПКУФЧ УЧПКУФЧП NumIndices ЧПЪЧТБЭБЕФ ЪОБЮЕОЙЕ 0. уЧПКУФЧБ, ЙОДЕЛУЙТХЕНЩЕ ПВЩЮОЩН ПВТБЪПН, ЧПЪЧТБЭБАФ ЪОБЮЕОЙЕ 1. нБУУЙЧЩ УЧПКУФЧ НПЗХФ ЧПЪЧТБЭБФШ ЪОБЮЕОЙЕ 2.

уЧПКУФЧП Object

чПЪЧТБЭБЕФ ЙМЙ ЪБДБЕФ ЪОБЮЕОЙЕ ПВЯЕЛФБ, ЛПФПТЩК ЧПЪЧТБЭБЕФУС УЧПКУФЧПН. юФЕОЙЕ/ЪБРЙУШ.

дПРПМОЙФЕМШОЩЕ УЧЕДЕОЙС

еУМЙ ЧПЪЧТБЭБЕФУС ПВЯЕЛФ, ФП УЧПКУФЧП Object РПЪЧПМСЕФ ЪБДБФШ ЙМЙ ЧПЪЧТБФЙФШ ЪОБЮЕОЙЕ ЬФПЗП ПВЯЕЛФБ.

уЧПКУФЧП Parent

чПЪЧТБЭБЕФ ПВЯЕЛФ ЙМЙ УЕНЕКУФЧП, ЛПФПТПЕ УПДЕТЦЙФ ДТХЗПК ПВЯЕЛФ ЙМЙ УЕНЕКУФЧП. фПМШЛП ДМС ЮФЕОЙС.

дПРПМОЙФЕМШОЩЕ УЧЕДЕОЙС

дМС ВПМШЫЙОУФЧБ ПВЯЕЛФПЧ ПРТЕДЕМЕОП МЙВП УЧПКУФЧП Parent, МЙВП УЧПКУФЧП Collection, ХЛБЪЩЧБАЭЕЕ ОБ ТПДЙФЕМШУЛЙК ПВЯЕЛФ, ЛПФПТЩК ДБООЩК ПВЯЕЛФ ЙНЕЕФ Ч ЙЕТБТИЙЙ ПВЯЕЛФПЧ. уЧПКУФЧП Collection ЙУРПМШЪХЕФУС, ЕУМЙ ТПДЙФЕМШУЛЙК ПВЯЕЛФ СЧМСЕФУС УЕНЕКУФЧ.

уЧПКУФЧП Parent ЙУРПМШЪХАФ ДМС ДПУФХРБ Л УЧПКУФЧБН, НЕФПДБН Й ЬМЕНЕОФБН ХРТБЧМЕОЙС ТПДЙФЕМШУЛПЗП ПВЯЕЛФБ.

уЧПКУФЧП Protection

чПЪЧТБЭБЕФ ЪОБЮЕОЙЕ, ХЛБЪЩЧБАЭЕЕ УПУФПСОЙЕ ЪБЭЙФЩ РТПЕЛФБ. фПМШЛП ДМС ЮФЕОЙС.

чПЪЧТБЭБЕНЩЕ ЪОБЮЕОЙС

уЧПКУФЧП Protection ЧПЪЧТБЭБЕФ УМЕДХАЭЙЕ ЪОБЮЕОЙС:

лПОУФБОФБ

пРЙУБОЙЕ

vbext_Protection

хЛБЪБООЩК РТПЕЛФ ЪБЭЙЭЕО.

vbext_NoProtection

хЛБЪБООЩК РТПЕЛФ ОЕ ЪБЭЙЭЕО.

vbext_Locked

хЛБЪБООЩК РТПЕЛФ ВМПЛЙТПЧБО.

уЧПКУФЧП ReferencesEvents

чПЪЧТБЭБЕФ ПВЯЕЛФ ReferencesEvents. фПМШЛП ДМС ЮФЕОЙС.

ъОБЮЕОЙС

бТЗХНЕОФ, РЕТЕДБЧБЕНЩК Ч УЧПКУФЧП ReferencesEvents, НПЦЕФ ЙНЕФШ УМЕДХАЭЙЕ ЪОБЮЕОЙС:

бТЗХНЕОФ

пРЙУБОЙЕ

РТПЕЛФVB

еУМЙ БТЗХНЕОФ РТПЕЛФVB ЙНЕЕФ ЪОБЮЕОЙЕ Nothing, ЧПЪЧТБЭЕООЩК ПВЯЕЛФ ВХДЕФ РЕТЕДБЧБФШ УПВЩФЙС Ч УЕНЕКУФЧБ References ЧУЕИ ПВЯЕЛФПЧ VBProject Ч УЕНЕКУФЧЕ VBProjects.

еУМЙ БТЗХНЕОФ РТПЕЛФVB ХЛБЪЩЧБЕФ ОБ ДПРХУФЙНЩК ПВЯЕЛФ VBProject, ФП ЧПЪЧТБЭЕООЩК ПВЯЕЛФ ВХДЕФ РЕТЕДБЧБФШ УПВЩФЙС ФПМШЛП Ч УЕНЕКУФЧП References ЬФПЗП РТПЕЛФБ.

дПРПМОЙФЕМШОЩЕ УЧЕДЕОЙС

уЧПКУФЧП ReferencesEvents РТЙОЙНБЕФ БТЗХНЕОФ Й ЧПЪЧТБЭБЕФ ПВЯЕЛФ-ЙУФПЮОЙЛ УПВЩФЙС. пВЯЕЛФ ReferencesEvents СЧМСЕФУС ЙУФПЮОЙЛПН УПВЩФЙК, ЛПФПТЩЕ ЗЕОЕТЙТХАФУС РТЙ ДПВБЧМЕОЙЙ ЙМЙ ХДБМЕОЙЙ УУЩМПЛ.

уЧПКУФЧП Top

чПЪЧТБЭБЕФ ЙМЙ ЪБДБЕФ ЪОБЮЕОЙЕ ФЙРБ Single, ХЛБЪЩЧБАЭЕЕ РПМПЦЕОЙЕ ЧЕТИОЕЗП ЛТБС ПЛОБ ОБ ЬЛТБОЕ Ч ЕДЙОЙГБИ ФЧЙР. юФЕОЙЕ/ЪБРЙУШ.

дПРПМОЙФЕМШОЩЕ УЧЕДЕОЙС

ъОБЮЕОЙЕ, ЧПЪЧТБЭБЕНПЕ УЧПКУФЧПН Top, ЪБЧЙУЙФ ПФ ФПЗП, СЧМСЕФУС МЙ ПЛОП ЪБЛТЕРМЕООЩН ПЛОПН, УЧСЪБООЩН ПЛОПН ЙМЙ ЧЩЧПДЙФУС Ч ТЕЦЙНЕ ЪБЛТЕРМЕОЙС.

рТЙНЕЮБОЙЕ. йЪНЕОЕОЙЕ ЪОБЮЕОЙС УЧПКУФЧБ Top ДМС УЧСЪБООПЗП ЙМЙ ЪБЛТЕРМЕООПЗП ПЛОБ ОЕ ЙНЕЕФ РПУМЕДУФЧЙК, РПЛБ ПЛОП ПУФБЕФУС УЧСЪБООЩН ЙМЙ ЪБЛТЕРМЕООЩН.

уЧПКУФЧП TopLine

чПЪЧТБЭБЕФ ЪОБЮЕОЙЕ ФЙРБ Long, ХЛБЪЩЧБАЭЕЕ ОПНЕТ ЧЕТИОЕК УФТПЛЙ, ЛПФПТБС ЧЩЧПДЙФУС Ч ПВМБУФЙ РТПЗТБННЩ, ЙМЙ ЪБДБАЭЕЕ ОПНЕТ УФТПЛЙ, ЛПФПТБС СЧМСЕФУС ЧЕТИОЕК Ч ПВМБУФЙ РТПЗТБННЩ. юФЕОЙЕ/ЪБРЙУШ.

дПРПМОЙФЕМШОЩЕ УЧЕДЕОЙС

уЧПКУФЧП TopLine ЧПЪЧТБЭБЕФ ЙМЙ ЪБДБЕФ ОПНЕТ УФТПЛЙ, ЛПФПТБС ЧЩЧПДЙФУС ЧЕТИОЕК Ч ПВМБУФЙ РТПЗТБННЩ. оБРТЙНЕТ, ЮФПВЩ РЕТЧПК УФТПЛПК Ч ПВМБУФЙ РТПЗТБННЩ ВЩМБ УФТПЛБ У ОПНЕТПН 25, УМЕДХЕФ ЪБДБФШ ДМС УЧПКУФЧБ TopLine ЪОБЮЕОЙЕ 25.

ъОБЮЕОЙЕ УЧПКУФЧБ TopLine ДПМЦОП ВЩФШ ГЕМЩН РПМПЦЙФЕМШОЩН ЮЙУМПН. еУМЙ ДМС УЧПКУФЧБ TopLine ЪБДБЕФУС ЪОБЮЕОЙЕ, РТЕЧЩЫБАЭЕЕ ЮЙУМП УФТПЛ Ч РТПЗТБННЕ, ФП ЪОБЮЕОЙЕН ЬФПЗП УЧПКУФЧБ УФБОПЧЙФУС ОПНЕТ РПУМЕДОЕК УФТПЛЙ.

уЧПКУФЧП Type

чПЪЧТБЭБЕФ ЮЙУМПЧПЕ ЙМЙ УФТПЛПЧПЕ ЪОБЮЕОЙЕ, ПРТЕДЕМСАЭЕЕ ФЙР ПВЯЕЛФБ. фПМШЛП ДМС ЮФЕОЙС.

чПЪЧТБЭБЕНЩЕ ЪОБЮЕОЙС

ъОБЮЕОЙС УЧПКУФЧБ Type ПВЯЕЛФБ Window РЕТЕЮЙУМЕОЩ Ч УМЕДХАЭЕК ФБВМЙГЕ:

лПОУФБОФБ

ъОБЮЕОЙЕ

пРЙУБОЙЕ

vbext_wt_CodeWindow

пЛОП РТПЗТБННЩ

vbext_wt_Designer

пЛОП ЛПОУФТХЛФПТБ

vbext_wt_Browser

пЛОП РПЙУЛБ ПВЯЕЛФБ

vbext_wt_Watch

пВМБУФШ ЛПОФТПМШОЩИ ЪОБЮЕОЙК

vbext_wt_Locals

оБГЙПОБМШОЩЕ ОБУФТПКЛЙ

vbext_wt_Immediate

пВМБУФШ РТПЧЕТЛЙ

vbext_wt_ProjectWindow

пЛОП РТПЕЛФБ

vbext_wt_PropertyWindow

пЛОП УЧПКУФЧ

vbext_wt_Find

дЙБМПЗПЧПЕ ПЛОП РПЙУЛБ

vbext_wt_FindReplace

дЙБМПЗПЧПЕ ПЛОП РПЙУЛБ Й ЪБНЕОЩ

vbext_wt_Toolbox

оБВПТ ЙОУФТХНЕОФПЧ

vbext_wt_LinkedWindowFrame

тБНЛБ УЧСЪБООЩИ ПЛПО

vbext_wt_MainWindow

зМБЧОПЕ ПЛОП

vbext_wt_Preview

пЛОП РТЕДЧБТЙФЕМШОПЗП РТПУНПФТБ

vbext_wt_ColorPalette

пЛОП РБМЙФТЩ ГЧЕФПЧ

ъОБЮЕОЙС УЧПКУФЧБ Type ПВЯЕЛФБ VBComponent РЕТЕЮЙУМЕОЩ Ч УМЕДХАЭЕК ФБВМЙГЕ:

лПОУФБОФБ

пРЙУБОЙЕ

vbext_ct_ClassModule

нПДХМШ ЛМБУУБ

vbext_ct_MSForm

жПТНБ Microsoft

vbext_ct_StdModule

уФБОДБТФОЩК НПДХМШ

vbext_ct_Document

нПДХМШ ДПЛХНЕОФБ

ъОБЮЕОЙС УЧПКУФЧБ Type ПВЯЕЛФБ Reference РЕТЕЮЙУМЕОЩ Ч УМЕДХАЭЕК ФБВМЙГЕ:

лПОУФБОФБ

пРЙУБОЙЕ

vbext_rt_TypeLib

вЙВМЙПФЕЛБ ФЙРПЧ

vbext_rt_Project

рТПЕЛФ

уЧПКУФЧП Value

чПЪЧТБЭБЕФ ЙМЙ ЪБДБЕФ ЪОБЮЕОЙЕ ФЙРБ Variant, ПРТЕДЕМСАЭЕЕ ЪОБЮЕОЙЕ УЧПКУФЧБ. юФЕОЙЕ/ЪБРЙУШ.

уЧПКУФЧП VBE

чПЪЧТБЭБЕФ ЛПТОЕЧПК ПВЯЕЛФ VBE. фПМШЛП ДМС ЮФЕОЙС.

дПРПМОЙФЕМШОЩЕ УЧЕДЕОЙС

чУЕ ПВЯЕЛФЩ ЙНЕАФ УЧПКУФЧП VBE, ХЛБЪЩЧБАЭЕЕ ОБ ЛПТОЕЧПК ПВЯЕЛФ VBE.

уЧПКУФЧП Version

чПЪЧТБЭБЕФ ЪОБЮЕОЙЕ ФЙРБ String, УПДЕТЦБЭЕЕ ЧЕТУЙА СЪЩЛБ Visual Basic ДМС РТЙМПЦЕОЙК (VBA), ЙУРПМШЪХЕНХА РТЙМПЦЕОЙЕН. фПМШЛП ДМС ЮФЕОЙС.

дПРПМОЙФЕМШОЩЕ УЧЕДЕОЙС

ъОБЮЕОЙЕ УЧПКУФЧБ Version СЧМСЕФУС УФТПЛПК, УПДЕТЦБЭЕК ПДОХ ЙМЙ ДЧЕ ГЙЖТЩ, ФПЮЛХ Й ЕЭЕ ДЧЕ ГЙЖТЩ; ПУФБМШОБС ЮБУФШ УФТПЛЙ НПЦЕФ УПДЕТЦБФШ МАВПК ФЕЛУФ ЙМЙ ГЙЖТЩ.

уЧПКУФЧП Visible

дМС ПВЯЕЛФБ Window ЧПЪЧТБЭБЕФ ЙМЙ ЪБДБЕФ ЪОБЮЕОЙЕ ФЙРБ Boolean, ХЛБЪЩЧБАЭЕЕ, СЧМСЕФУС МЙ ПЛОП ЧЙДЙНЩН. юФЕОЙЕ/ЪБРЙУШ. дМС ПВЯЕЛФБ CodePane ЧПЪЧТБЭБЕФ ЪОБЮЕОЙЕ ФЙРБ Boolean, ХЛБЪЩЧБАЭЕЕ, СЧМСЕФУС МЙ ЧЙДЙНПК ПВМБУФШ РТПЗТБННЩ Ч ПЛОЕ. фПМШЛП ДМС ЮФЕОЙС.

чПЪЧТБЭБЕНЩЕ ЪОБЮЕОЙС

уЧПКУФЧП Visible ЧПЪЧТБЭБЕФ УМЕДХАЭЙЕ ЪОБЮЕОЙС:

ъОБЮЕОЙЕ

пРЙУБОЙЕ

True

(рП ХНПМЮБОЙА). пВЯЕЛФ СЧМСЕФУС ЧЙДЙНЩН.

False

пВЯЕЛФ СЧМСЕФУС УЛТЩФЩН.

уЧПКУФЧП width

чПЪЧТБЭБЕФ ЙМЙ ЪБДБЕФ ЪОБЮЕОЙЕ ФЙРБ Single, УПДЕТЦБЭЕЕ ЫЙТЙОХ ПЛОБ ФЧЙР. юФЕОЙЕ/ЪБРЙУШ.

дПРПМОЙФЕМШОЩЕ УЧЕДЕОЙС

йЪНЕОЕОЙЕ ЪОБЮЕОЙС УЧПКУФЧБ width ДМС УЧСЪБООПЗП ЙМЙ ЪБЛТЕРМЕООПЗП ПЛОБ ОЕ ЙНЕЕФ РПУМЕДУФЧЙК, РПЛБ ПЛОП ПУФБЕФУС УЧСЪБООЩН ЙМЙ ЪБЛТЕРМЕООЩН.

уЧПКУФЧП Window

чПЪЧТБЭБЕФ ПЛОП, Ч ЛПФПТПН ЧЩЧПДЙФУС ПВМБУФШ РТПЗТБННЩ. фПМШЛП ДМС ЮФЕОЙС.

уЧПКУФЧП WindowState

чПЪЧТБЭБЕФ ЙМЙ ЪБДБЕФ ЮЙУМПЧПЕ ЪОБЮЕОЙЕ, ПРТЕДЕМСАЭЕЕ ЧЙД ПЛОБ. юФЕОЙЕ/ЪБРЙУШ.

ъОБЮЕОЙС

уЧПКУФЧП WindowState ЧПЪЧТБЭБЕФ ЙМЙ ЪБДБЕФ УМЕДХАЭЙЕ ЪОБЮЕОЙС:

лПОУФБОФБ

ъОБЮЕОЙЕ

пРЙУБОЙЕ

vbext_ws_Normal

(рП ХНПМЮБОЙА). пВЩЮОПЕ ПЛОП.

vbext_ws_Min

пЛОП УЧЕТОХФП Ч ЪОБЮПЛ.

vbext_ws_Max

пЛОП ТБЪЧЕТОХФП ДП НБЛУЙНБМШОПЗП ТБЪНЕТБ.

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ ActiveCodePane

ч ДБООПН РТЙНЕТЕ УЧПКУФЧБ ActiveCodePane Й TopLine ЙУРПМШЪХАФУС ДМС ПРТЕДЕМЕОЙС ОПНЕТБ РЕТЧПК УФТПЛЙ БЛФЙЧОПК ПВМБУФЙ ПЛОБ РТПЗТБННЩ.

Debug.Print Application.VBE.ActiveCodePane.TopLine

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ ActiveVBProject

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП ActiveVBProject ЙУРПМШЪХЕФУС ДМС ПРТЕДЕМЕОЙС ЙНЕОЙ БЛФЙЧОПЗП РТПЕЛФБ.

Debug.Print Application.VBE.ActiveVBProject.Name

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ ActiveWindow

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП ActiveWindow ЙУРПМШЪХЕФУС ДМС ПРТЕДЕМЕОЙС ЪБЗПМПЧЛБ БЛФЙЧОПЗП ПЛОБ.

Debug.Print Application.VBE.ActiveWindow.Caption

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ BuiltIn

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП BuiltIn ЙУРПМШЪХЕФУС ДМС ЧПЪЧТБЭЕОЙС РЕТЕНЕООПК ФЙРБ Boolean, ХЛБЪЩЧБАЭЕК, СЧМСЕФУС МЙ ОЕЛПФПТБС УУЩМЛБ Ч БЛФЙЧОПН РТПЕЛФЕ ЧУФТПЕООПК.

Debug.Print Application.VBE.ActiveVBProject.References(1).BuiltIn

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ Caption

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП Caption ЙУРПМШЪХЕФУС ДМС ЧЩЧПДБ ОБ ЬЛТБО ЪБЗПМПЧЛБ БЛФЙЧОПЗП ПЛОБ.

Debug.Print Application.VBE.ActiveWindow.Caption

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ CodeModule

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧБ CodeModule Й CountOfLines ЙУРПМШЪХАФУС ДМС ПРТЕДЕМЕОЙС ЮЙУМБ УФТПЛ Ч ХЛБЪБООПН РТПЗТБННОПН НПДХМЕ.

Debug.Print Application.VBE.ActiveVBProject.VBComponents(6).CodeModule.CountOfLines

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ CodePane

ч ДБООПН РТЙНЕТЕ УЧПКУФЧБ CodePane Й TopLine ЙУРПМШЪХАФУС ДМС ЧЩЧПДБ ОБ ЬЛТБО ОПНЕТБ РЕТЧПК УФТПЛЙ Ч РТПЗТБННОПН НПДХМЕ ЧЩДЕМЕООПЗП ПВЯЕЛФБ VBComponent.

Debug.Print Application.VBE.SelectedVBComponent.CodeModule.CodePane.TopLine

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ CodePanes

ч ДБООПН РТЙНЕТЕ УЧПКУФЧБ CodePanes Й TopLine ЙУРПМШЪХАФУС ДМС ЧЩЧПДБ ОБ ЬЛТБО ОПНЕТБ РЕТЧПК УФТПЛЙ ХЛБЪБООПК ПВМБУФЙ ПЛОБ РТПЗТБННЩ

Debug.Print Application.VBE.CodePanes(3).TopLine

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ CodePaneView

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП CodePaneView ЙУРПМШЪХЕФУС ДМС ЧПЪЧТБЭЕОЙС ЪОБЮЕОЙС, ПРТЕДЕМСАЭЕЗП, ЧЩЧПДЙФУС МЙ ХЛБЪБООБС ПВМБУФШ ПЛОБ РТПЗТБННЩ РТЙ РТПУНПФТЕ РТПГЕДХТЩ ЙМЙ РПМОПЗП НПДХМС.

Debug.Print Application.VBE.CodePanes(3).CodePaneView

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ Collection

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧБ Collection Й Count ЙУРПМШЪХАФУС ДМС ПРТЕДЕМЕОЙС ОПНЕТПЧ ПВЯЕЛФПЧ, УПДЕТЦБЭЙИУС Ч БЛФЙЧОПН РТПЕЛФЕ Й ТБУУНБФТЙЧБЕНЩИ ЛБЛ УЕНЕКУФЧП ПВЯЕЛФПЧ.

Debug.Print Application.VBE.ActiveVBProject.Collection.Count

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ CommandBarEvents

ч ДБООПН РТЙНЕТЕ РТЙЧПДЙФУС РТПЗТБННБ, ЙУРПМШЪХАЭБС УЧПКУФЧП CommandBarEvents. ьФП УЧПКУФЧП РТЙНЕОСЕФУС Ч РТПЗТБННБИ ДМС ПВТБВПФЛЙ ОБЦБФЙС ЛОПРЛЙ НЩЫЙ Ч РБОЕМЙ ЛПНБОД.

Private WithEvents ce As CommandBarEvents

Sub Test()

Dim c As CommandBarControl

Set c = Application.VBE.CommandBars("уЕТЧЙУ").Controls(1)

Set ce = Application.VBE.Events.CommandBarEvents(c)

End Sub

Private Sub ce_Click(ByVal CommandBarControl As Object, Handled As Boolean, CancelDefault As Boolean)

' нЕУФП ДМС РТПЗТБННЩ ПВТБВПФЛЙ УПВЩФЙК.

End Sub

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ Count

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП Count ЙУРПМШЪХЕФУС ДМС ПРТЕДЕМЕОЙС ЮЙУМБ ПВЯЕЛФПЧ VBComponent Ч ХЛБЪБООПН РТПЕЛФЕ.

Debug.Print Application.VBE.VBProjects(1).VBComponents.Count

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ CountOfDeclarationLines

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП CountOfDeclarationLines ЙУРПМШЪХЕФУС ДМС ПРТЕДЕМЕОЙС ЮЙУМБ УФТПЛ ПРЙУБОЙС Ч ХЛБЪБООПК ПВМБУФЙ ПЛОБ РТПЗТБННЩ.

Debug.Print Application.VBE.CodePanes(2).CodeModule.CountOfDeclarationLines

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ CountOfLines

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП CountOfLines ЙУРПМШЪХЕФУС ДМС ПРТЕДЕМЕОЙС РПМОПЗП ЮЙУМБ УФТПЛ Ч ХЛБЪБООПК ПВМБУФЙ ПЛОБ РТПЗТБННЩ.

Application.VBE.CodePanes(2).CodeModule.CountOfLines

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ CountOfVisibleLines

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП CountOfVisibleLines ЙУРПМШЪХЕФУС ДМС ПРТЕДЕМЕОЙС ЮЙУМБ ЧЙДЙНЩИ ПДОПЧТЕНЕООП УФТПЛ Ч ХЛБЪБООПК ПВМБУФЙ ПЛОБ РТПЗТБННЩ РТЙ ЪБДБООПК ЧЩУПФЕ ЬФПК ПВМБУФЙ.

Debug.Print Application.VBE.Codepanes(3).CountOfVisibleLines

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ Description

ч РЕТЧПН ЙЪ РТЙЧЕДЕООЩИ РТЙНЕТПЧ УЧПКУФЧП Description ЙУРПМШЪХЕФУС, ЮФПВЩ ЪБДБФШ ПРЙУБОЙЕ ДМС ХЛБЪБООПЗП РТПЕЛФ. ъБФЕН ПРЙУБОЙЕ ЧЩЧПДЙФУС ОБ РЕЮБФШ ДМС РТПЧЕТЛЙ ЧЩРПМОЕОЙС РТЕДЩДХЭЕК ПРЕТБГЙЙ.

чП ЧФПТПН РТЙНЕТЕ УЧПКУФЧП Description ЙУРПМШЪХЕФУС ДМС ЧПЪЧТБЭЕОЙС РПДТПВОЩИ ЙНЕО ХЛБЪБООЩИ ПВЯЕЛФПЧ Reference ОЕЛПФПТПЗП РТПЕЛФБ.

Application.VBE.VBProjects(1).Description = "зПТСЮЙЕ РЙТПЦЛЙ"

Debug.Print Application.VBE.VBProjects(1).Description

Debug.Print Application.VBE.VBProjects(1).References(1).Description

Debug.Print Application.VBE.VBProjects(1).References(2).Description

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ Designer

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧБ Designer Й Count ЙУРПМШЪХАФУС ДМС ПРТЕДЕМЕОЙС ЮЙУМБ ЬМЕНЕОФПЧ ХРТБЧМЕОЙС Ч ЖПТНЕ. рТЙ ЬФПН ПЛОП, УПДЕТЦБЭЕЕ ДБООХА ЖПТНХ, ДПМЦОП ВЩФШ ЧЩДЕМЕОП. пВЯЕЛФПН УЧПКУФЧБ Designer (ЛПОУФТХЛФПТ) СЧМСЕФУС УБНБ ЖПТНБ.

Debug.Print Application.VBE.SelectVBComponent.Designer.Controls.Count

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ DesignerWindow

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧБ DesignerWindow Й Visibile ЙУРПМШЪПЧБОЩ, ЮФПВЩ ПРТЕДЕМЙФШ, СЧМСЕФУС МЙ ОЕЛПФПТЩК ЛПОУФТХЛФПТ ЧЙДЙНЩН. рТЙ ЬФПН ПВЯЕЛФ VBComponent ДПМЦЕО РТЕДУФБЧМСФШ УПВПК ЖПТНХ.

Debug.Print Application.VBE.VBProjects(1).VBComponents(1).DesignerWindow.Visible

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ FullPath

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП FullPath ЙУРПМШЪХЕФУС ДМС ЧПЪЧТБЭЕОЙС РПМОПЗП РХФЙ Л ВЙВМЙПФЕЛЕ ПВЯЕЛФПЧ ДМС ХЛБЪБООПК УУЩМЛЙ.

Debug.Print Application.VBE.ActiveVBProject.References(1).FullPath

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ GUID

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП GUID ЙУРПМШЪХЕФУС ДМС ЧПЪЧТБЭЕОЙС ЛПДБ GUID ДМС ХЛБЪБООПЗП ПВЯЕЛФБ Reference ЛПОЛТЕФОПЗП РТПЕЛФБ.

Debug.Print Application.VBE.VBProjects(1).References(1).GUID

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ HasOpenDesigner

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП HasOpenDesigner ЙУРПМШЪПЧБОП, ЮФПВЩ ПРТЕДЕМЙФШ, ЙНЕЕФ МЙ ХЛБЪБООЩК ЛПНРПОЕОФ ОЕЛПФПТПЗП РТПЕЛФБ (Ч ДБООПН УМХЮБЕ ЖПТНБ) ПФЛТЩФЩК ЛПОУФТХЛФПТ.

Debug.Print Application.VBE.VBProjects(1).VBComponents(1).HasOpenDesigner

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧ height Й width

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧБ height Й width ЙУРПМШЪХАФУС ДМС ПРТЕДЕМЕОЙС ЧЩУПФЩ Й ЫЙТЙОЩ ( Ч ФЧЙРБИ) ОЕЛПФПТПЗП ПЛОБ. лПЗДБ ХЛБЪБООПЕ ПЛОП УЧСЪБОП У ДТХЗЙН ПЛОПН ЙМЙ ЪБЛТЕРМЕОП Ч ЗМБЧОПН ПЛОЕ, РБТБНЕФТЩ ЬФЙИ УЧПКУФЧ ЙЪНЕОСАФУС, РПУЛПМШЛХ Ч ЬФЙИ УМХЮБСИ ПОЙ ПФОПУСФУС Л ПВЯЕЛФХ Window, Ч ЛПФПТПН ЙУИПДОПЕ ПЛОП УЧСЪБОП ЙМЙ ЪБЛТЕРМЕОП.

Debug.Print Application.VBE.Windows(9).height

Debug.Print Application.VBE.Windows(9).width

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ HelpContextID

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП HelpContextID ЙУРПМШЪХЕФУС ДМС ЧПЪЧТБЭЕОЙС ЙДЕОФЙЖЙЛБФПТБ ЛПОФЕЛУФОПК УРТБЧЛЙ ДМС ЖБКМБ УРТБЧПЮОПК УЙУФЕНЩ, УППФЧЕФУФЧХАЭЕЗП РТПЕЛФХ.

Debug.Print Application.VBE.VBProjects(1).HelpContextID

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ HelpFile

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП HelpFile ЙУРПМШЪХЕФУС ДМС ЧЧЕДЕОЙС ЖБКМБ УРТБЧПЮОПК УЙУФЕНЩ Ч РТПЕЛФ. ъБФЕН РПМОЩК РХФШ ДБООПЗП ЖБКМБ ЧЩЧПДЙФУС ОБ РЕЮБФШ ДМС РТПЧЕТЛЙ ЧЩРПМОЕОЙС ПРЙУБООПК ПРЕТБГЙЙ.

Application.VBE.VBProjects(1).HelpFile = "C:\HelpStuff\veenob3.hlp"

Debug.Print Application.VBE.VBProjects(1).HelpFile

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ IsBroken

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП IsBroken ЙУРПМШЪХЕФУС ДМС ЧПЪЧТБЭЕОЙС ЪОБЮЕОЙС, ЛПФПТПЕ ПРТЕДЕМСЕФ, ХЛБЪБООЩК ПВЯЕЛФ Reference Ч ОЕЛПФПТПН РТПЕЛФЕ ОЕТБЪТЕЫЕООПК УУЩМЛПК.

Debug.Print Application.VBE.vbprojects(1).References(1).IsBroken

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧ Left Й Top

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧБ Left Й Top ЙУРПМШЪХАФУС ДМС ПРТЕДЕМЕОЙС ЛППТДЙОБФ ЧЕТИОЕЗП МЕЧПЗП ХЗМБ ОЕЛПФПТПЗП ПЛОБ (Ч ФЧЙРБИ). лПЗДБ ХЛБЪБООПЕ ПЛОП УЧСЪБОП У ДТХЗЙН ПЛОПН ЙМЙ ЪБЛТЕРМЕОП Ч ЗМБЧОПН ПЛОЕ, РБТБНЕФТЩ ДБООЩИ УЧПКУФЧ ЙЪНЕОСАФУС, РПУЛПМШЛХ Ч ЬФЙИ УМХЮБСИ ПОЙ ПФОПУСФУС Л ПВЯЕЛФХ Window, Ч ЛПФПТПН ЙУИПДОПЕ ПЛОП УЧСЪБОП ЙМЙ ЪБЛТЕРМЕОП.

Debug.Print Application.VBE.Windows(9).Left

Debug.Print Application.VBE.Windows(9).Top

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ MainWindow

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП MainWindow ЙУРПМШЪХЕФУС ДМС ПРТЕДЕМЕОЙС ПВЯЕЛФБ Window, РТЕДУФБЧМСАЭЕЗП ЗМБЧОПЕ ПЛОП. ъБФЕН ЪБЗПМПЧПЛ ЗМБЧОПЗП ПЛОБ ЧЩЧПДЙФУС ОБ РЕЮБФШ.

Debug.Print Application.VBE.MainWindow.Caption

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ Major

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП Major ЙУРПМШЪХЕФУС ДМС ЧПЪЧТБЭЕОЙС ОПНЕТБ НБЛУЙНБМШОПК ЧЕТУЙЙ ХЛБЪБООПЗП ПВЯЕЛФБ Reference Ч ОЕЛПФПТПН РТПЕЛФЕ.

Debug.Print Application.VBE.VBProjects(1).References(1).Major

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ Minor

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП Minor ЙУРПМШЪХЕФУС ДМС ЧПЪЧТБЭЕОЙС ОПНЕТБ НЙОЙНБМШОПК ЧЕТУЙЙ ХЛБЪБООПЗП ПВЯЕЛФБ Reference Ч ОЕЛПФПТПН РТПЕЛФЕ.

Debug.Print Application.VBE.VBProjects(1).References(1).Minor

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ Mode

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП Mode ЙУРПМШЪХЕФУС ДМС ПРТЕДЕМЕОЙС ТЕЦЙНБ БЛФЙЧОПЗП РТПЕЛФБ. рТЙ ЬФПН ЧПЪЧТБЭБЕФУС ЪБТБОЕЕ ПРТЕДЕМЕООБС ЛПОУФБОФБ, УППФЧЕФУФЧХАЭБС ТЕЦЙНХ РТПЕЛФБ.

Debug.Print Application.VBE.ActiveVBProject.Mode

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ Name

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП Name ЙУРПМШЪХЕФУС ДМС ПРТЕДЕМЕОЙС ЙНЕОЙ ХЛБЪБООПЗП ЛПНРПОЕОФБ УЕНЕКУФЧБ VBComponents Ч ОЕЛПФПТПН РТПЕЛФЕ.

Debug.Print Application.VBE.VBProjects(1).VBComponents(1).Name

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ NumIndices

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП NumIndices ЙУРПМШЪХЕФУС ДМС ЧПЪЧТБЭЕОЙС ЮЙУМБ ЙОДЕЛУПЧ, ПФОПУСЭЙИУС Л ХЛБЪБООПНХ УЧПКУФЧХ ПРТЕДЕМЕООПЗП ПВЯЕЛФБ VBComponent.

Debug.Print Application.VBE.VBProjects(1).VBComponents(1).Properties(40).NumIndices

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ Object

ч УМЕДХАЭЕН РТЙНЕТЕ ЙНС ЪОБЮЛБ ЧЧПДЙФУС Ч УРЙУПЛ ЪОБЮЛПЧ ХЛБЪБООПЗП ПВЯЕЛФБ, РТЕДУФБЧМСАЭЕЗП УПВПК ЖПТНХ.

Set Application.VBE.ActiveVBProject.VBComponents(1).Properties("ъОБЮПЛ").Object = LoadPicture("Baseball.ico")

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ Parent

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП Parent ЙУРПМШЪХЕФУС ДМС ЧПЪЧТБЭЕОЙС ЙНЕОЙ ПВЯЕЛФБ, ЛПФПТЩК Ч ЙЕТБТИЙЙ ПВЯЕЛФПЧ СЧМСЕФУС ТПДЙФЕМШУЛЙН ДМС ХЛБЪБООПЗП ПВЯЕЛФБ.

Debug.Print Application.VBE.ActiveVBProject.VBComponents.Parent.Name

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ Protection

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП Protection ЙУРПМШЪХЕФУС ДМС ЧПЪЧТБЭЕОЙС ЪОБЮЕОЙС, ЛПФПТПЕ ХЛБЪЩЧБЕФ, ЪБЭЙЭЕО МЙ РТПЕЛФ. чПЪЧТБЭБЕНПЕ ЪОБЮЕОЙЕ РТЕДУФБЧМСЕФ УПВПК ЪБТБОЕЕ ПРТЕДЕМЕООХА ЛПОУФБОФХ, УППФЧЕФУФЧХАЭХА УФБФХУХ РТПЕЛФБ.

Debug.Print Application.VBE.ActiveVBProject.Protection

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ ReferencesEvents

ч ДБООПН РТЙНЕТЕ РТЙЧПДЙФУС РТПЗТБННБ, ЙУРПМШЪХАЭБС УЧПКУФЧП ReferencesEvents. ьФП УЧПКУФЧП РТЙНЕОСЕФУС Ч РТПЗТБННЕ ПВТБВПФЛЙ УПВЩФЙК ДМС ДПВБЧМЕОЙС ЙМЙ ХДБМЕОЙС УУЩМПЛ.

Private WithEvents X As ReferencesEvents

Sub Test()

Set X = Application.VBE.Events.ReferencesEvents

End Sub

Private Sub X_ItemAdded(ByVal Reference As VBIDE.Reference)

' нЕУФП ДМС РТПЗТБННЩ ДПВБЧМЕОЙС ЬМЕНЕОФБ.

End Sub

Private Sub X_ItemRemoved(ByVal Reference As VBIDE.Reference)

' нЕУФП ДМС РТПЗТБННЩ ХДБМЕОЙС ЬМЕНЕОФБ.

End Sub

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ Saved

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП Saved ЙУРПМШЪХЕФУС ДМС ЧПЪЧТБЭЕОЙС РЕТЕНЕООПК ФЙРБ Boolean, ХЛБЪЩЧБАЭЕК, ВЩМ МЙ ХЛБЪБООЩК РТПЕЛФ УПИТБОЕО Ч ФЕЛХЭЕН УПУФПСОЙЙ.

Debug.Print Application.VBE.VBProjects(1).Saved

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ SelectedVBComponent

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП SelectedVBComponent ЙУРПМШЪХЕФУС ДМС ПРТЕДЕМЕОЙС ЧЩДЕМЕООПЗП ЛПНРПОЕОФБ.

Debug.Print Application.VBE.SelectedVBComponent.Name

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ TopLine

ч ДБООПН РТЙНЕТЕ УЧПКУФЧП TopLine ЙУРПМШЪХЕФУС ДМС ЧПЪЧТБЭЕОЙС ОПНЕТБ РЕТЧПК УФТПЛЙ ХЛБЪБООПК ПВМБУФЙ ПЛОБ РТПЗТБННЩ.

Debug.Print Application.VBE.CodePanes(3).TopLine

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ Type

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП Type ЙУРПМШЪХЕФУС ДМС ЧПЪЧТБЭЕОЙС ЪОБЮЕОЙС, УППФЧЕФУФЧХАЭЕЗП ФЙРХ ХЛБЪБООПЗП ЛПНРПОЕОФБ УЕНЕКУФЧБ VBComponents Ч ОЕЛПФПТПН РТПЕЛФЕ. чПЪЧТБЭБЕНПЕ ЪОБЮЕОЙЕ РТЕДУФБЧМСЕФ УПВПК ЛПОУФБОФХ, ПРТЕДЕМЕООХА ЪБТБОЕЕ ДМС ПДОПЗП ЙЪ ПВЯЕЛФОЩИ ФЙРПЧ ЛПНРПОЕОФПЧ.

Debug.Print Application.VBE.VBProjects(1).VBComponents(1).Type

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ Value

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП Value ЙУРПМШЪХЕФУС ДМС ЧПЪЧТБЭЕОЙС ЪОБЮЕОЙС ХЛБЪБООПЗП УЧПКУФЧБ ПДОПЗП ЙЪ ЛПНРПОЕОФПЧ УЕНЕКУФЧБ VBComponents.

Debug.Print Application.VBE. ActiveVBProject.VBComponents(1).Properties("AcceptLabelsInFormulas").Value

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ VBE

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧБ VBE Й Name ЙУРПМШЪХАФУС ДМС ПРТЕДЕМЕОЙС ЙНЕОЙ БЛФЙЧОПЗП РТПЕЛФБ.

Debug.Print Application.VBE.ActiveVBProject.Name

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ Version

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП Version ЙУРПМШЪХЕФУС ДМС ПРТЕДЕМЕОЙС ОПНЕТБ ЧЕТУЙЙ ЗМБЧОПЗП РТЙМПЦЕОЙС.

Debug.Print Application.VBE.Version

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ Visible

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП Visible ЙУРПМШЪХЕФУС ДМС ЧПЪЧТБЭЕОЙС РЕТЕНЕООПК ФЙРБ Boolean, ЛПФПТБС РПЛБЪЩЧБЕФ, СЧМСЕФУС МЙ ХЛБЪБООПЕ ПЛОП ЧЙДЙНЩН.

Debug.Print Application.VBE.Windows(9).Visible

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ Window

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧБ Window Й Caption ЙУРПМШЪХАФУС ДМС ЧПЪЧТБЭЕОЙС ЪБЗПМПЧЛБ ХЛБЪБООПК ПВМБУФЙ ПЛОБ РТПЗТБННЩ.

Debug.Print Application.VBE.CodePanes(1).Window.Caption

рТЙНЕТ ЙУРПМШЪПЧБОЙС УЧПКУФЧБ WindowState

ч УМЕДХАЭЕН РТЙНЕТЕ УЧПКУФЧП WindowState ЙУРПМШЪХЕФУС ДМС ПРТЕДЕМЕОЙС ЧОЕЫОЕЗП ЧЙДБ ХЛБЪБООПЗП ПЛОБ. чПЪЧТБЭБЕНПЕ ЪОБЮЕОЙЕ РТЕДУФБЧМСЕФ УПВПК ЪБТБОЕЕ ПРТЕДЕМЕООХА ЛПОУФБОФХ, УППФЧЕФУФЧХАЭХА ЧОЕЫОЕНХ ЧЙДХ ПЛОБ.

Debug.Print Application.VBE.Windows(9).WindowState

Главная сайта