Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Мучаю форму - надо, чтоб форма открывалась посередине экрана / 8 сообщений из 8, страница 1 из 1
19.11.2003, 00:45
    #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
19.11.2003, 01:06
    #32328075
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мучаю форму - надо, чтоб форма открывалась посередине экрана
Именно в середине экрана - свойство AutoCenter=True. В каком-то другом заданном месте - гораздо сложнее.
...
Рейтинг: 0 / 0
19.11.2003, 10:35
    #32328255
And-Rey
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мучаю форму - надо, чтоб форма открывалась посередине экрана
Спасибо.С позиционированием в другом месте почитаю что-нить по сайтам...Тоже интересно.
Но если есть ссылочка буду рад...
...
Рейтинг: 0 / 0
19.11.2003, 10:52
    #32328279
incold
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мучаю форму - надо, чтоб форма открывалась посередине экрана
С позиционированием в другом месте

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

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

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

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

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

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


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