Создание пользовательского элемента управления

@Ципихович Эндрю · Регистрация: 10.04.2009

Студворк — интернет-сервис помощи студентам

Здравствуйте, создаю контрол комбобокс+кнопка для использования в Ворде, делаю по примеру, жаль по правилам форума ссылку нельзя выкладывать на этот пример, один словом создал пошагово со скринами пошагово инструкцию в файле Ворда, и стопорнулся на: Проект "Proect1" не может быть сформирован, потому, что он ссылается на проект "К:\ЦЭКомбобоксКнопка.vbp" котрый не был сформирован
Гляньте пжл, шаги верные, последовательные, что не так
о горе, файлы *.doc - более 100Кб - отлуп, выкручиваемся - [вложение]
Просьба модераторам, ссылку на файл не сносить, тогда топик теряет смысл
если уж так критично, тогда весь топик нафиг
Спасибо

SoftIce · 20.04.2012, 14:48

А дальше - всё

Что ещё непонято ?

@Alex77755 · 20.04.2012, 15:03

А дальше пользоваться свойствами и методами, которыми ты его наделил.

@Ципихович Эндрю · 20.04.2012, 15:14 **[ТС]**

ну начнём с конечной цели, Ворд 2003, вкладка элементы управления, есть кнопка молоток с ключом, как добиться чтобы там появился этот ЦЭКомбобоксБуттон??

@Alex77755 · 20.04.2012, 15:55

Зарегистрировать. Хотя при компиляции, вроде, бейсик сам это делает. Но не уверен

@Ципихович Эндрю · 20.04.2012, 16:01 **[ТС]**

а чтобы зарегистрировать, надо чтобы был файл *.ocx
далее в Ворде 2003, вкладка элементы управления, есть кнопка молоток с ключом
нажимаем и там выбираем этот *.ocx файл и регистрируем его, так?

SoftIce · 20.04.2012, 16:21

а чтобы зарегистрировать

Сообщение от SoftIce

а ты сам .ocx запускал (двойным кликом)?

Это было 5 - е сообщение.

@Ципихович Эндрю · 20.04.2012, 16:33 **[ТС]**

на пятое сообщение есть ответ в восьмом

Сообщение от Ципихович Эндрю

не было такого сообщения, оно должно быть после того как я нажму
Делать ЦЭКомбобоксКнопка.ocx?
Не было! и что делать?

Добавлено через 5 минут
да, уж по двойному щелчку появилось, видимо лечилось

Сообщение от Alex77755

Вот только из события Private Sub UserForm_Initialize()
Пермести процедуру в Private Sub UserControl_Initialize()

а почему комбобокс пустой, ему же сказано:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub UserControl_Initialize()
 
With Combo1
        'добавление различных форматов дат
        .AddItem Format(Now, "d m yyyy")
        .AddItem Format(Now, "d m yyyy г.")
        .AddItem Format(Now, "d m yyyy года")
        .AddItem Format(Now, "d.m.yyyy")
        .AddItem Format(Now, "d.m.yyyy г.")
        .AddItem Format(Now, "d.m.yyyy года")
        '_______________________________________________
        .AddItem Format(Now, "dd mm yyyy")
        .AddItem Format(Now, "dd mm yyyy г.")
        .AddItem Format(Now, "dd mm yyyy года")
        .AddItem Format(Now, "dd.mm.yyyy")
        .AddItem Format(Now, "dd.mm.yyyy г.")
        .AddItem Format(Now, "dd.mm.yyyy года")
        '_______________________________________________
        .AddItem Format(Now, "d mmmm yyyy")
        .AddItem Format(Now, "d mmmm yyyy г.")
        .AddItem Format(Now, "d mmmm yyyy года")
        .AddItem Format(Now, "d.mmmm.yyyy")
        .AddItem Format(Now, "d.mmmm.yyyy г.")
        .AddItem Format(Now, "d.mmmm.yyyy года")
        '_______________________________________________
        .AddItem Format(Now, "dd mmmm yyyy")
        .AddItem Format(Now, "dd mmmm yyyy г.")
        .AddItem Format(Now, "dd mmmm yyyy года")
        .AddItem Format(Now, "dd.mmmm.yyyy")
        .AddItem Format(Now, "dd.mmmm.yyyy г.")
        .AddItem Format(Now, "dd.mmmm.yyyy года")
        End With
 
End Sub

SoftIce · 20.04.2012, 16:48

Значит событие

Сообщение от Ципихович Эндрю

Private Sub UserControl_Initialize

не наступает. И теперь ты его не вызовешь снаружи, потому что оно у тебя Private

SoftIce · 20.04.2012, 17:02

с Public работает

SoftIce · 20.04.2012, 17:21

В контроле

Visual Basic
1
2
3
Public Sub ЦЭ1_Initialize()
 
With Combo1

В программе вызываешь

Visual Basic
1
ЦЭ11.ЦЭ1_Initialize

@Ципихович Эндрю · 20.04.2012, 17:29 **[ТС]**

запутаться можно

SoftIce · 20.04.2012, 18:04

Сообщение от Ципихович Эндрю

запутаться можно

Ну извини, сам такие имена дал

@Ципихович Эндрю · 20.04.2012, 19:26 **[ТС]**

после того как Добавляем на форму элементы управления
добавили, щёлкнули по элементу и получаем типа этого:

Visual Basic
1
2
3
Private Sub Combo1_Change()
 
End Sub

разве это не есть - делай так?, то есть по аналогии с Initialize - Private Sub Combo1_Initialize()

SoftIce · 20.04.2012, 19:36

Да, но это событие комбоБокса а не контрола. И наружу видны только Public процедуры
Пока у твоего контрола один метод:

@Ципихович Эндрю · 20.04.2012, 19:39 **[ТС]**

Сообщение от SoftIce

Public Sub ЦЭ1_Initialize(

с паблик понял, откуда ЦЭ1 берётся забыл, ой мамочка

)

SoftIce · 20.04.2012, 19:44

А это события контрола
ЦЭ1 - это ты так его назвал, а еще единицу бейсик тебе добавил.

добавишь ещё один элемент, будет ЦЭ2

@Ципихович Эндрю · 20.04.2012, 19:50 **[ТС]**

отвлечённый вопрос в в Ворде 2003, вкладка элементы управления, есть кнопка молоток с ключом - Элемент управления OCX, нажимаем и там две верхние строчки начинаются с ":-)" как они умудрились сделать?, ведь это не допустимые символы

SoftIce · 20.04.2012, 19:57

у меня 2007, что то не нашёл этих смайликов, так что ничего не могу сказать.

@Ципихович Эндрю · 20.04.2012, 20:04 **[ТС]**

в файле скрин

@Ципихович Эндрю · 20.04.2012, 20:10 **[ТС]**

подскажите, что за сообщение
Ошибка компиляции
Ожидаемый:выражение
В строке Publlic Sub ZigZag_Initialize() выделает именно Sub??

Новые блоги и статьи Все статьи Все блоги /
тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .	мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .	Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .
сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых anaschu 25.07.2026 Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.	сукцессия 43. Вторая научная статья за месяц- прайминг и гатгил anaschu 25.07.2026 две стороны одной монеты	Более приземисто - Эстафету хвоста в .cdl (деревья эстафеты в сад). Hrethgir 24.07.2026 В будущем, после написания блока инверсии обхода дерева (эстафеты хвоста), я планирую вернуться к нашему прошлому разговору о том, обладают ли знания целеполаганием. Тогда я пришел к выводу, что. . .	Вот представьте что вам дали бессмертие. kumehtar 24.07.2026 Вот представьте что вам дали бессмертие, ничего более не меняя. Вообще ничего, только бессмертие в нынешнем виде. Рады были бы? Что бы вы тут делали всё это время? Никакой пенсии. Никакого нового. . .

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	20.04.2012, 14:48
	А дальше - всё Что ещё непонято ? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	20.04.2012, 15:03
	А дальше пользоваться свойствами и методами, которыми ты его наделил. 0

@Ципихович Эндрю 1713 / 580 / 76 Регистрация: 10.04.2009 Сообщений: 9,337
	20.04.2012, 15:14 [ТС]
	ну начнём с конечной цели, Ворд 2003, вкладка элементы управления, есть кнопка молоток с ключом, как добиться чтобы там появился этот ЦЭКомбобоксБуттон?? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	20.04.2012, 15:55
	Зарегистрировать. Хотя при компиляции, вроде, бейсик сам это делает. Но не уверен 1

@Ципихович Эндрю 1713 / 580 / 76 Регистрация: 10.04.2009 Сообщений: 9,337
	20.04.2012, 16:01 [ТС]
	а чтобы зарегистрировать, надо чтобы был файл .ocx далее в Ворде 2003, вкладка элементы управления, есть кнопка молоток с ключом нажимаем и там выбираем этот .ocx файл и регистрируем его, так? 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	20.04.2012, 17:02
	с Public работает Миниатюры 1

@Ципихович Эндрю 1713 / 580 / 76 Регистрация: 10.04.2009 Сообщений: 9,337
	20.04.2012, 17:29 [ТС]
	запутаться можно 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	20.04.2012, 19:36
	Да, но это событие комбоБокса а не контрола. И наружу видны только Public процедуры Пока у твоего контрола один метод: Миниатюры 1

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	20.04.2012, 19:44
	А это события контрола ЦЭ1 - это ты так его назвал, а еще единицу бейсик тебе добавил. добавишь ещё один элемент, будет ЦЭ2 Миниатюры 1

@Ципихович Эндрю 1713 / 580 / 76 Регистрация: 10.04.2009 Сообщений: 9,337
	20.04.2012, 19:50 [ТС]
	отвлечённый вопрос в в Ворде 2003, вкладка элементы управления, есть кнопка молоток с ключом - Элемент управления OCX, нажимаем и там две верхние строчки начинаются с ":-)" как они умудрились сделать?, ведь это не допустимые символы 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	20.04.2012, 19:57
	у меня 2007, что то не нашёл этих смайликов, так что ничего не могу сказать. 0

@Ципихович Эндрю 1713 / 580 / 76 Регистрация: 10.04.2009 Сообщений: 9,337
	20.04.2012, 20:10 [ТС]
	подскажите, что за сообщение Ошибка компиляции Ожидаемый:выражение В строке Publlic Sub ZigZag_Initialize() выделает именно Sub?? 0