Выделение текста в TextBox при запуске МОДАЛЬНОЙ формы

@ogkornilov · Регистрация: 14.10.2020

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

Здравствуйте!

Столкнулся со следующей проблемой. Имеются две одинаковые формы, единственное отличие в них - одна форма модальная (т. е. при запущенной форме можно работать с листом книги), другая - обычная.

На обоих формах есть TextBox. При запуске форм стоит один и тот же макрос на выделение текста внутри текстбокса.

Собственно проблема в следующем: В модальной форме текст не выделяется, тогда как в немодальной - все работает отлично.

Есть ли какой-то способ выделения текста при запуске модальной формы? Не могу найти решение

@ogkornilov · 30.04.2021, 11:48 **[ТС]**

Прикрепляю файл, почему-то в теме не прикрепился

@КостяФедореев · 30.04.2021, 11:49

ogkornilov, а как вы выделяете текст в текстбоксе?

@ogkornilov · 30.04.2021, 11:57 **[ТС]**

Сообщение от КостяФедореев

как вы выделяете

Visual Basic
1
2
3
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)

В модальной форме фокус не устанавливается, почему-то

@КостяФедореев · 30.04.2021, 12:03

ogkornilov, так попробуйте

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
'в модуль формы
Private Sub TextBox1_Enter()
    Set objTxtb = TextBox1
    Application.OnTime Now, "SelTxt"
End Sub
'в стандартный модуль
Public objTxtb As Object
Sub SelTxt()
    If objTxtb.Text = "" Then Exit Sub
    objTxtb.SetFocus
    objTxtb.SelStart = 0
    objTxtb.SelLength = objTxtb.TextLength
End Sub

@ogkornilov · 30.04.2021, 12:14 **[ТС]**

КостяФедореев, ругается на

Visual Basic
1
If objTxtb.Text = "" Then

@КостяФедореев · 30.04.2021, 12:17

ogkornilov, что пишет? я не экстрасенс...

@ogkornilov · 30.04.2021, 12:18 **[ТС]**

КостяФедореев, error 424 "Object required"

@КостяФедореев · 30.04.2021, 12:24

ogkornilov, у Вас точно TextBox1 с индексом "1"?

@ogkornilov · 30.04.2021, 12:34 **[ТС]**

КостяФедореев, да, точно.
Если у вас есть возможность, я прикрепил файл во втором сообщении темы, можете посмотреть https://www.cyberforum.ru/post15459160.html

@КостяФедореев · 30.04.2021, 12:43

ogkornilov, внимательно посмотрите код
и на индексы контролов

@ogkornilov · 30.04.2021, 14:26 **[ТС]**

КостяФедореев, спасибо вам огромное, все работает!

Добавлено через 43 минуты
КостяФедореев, Теперь другая проблема

После того, как изменяется текст в textbox и форма закрывается через Me.Hide (поставил на крестик, чтобы форма не закрывалась, а сворачивалась)

Visual Basic
1
2
3
4
5
6
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        Cancel = True
        Me.Hide
    End If
End Sub

то при открытии формы текст перестает выделяться...

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

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

то при открытии формы текст перестает выделяться

Разобрался. Нужно сделать переключение фокуса на что-то другое, например на кнопку, а затем снова на msgbox, тогда все выделится. В данном случае

Visual Basic
1
2
3
4
Private Sub UserForm_Activate()
    CommandButton1.SetFocus
    Application.OnTime Now, "SelTxt"
End Sub

или

Visual Basic
1
2
3
4
5
6
Private Sub UserForm_Activate()
    CommandButton1.SetFocus
    TextBox1.SetFocus
    TextBox1.SelStart = 0
    TextBox1.SelLength = TextBox2.TextLength
End Sub

Новые блоги и статьи Все статьи Все блоги /
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, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@ogkornilov 0 / 0 / 0 Регистрация: 14.10.2020 Сообщений: 28

	Выделение текста в TextBox при запуске МОДАЛЬНОЙ формы 30.04.2021, 11:45. Показов 3514. Ответов 11 Метки excel, form, forms, textbox, vba, выделение, форма (Все метки) Здравствуйте! Столкнулся со следующей проблемой. Имеются две одинаковые формы, единственное отличие в них - одна форма модальная (т. е. при запущенной форме можно работать с листом книги), другая - обычная. На обоих формах есть TextBox. При запуске форм стоит один и тот же макрос на выделение текста внутри текстбокса. Собственно проблема в следующем: В модальной форме текст не выделяется, тогда как в немодальной - все работает отлично. Есть ли какой-то способ выделения текста при запуске модальной формы? Не могу найти решение 0

@КостяФедореев Часто онлайн 987 / 637 / 280 Регистрация: 09.01.2017 Сообщений: 2,080
	30.04.2021, 11:49
	ogkornilov, а как вы выделяете текст в текстбоксе? 0

@КостяФедореев Часто онлайн 987 / 637 / 280 Регистрация: 09.01.2017 Сообщений: 2,080
	30.04.2021, 12:17
	ogkornilov, что пишет? я не экстрасенс... 0

@ogkornilov 0 / 0 / 0 Регистрация: 14.10.2020 Сообщений: 28
	30.04.2021, 12:18 [ТС]
	КостяФедореев, error 424 "Object required" 0

@КостяФедореев Часто онлайн 987 / 637 / 280 Регистрация: 09.01.2017 Сообщений: 2,080
	30.04.2021, 12:24
	ogkornilov, у Вас точно TextBox1 с индексом "1"? 0

@ogkornilov 0 / 0 / 0 Регистрация: 14.10.2020 Сообщений: 28
	30.04.2021, 12:34 [ТС]
	КостяФедореев, да, точно. Если у вас есть возможность, я прикрепил файл во втором сообщении темы, можете посмотреть https://www.cyberforum.ru/post15459160.html 0

Выделение текста в TextBox при запуске МОДАЛЬНОЙ формы

Решение