powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Мучаю форму - надо, чтоб форма открывалась посередине экрана
8 сообщений из 8, страница 1 из 1
Мучаю форму - надо, чтоб форма открывалась посередине экрана
    #32328071
And-Rey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Знатоки, плиз скажите что необходимо добавить в код чтоб форма "CACFQ" открывалась именно посередине экрана.Форма имеет всего три поля... и при нажатии кнопки эти три поля выскакивают в верхнем левом углу а я б хотел чтоб она повисла над формой,где нажимаю кнопку.Заранее спасибо.

Private Sub Command20_Click()
On Error GoTo Err_Command20_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "CACFQ"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command20_Click:
Exit Sub
Err_Command20_Click:
MsgBox Err.Description
Resume Exit_Command20_Click
End Sub
...
Рейтинг: 0 / 0
Мучаю форму - надо, чтоб форма открывалась посередине экрана
    #32328075
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Именно в середине экрана - свойство AutoCenter=True. В каком-то другом заданном месте - гораздо сложнее.
...
Рейтинг: 0 / 0
Мучаю форму - надо, чтоб форма открывалась посередине экрана
    #32328255
And-Rey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо.С позиционированием в другом месте почитаю что-нить по сайтам...Тоже интересно.
Но если есть ссылочка буду рад...
...
Рейтинг: 0 / 0
Мучаю форму - надо, чтоб форма открывалась посередине экрана
    #32328279
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
С позиционированием в другом месте

см. справку по методу DoCmd.MoveSize

Единственное с чем придется помучаться так это с определением абсолютных координат нажатой кнопки. Т.к. координаты кнопки определяются во-первых относительно формы, во-вторых относительно секции, в которой кнопка находится, а в-третьих сама форма имеет координаты.
...
Рейтинг: 0 / 0
Мучаю форму - надо, чтоб форма открывалась посередине экрана
    #32329248
And-Rey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Владимир Саныч,

Помоему у меня очередной глюк.
Попробовал в свойствах формы в On Open поставить :

Private Sub Form_Open(Cancel As Integer)
Me.AutoCenter=True
End Sub

Акцесс повис при выходе из дизайн в форм wiev.
Попытался еще пару раз... аналогичный результат...
Есть комментарий ?

Андрей
...
Рейтинг: 0 / 0
Мучаю форму - надо, чтоб форма открывалась посередине экрана
    #32329253
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
А почему именно в OnOpen? Почему не просто в конструкторе раз и навсегда?
...
Рейтинг: 0 / 0
Мучаю форму - надо, чтоб форма открывалась посередине экрана
    #32329401
And-Rey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ах вот и мне ответ почему виснет...
В конструкторе стоит Auto Center : "Yes". Похоже виснет как раз потому,что второй раз задаю параметр.
Дак вот. Тем не менее... Странно но факт. Формочка из трех полей открывается на весь экран в левом верхнем углу.Хотя я хочу чтоб она зависала над предидущей формой посередине экрана.При этом конечно все оставшееся окно Акцеса закрашивается в цвет этой формы.
Буду дальше мучать...
...
Рейтинг: 0 / 0
Мучаю форму - надо, чтоб форма открывалась посередине экрана
    #32329407
And-Rey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всё.. :) Как всегда всё элементарное просто... :)) Поиграл со свойствами формы и... Pop up поставил на Yes,Modal поставил на Yes,чтоб предидущая форма замирала... и все стало ОК. :) Все как хочу :)
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Мучаю форму - надо, чтоб форма открывалась посередине экрана
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]