NJCorp:
Хочу переместить форму в цент экрана... Код отрабатывает, и расчёты верные но форма оказывается не по центру. Кто стыкался, в чем проблема.
Код:
Хочу переместить форму в цент экрана... Код отрабатывает, и расчёты верные но форма оказывается не по центру. Кто стыкался, в чем проблема.
Код:
| Private Sub CommandButton1_Click() Dim xlScrH As Integer, xlScrV As Integer xlScrH = GetSystemMetrics(0) xlScrV = GetSystemMetrics(1) Me.Left = (xlScrH - Me.Width) / 2 Me.Top = (xlScrV - Me.Height) / 2 End Sub |