Установил на Label фокус получаем сообщение
Cant move focus to the control because it is invisible, not enabled or of a type that does not accept the focus
Гугл перевёл -
Не удается переместить фокус на контроль, потому что это невидимый, не включен или тип, который не принимает в центре внимания
Форма как форма за исключением того, что она сделана следующим образом:
имеет в углу три кнопки свернуть, свернуть в окно, закрыть, а также сворачивается в файл

Что данное сообщение обозначает???

mds_world, то есть если сильно хочется то никак???

а если на форму Котрол NavBarCtl1 или Фрейм, на него Лейбл и фокус на Котрол NavBarCtl1 или Фрейм почти то что нужно, есть подводные камни???
кто нибудь использует Котрол NavBarCtl1, на практике для чего нужен??

basicv, согласен, делать так по взрослому, день потерять придётся, мир, труд, май, актуальноУ меня почему метка, потому, что до этого был текст бокс, я с ним замаялся с фокусом, плюнул и сделал меткой
Тогда начну снова метку прикручивать, если что детально спрошу

ну что сейчас создал форму UserForm3, в её инициализации


Запускаю, нет фокуса на TextBox1, но я не говорил, что запускаю её в модальном режиме UserForm3.Show 0.1, вот видимо отсюда проблемы

Но в то же время, запускаю форму в инициализации ничего о фокусе не пишу и получаю - фокус на 1 кнопке, не поддаётся логике

одна и та же форма, запускаю
Me.CommandButton9я.SetFocus - ОК фокус на 9й кнопке
Me.TextBox1.SetFocus - нет фокуса нигде, ересь!!!!!!????

Изменения прошли, сообщение Change получил, фокус увы нет, ЕРЕСЬ!!!!!!!

qwerty112,
>что значит "фокус увы нет" ?
скажем по другому курсор в Текбоксе не стоит и нажимая на клавиши клавиатуры Ц и Э в тексбокс на попадает ЦЭ

всё понял, надо рассказать с самого начала, запускаю форму в ВБА модальном режиме так как это не является помехой для осуществления других действий. Форма запускается с тремя кнопками в углу, как в ВБ 6.
Там есть тексбокс, в него надо ввести три цифры, для любителей ввода с клавиш клавиатуры и мыши надо это удовлетворить. Чтобы мишью клацать есть 10 кнопок, 1-0, это я сделал, а как организовать с ввод в текстбок с клавы?? И чтобы курсор был всегда в тексбоксе??? Спасибо

И ещё забыл спросить: Подскажите пожалуйста, как заголовок формы убрать??
Спасибо

Shocker.Pro, ели бы у меня столько было в коде кнопки как у Вас:

вопросов бы не было
я же сказал
Форма как форма за исключением того, что она сделана следующим образом:
имеет в углу три кнопки свернуть, свернуть в окно, закрыть, а также сворачивается в файл

AndreTM, форма в ВБА только с крестиком в углу, мне даром не нужна
Что делать?
Ответ ВБ 6
Пробовал не понравилось
Спросил на форуме подсказали, есть форма в Ворде как в ВБ 6, как в Ворде, по человечески
Даже есть два варианта, одна сворачивается в панель задач, тут уж Вы не поспорите, а вторая ну я назвал "сворачивается в файл", ну не знаю как назвать по другому, сворачивается в левый нижний угол файла в аккурат выше кнопки пуск. Предложите своё название, кнопка ЦЭ, пойдёт??
Хотите верьте, хотите проверьте: http://www.sql.ru/forum/actualthread.aspx?tid=846212
По теме, что нибудь есть, давайте её раскачаем, ОК???
Фокус нужен внятный, курсор нужен предсказуемый, ОК???
И Вас с праздником

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

VladConn, спасибо посмотрю
левый нижний угол файла? - в то же время я уточняю - в аккурат выше кнопки пуск!!!!!!!
Взлетим не взлетим
Я же говорю дайте имя формам, буду пользоваться

VladConnИмя формам? Окна это... Аха...
и что не уточнять, что она человеческая с тремя кнопками в углу, ладно проехали
По теме, посмотрел
клад знаний с 21 июня 2005 года, ОК!!!
Качнул Эксель файл, импортировал в Ворд Тест форму и класс к ней, пытаюсь запустить
в Private Sub UserForm_Resize()
на строке
dFrameCols = Application.Max(1, (Me.InsideWidth - dGAP * 3 - (.Width - .InsideWidth)) \ (cbMaximize.Width + dGAP))
выделяет .Max - сообщает функция не определена
в то же время форма на листе появляется, но я её вижу только с одной кнопкой в углу
Говорю же такая с одной кнопкой мне не нужна, и даром не нужна, нужна с тремя кнопками, а лучше с двумя - свернуть, закрыть
Что надо исправить?? если исправлю сколько кнопок будет в углу формы???

VladConn, из сказанного я понял, что надо
EXCEL заменить на WORD, но там не упоминается приложение EXCEL, вернее оно есть но заремарчено
?????
Хочу Ваш пример всё же разобрать, что надо менять??
2

Заменил Лабел на РичТекстБокс, он более мне нравится в отношении с ТекстБоксом
написал процедуру активации и фокус при появлении формы находится в РичТекстБоксе
ОК!!!
после нажатия любой клавиши в обработчике пишу, чтобы фокус был в РичТекстБоксе
и курсор встаёт в крайнее левое положение в РичТекстБоксе
а как указать, чтобы он вставал следом за последним введённым знаком???

3
>В том примере, что я дал, как раз все три кнопки....
А можно среднюю кнопку из 3 з выкинуть?? как?

VladConnнадо использовать свойство SelStart...
ну попробую в РичТекстБоксе, есть пример, в справке глянул, опробовал, что-то не понятное с курсором происходит

Ещё хотел сросить
Строка Private Sub UserForm_Resize() - понятно, когда пользователь нажал Свернуть или Свернуть в окно, можно как то разграничить какую именно кнопку нажал????
И если он нажал Развернуть как высчитать, чтобы форма развернулась до такого размера, до максимального размера, чтобы не было места на форме которое не задействовано, ну то есть если форма была маленькая она разворачивается, сама прислоляется к левому верхнему углу монитора, а справа от неё и снизу появляются прямоугольники, как бы не мешают, но если есть возможность почему бы не устранить
То есть чтобы она развернулась при этом маштабировалась на сколько это возможно