Это «Центр экрана DotNet 4.5 solution », используя SystemParameters вместо System.Windows.Forms или My. Compuer.Screen : Поскольку Windows 8 изменила расчет размера экрана , единственный способ, с которым он работает для меня, выглядит следующим образом:
Private Sub Window_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded
Dim BarWidth As Double = SystemParameters.VirtualScreenWidth - SystemParameters.WorkArea.Width
Dim BarHeight As Double = SystemParameters.VirtualScreenHeight - SystemParameters.WorkArea.Height
Me.Left = (SystemParameters.VirtualScreenWidth - Me.ActualWidth - BarWidth) / 2
Me.Top = (SystemParameters.VirtualScreenHeight - Me.ActualHeight - BarHeight) / 2
End Sub
[/g5]