Как расположить форму по центру экрана?

[1]

Форма - немодальное всплывающее окно.

Подскажите как расположить такую форму по центру экрана.

Можно использовать:

Код: Выделить всё

DoCmd.MoveSize

с указанием координат формы.

Есть ли какие-нибудь еще идеи?

[codemaster]

попробуй так

Код: Выделить всё


Private Sub Form_Load()
.......
  CenterForm Me
........

 
End Sub

' Public Sub CenterForm(frm As Form)

  frm.TOp = (Screen.height - frm.height) / 2
  frm.Left = (Screen.width - frm.width) / 2
 
End Sub




[1]

Что-то не работает.

[Sedge]

StartUpPosition = CenterScreen не подходит?

[1]

Нет, не работает.

[codemaster]

попробуй так

Код: Выделить всё

Private Sub Form_Load()
  CenterForm Me
End Sub

Public Sub CenterForm(frm As Form)
  frm.TOp = (Screen.height - frm.height) / 2
  frm.Left = (Screen.width - frm.width) / 2
 
End Sub



[Sedge]

Нет, не работает.

Каким именно боком не работает? Просто не работает или не работает с сообщением об ошибке? Код можешь показать?

[1]

Код: Выделить всё

Private Sub Form_Load()
  CenterForm Me
End Sub

Public Sub CenterForm(frm As Form)
  frm.Top = (Screen.Height - frm.Height) / 2
  frm.Left = (Screen.Width - frm.Width) / 2
End Sub

При загрузке формы она появляется вверху экрана. Сообщений об ошибке нет. Просто не происходит предполагаемого результата центрирования.

[alibek]

Поставь StartupPosition в Manual.

[1]

Прости за дурацкий вопрос.

Как поставить в manual?

[Konst_One]

так ты в Access что-ли форме это делаешь?
там такое не пройдет, см. параметры самой формы в режиме редактирования, помниться там что-то было похоже на центрирование

[v-adix]

Код: Выделить всё

Private Sub Form_Load()
  CenterForm Me
End Sub

Public Sub CenterForm(frm As Form)
  frm.Top = (Screen.Height - frm.Height) / 2
  frm.Left = (Screen.Width - frm.Width) / 2
End Sub

При загрузке формы она появляется вверху экрана. Сообщений об ошибке нет. Просто не происходит предполагаемого результата центрирования.

у меня все работает нормально с StartUpPosition равным Manual или WindowsDefault!

[1]

Форма в Access 2000.

[Sedge]

Форма в Access 2000.

Мдя... Аууу, телепаты! Сюда!
В свойствах формы установи "Выравнивание по центру" в "Да".

[Konst_One]

вот-вот Sedge тебе правильно толкует - слушай его, а то мы тут уже запарились за тебя думать

[1]

Неужели вы могли подумать, что я не пробовал функцию: "Выравнивание по центру - Да".

С таким выравниванием форма действительно центрируется, но только внутри Accessa. А за пределами его - нет.

Мне необходимо, чтобы можно было осуществить выравнивание за пределами окна Access.

Извините, что сразу не сказал про Access.