Положение формы при открытии

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Положение формы при открытии (Положение формы в зависимости от положения предыдущей формы)

Положение формы при открытии

Otter

Дата: Четверг, 06.09.2018, 10:57 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

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

Что в итоге нужно:
- переместили форму 1 и при открытии формы 2 она на то же месте, где была форма 1.
- переместили форму 2 и запустили из нее форму 1 и она то же на том же месте, где была ранее форма 2.

К сообщению приложен файл: Doc1.docm (25.9 Kb)

Ответить

_Boroda_

Дата: Четверг, 06.09.2018, 11:09 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16745

Репутация: 6534 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Private Sub CommandButton1_Click()
lf_ = UserForm2.Left
tp_ = UserForm2.Top
Unload Me
UserForm1.Show vbModeless
UserForm1.Left = lf_
UserForm1.Top = tp_
End Sub

[/vba]

К сообщению приложен файл: Doc1_1.docm (24.8 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Otter

Дата: Четверг, 06.09.2018, 11:19 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

_Boroda_, Спасибо, да так именно что нужно.
Обратил внимание, что надо убрать обновление экрана, а то при переключении видно.
Попробовал код [vba]

Код

Application.ScreenUpdating = False ' Отключаем “мерцание” окна

[/vba]
Что то не работает. Может не туда ставил или по другому как то отключить.

Сообщение отредактировал Otter - Четверг, 06.09.2018, 11:25

Ответить

StoTisteg

Дата: Вторник, 25.09.2018, 10:48 | Сообщение № 4

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

Otter, я не понял логики. Вы отключили обновление экрана, но при этом хотите видеть на нём изменения. Это как?

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

_Boroda_

Дата: Вторник, 25.09.2018, 11:20 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 16745

Репутация: 6534 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата Otter, 06.09.2018 в 11:19, в сообщении № 3 ()

при переключении видно

что? У меня все моментально перепрыгивает
Если у Вас как-то потормознутее работает, то попробуйте так
[vba]

Код

Private Sub CommandButton1_Click()
    lf_ = UserForm1.Left
    tp_ = UserForm1.Top
    Application.ScreenUpdating = 0
    Unload Me
    UserForm2.Show vbModeless
    UserForm2.Left = lf_
    UserForm2.Top = tp_
    Application.ScreenUpdating = 1
End Sub

[/vba]
Но не думаю, что это поможет

Вот так попробуйте
[vba]

Код

Private Sub CommandButton1_Click()
    lf_ = UserForm1.Left
    tp_ = UserForm1.Top
    Unload Me
    With UserForm2
        .Show vbModeless
        .Left = lf_
        .Top = tp_
    End With
End Sub

[/vba]
Хотя не, глупость

Ответить

Otter

Дата: Понедельник, 01.10.2018, 12:45 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

_Boroda_, Спасибо за желание помочь и примеры. Увы оба варианта не помогли.
Да ладно с этим можно смириться главное, что окна не перемещаются в центр.

Ответить

Положение формы при открытии (Положение формы в зависимости от положения предыдущей формы)

Страница 1 из 1
1