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

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

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.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

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

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

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

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

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

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