Поместить UserControl на одну из вкладок TabControl

@Darkvoid · Регистрация: 16.10.2012

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

Как подключить userControl которые у меня имеются в программе к tabControl на форме?
В с# это делалось так:

C#
1
2
UserControl1 user1 = new UserControl1();
            tabControl1.TabPages[1].Controls.Add(user1);

А как в VBA?

Памирыч · 14.06.2014, 20:56

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

В с# это делалось так:

Попробуйте и тут точно так же

VB.NET
1
2
Dim User1 As New UserControl1
TabControl1.TabPages(1).Controls.Add(User1)

ПС: Код с коленки

Добавлено через 1 минуту

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

VBA?

Вы наверно ошиблись, в VBA таких плюшек нет и на пушечный выстрел

@Darkvoid · 14.06.2014, 21:08 **[ТС]**

Сообщение от Памирыч

VB.NET
1
2
Dim User1 As New UserControl1
TabControl1.TabPages(1).Controls.Add(User1)

Шикардос, спс)

Добавлено через 6 минут
Памирыч, еще вопрос, я вот добавил эту вкладку, она видима в tabControl
Вопрос вот в чем, я через кнопки меняю оформление вкладок (цвет, картинка)
Цвет проходит по вкладкам, так и по UserContol, а картинка не грузится уже на фон UserControl

VB.NET
1
2
3
4
5
6
7
For Each tb As TabPage In tabControl1.TabPages
            If (tb IsNot Nothing) Then
                Dim img As Image = Image.FromFile("Data\Img\Fire.jpg")
                tb.BackgroundImageLayout = ImageLayout.Stretch
                tb.BackgroundImage = img
            End If
        Next

Код прогрузки картинки

VB.NET
1
2
3
4
5
6
For Each tb As TabPage In tabControl1.TabPages
            If (tb IsNot Nothing) Then
                BackgroundImage = Nothing
                tb.BackColor = Color.White
            End If
        Next

как сделать так, чтобы и картинка ставилась на задний фон, не только цвет

Добавлено через 3 минуты

VB.NET
1
2
3
4
5
6
7
For Each tb As TabPage In tabControl1.TabPages
            If (tb IsNot Nothing) Then
                Dim img As Image = Image.FromFile("Data\Img\Fire.jpg")
                Dim User1 As EVM
                User1.BackgroundImageLayout = ImageLayout.Stretch
                User1.BackgroundImage = img
            End If

Пытался сделать так

Памирыч · 14.06.2014, 21:13

Ну по идее (юзерконтролла нет под рукой), к этим компонентам на вкладках можно обратиться и не в цикле по вкладкам

VB.NET
1
2
3
4
User1.BackgroundImage = img
User2.BackgroundImage = img
User3.BackgroundImage = img
User4.BackgroundImage = img

Проверьте, как они у Вас называются там на вкладках

Если кроме юзерконтролла на вкладках больше ничего нет, то можно так

VB.NET
1
2
3
4
5
        For Each tb As TabPage In TabControl1.TabPages
            If (tb IsNot Nothing) Then
                tb.Controls(0).BackgroundImage = img
            End If
        Next

@Darkvoid · 14.06.2014, 21:21 **[ТС]**

Памирыч, без толку, проходит только цвет, картинка не грузится на userControl, только на TabPage

Памирыч · 14.06.2014, 21:59

Darkvoid, я поместил на вкладки простые кнопки и:

VB.NET
1
2
3
4
5
6
        Dim img As Image = Image.FromFile("C:\1.jpg")
        For Each tb As TabPage In TabControl1.TabPages
            If (tb IsNot Nothing) Then
                tb.Controls(0).BackgroundImage = img
            End If
        Next

Повторюсь, что на вкладке только кнопка. Поэтому индекс - Ноль.
Если еще что-то есть, то уже не прокатит.
Вы бы прикрепили сюда этот юзерконтрол чтоли... Или скрин вкладки сделали.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@Darkvoid 8 / 8 / 10 Регистрация: 16.10.2012 Сообщений: 523
	14.06.2014, 21:21 [ТС]
	Памирыч, без толку, проходит только цвет, картинка не грузится на userControl, только на TabPage 0

Поместить UserControl на одну из вкладок TabControl

Решение