VB NET 获取屏幕的大小
--------------------------------------------------------------------------------------------------------------
1 [ My.Computer.Screen.Bounds ]和[ Screen.PrimaryScreen.Bounds ]都是一样的 。
 
--------------------------------------------------------------------------------------------------------------
My.Computer.Screen.Bounds.Height.ToString   ’获取屏幕的高度 。
My.Computer.Screen.Bounds.Width.ToString    ’获取屏幕的长度 。
 
---------------------   屏幕的高度和长度, 在文本框上显示
      ’获取屏幕的高度，在文本框上显示 。
TextBox1.Text = My.Computer.Screen.Bounds.Height.ToString
      ’获取屏幕的长度，在文本框上显示 。
TextBox2.Text = My.Computer.Screen.Bounds.Width.ToString
      ’获取屏幕的高度和长度，在文本框上显示 。   [1050*1400]
TextBox3.Text = My.Computer.Screen.Bounds.Height.ToString & "*" & My.Computer.Screen.Bounds.Width.ToString
      ’获取屏幕的长度和高度，在文本框上显示 。   [1400*1050]
TextBox4.Text = My.Computer.Screen.Bounds.Width.ToString & "*" & My.Computer.Screen.Bounds.Height.ToString
 
---------------------  將程序窗口放在屏幕的中间
 
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim i1, i2 As Integer     '用整数类型 。
        i1 = My.Computer.Screen.Bounds.Height.ToString  '获取屏幕的高度 。
        i2 = My.Computer.Screen.Bounds.Width.ToString   '获取屏幕的长度 。
        Me.Top = i1 \ 2 - Me.Height \ 2         '將程序窗口放在屏幕的中间，顶部设置 。
        Me.Left = i2 \ 2 - Me.Width \ 2        '將程序窗口放在屏幕的中间，左边设置 。
    End Sub
 
--------------------------------------------------------------------------------------------------------------
              用[ Screen.PrimaryScreen.Bounds ]，获取显示屏幕的高度和长度
TextBox1.Text = Screen.PrimaryScreen.Bounds.Height.ToString & "*" & Screen.PrimaryScreen.Bounds.Width.ToString
 
=================================================================================================================