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

@Ципихович Эндрю · Регистрация: 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??

Новые блоги и статьи Все статьи Все блоги /
Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.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

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

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

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,330
	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

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,330
	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

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,330
	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

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