Vetoy статия ние ще създадем programmukotoraya ще вмъкнете в документа Wordtablitsu. Вие, разбира се, ще каже: Защо имам нужда от тази програма, ако eststandartnaya, не по-лошо от това. и budeshkak винаги греши. В крайна сметка, в тази статия ще не само придобиват знания в VBA, но nauchishsyapisat и практика ActiveXkomponenty.
Eslity не са запознати с програмирането naVBA, можете да прочетете статията ми "IspolzovanieUserForm в VBA". Тя осигурява кратко описание език, прави паралел mezhduVBA и VB, приликите и разликите между.
SozdanieActiveX компонент
Ур. Време е да се напише ActiveX го komponent.Pisat ние ще бъдем по VisualBasic "д И така, започваме Run BASIC, пред вас има прозорец New Project, изберете го .." ActiveX Control "Преди да трябва poyavitsyatakaya вид .:
Тя е подобна на obychnuyuformu чиято собственост BorderStyle = 0 - Няма. Nuladno, давай напред. Хвърли тук tekstovoepole, Текст имот = 1, Заключен = True собственост (chtobynelzya е да въведете текст в него tekstovoepole). Сложете два бутона по-долу. Имоти Надпис 1 = бутона "<", свойство Caption 2 кнопки = ">". Персонализирайте размер Управление на потребителските" бутон под наш itekstovoe област. Сега nadopereimenovat нашия проект и контрол на потребителя. Нека дадем име на проекта Mein, UserContol "Y" Spin "си ActiveX dolzhenvyglyadet като този .:
След като обяви своята ход ksobytiyu Инициализиране контрол Потребител "е, и да се въведе tudasleduyuschy код:
Частни Под UserControl_Initialize ()
Номер = 1
End Sub
Zdesmy зададете променлива value1 номер. Сега отидете на pervoyknopki Кликнете събитие и да се въведе следния код:
Частни Под Command1_Click ()
Ако Брой> След 1
Брой = брой - 1
Text1.Text = Номер
Крайна сметка, ако
End Sub
При кликване върху нея ние проверяваме променлив брой, ако тя е по-голяма от 1 изваждащ 1 от него, полеви vtekstovoe вложки etoyperemennoy. В случай Кликнете на втория knopkivstavlyaem код:
Частни Под Command2_Click ()
Ако Номер <100 Then
Брой = брой + 1
Text1.Text = Номер
Крайна сметка, ако
End Sub
Onanalogichen първия бутон код, просто zdesvse обратно. променлива се проверява, esliona по-малко от сто към стойността си pribavlyaetsyapo 1 всеки път, втория бутон. Както vyzametili поредица от номера, в текстовото поле на 1Не 100.
Всичко, със създаването на ActiveX завършен, tolkootkompilirovat го остави във файла OCX. За etogozahodim файла, кликнете върху Направете Mein.ocx изберете съответната директория за тази inazhimaem OK.
VisualBasic съставяне регистрите на "Сай в системите, така че този файл budetavtomaticheski добавен към списъка на ActiveX" OCX ovprogramm MS Office пакет. И за да ispolzovat проекти VisualBasic "а трябва да кликнете на проекта> Компоненти> Преглед. Kotoroynahoditsya отворите папка в желаната OCX и кликнете върху него 2 пъти.
Sozdanieprogrammy за WORD "A
Kidaemdva такъв инструмент на нашата форма, odinpod други на левите си етикети казано, по-високо етикет имот надпис = "Chislostolbtsov" "броя на редовете" долния .Nizhe всичко това постави два бутона uverhney Име = cmdNewTables, надпис = "Създаване на имот маса "в nizhneysootvetstvenno Наименование =" cmdCancel ", Caption =" Отказ ". От дясната страна можете да поставите leybls описание на програмата. Можете dolzhnopoluchitsya нещо като това:
Sinterfeysom програма, подредени, а това, повярвайте ми читателю, не до крайния етап malo.Pristupaem nasheystati, пишете код nasheyprogrammy. Той не е сложен blagodaryatomu, която ние използваме ActiveX компоненти. Нека започнем, преди това малко zakatimrukava, така че за всеки случай, да не са се намесва :))). Ние кликнете два пъти върху cmdNewTables бутона и го въведете в следния код:
Частни Под cmdNewTables_Click ()
приглушена myrange
Определете myrange = ActiveDocument.range (0, 0)
Selection.Tables.Add диапазон: = myrange, NumRows: = Spin2.Number, _ NumColumns: = Spin1.Number
Selection.Collapse Посока: = wdCollapseEnd
Оставете ме "разтоварва нашия прозорец
End Sub
Ondostatochno лесно и няма да zaostryatvnimanie на всеки ред от програмата (eslity нещо, което не мога да разбера posmotretspravku, всичко в него е описано подробно) и lishobyasnyu нашия компонент връзка ActiveX, или по-скоро неговите два екземпляра.
Частни Под cmdCancel_Click ()
Разтоварят Me "разтоварят този прозорец
End Sub
. Ostalsyaposledny бар - да направим нашата програма MS Word инструменти napanel "За etogosozdaem нов модул (той sozdaetsyaanalogichno форма, да му дадете име modTables Ivpisyvaem следния код :.
прозорците Posleredaktirovaniya Бутон за затваряне на "Settings" и кликнете върху бутона за нов. Ако всичко sdelalipravilno, трябва да се отвори прозорец, който mydelali по-горе.
Vse.V тази статия, ние научихме как да пишат ActiveXkomponenty, вмъкнете таблица в dokumentWord "и желанията си, коментари и т.н., моля да ми изпратите на сапун [email protected] Не забравяйте да посетите сайта ми: .. Www.worldvb.narod.ru като мен. може да се намери в ICQ: 347384533.
Spasibochto прочетете моята статия. ))).
Свързани статии