none
如果取得目前營幕解析度? RRS feed

  • 問題

  • 如何取得使用者電腦目前的營幕解析度,如800、600,1024、768…等。

    2006年8月12日 上午 08:57

解答

  • 請參考 System.Windows.Forms.Screen 類別。

    2006年8月12日 上午 09:12
    版主
  •  希孟唯 寫信:
    看不太懂~~我沒看到提到解析度的地方,是bound(取得顯示的界限)嗎?我會用msdn library,且小小我的個性比較ㄍㄥ,一定看好多次,看不懂才問人。不好意思~~我不知道是翻譯的關係,或者撰寫msdn中文繁體版的人太咬文嚼字。雖然msdn library常常幫我很多忙,但我也常常看不懂。可以請大大說白一點說嗎?

    MSDN中即有例子,run一下應可以知道!

    Bound指的是營幕設定的解析度~

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGetScreenInfo.Click

        Dim Index As Integer
        Dim UpperBound As Integer

        ' Gets an array of all the screens connected to the system.

        Dim Screens() As System.Windows.Forms.Screen = _
            System.Windows.Forms.Screen.AllScreens
        UpperBound = Screens.GetUpperBound(0)

        For Index = 0 To UpperBound

            ' For each screen, add the screen properties to a list box.

            ListBox1.Items.Add("Device Name: " + Screens(Index).DeviceName)
            ListBox1.Items.Add("Bounds: " + Screens(Index).Bounds.ToString())
            ListBox1.Items.Add("Type: " + Screens(Index).GetType().ToString())
            ListBox1.Items.Add("Working Area: " + Screens(Index).WorkingArea.ToString())
            ListBox1.Items.Add("Primary Screen: " + Screens(Index).Primary.ToString())

        Next



    End Sub

    2006年8月12日 下午 01:21

所有回覆

  • 請參考 System.Windows.Forms.Screen 類別。

    2006年8月12日 上午 09:12
    版主
  • 看不太懂~~我沒看到提到解析度的地方,是bound(取得顯示的界限)嗎?我會用msdn library,且小小我的個性比較ㄍㄥ,一定看好多次,看不懂才問人。不好意思~~我不知道是翻譯的關係,或者撰寫msdn中文繁體版的人太咬文嚼字。雖然msdn library常常幫我很多忙,但我也常常看不懂。可以請大大說白一點說嗎?
    2006年8月12日 下午 01:02
  •  希孟唯 寫信:
    看不太懂~~我沒看到提到解析度的地方,是bound(取得顯示的界限)嗎?我會用msdn library,且小小我的個性比較ㄍㄥ,一定看好多次,看不懂才問人。不好意思~~我不知道是翻譯的關係,或者撰寫msdn中文繁體版的人太咬文嚼字。雖然msdn library常常幫我很多忙,但我也常常看不懂。可以請大大說白一點說嗎?

    MSDN中即有例子,run一下應可以知道!

    Bound指的是營幕設定的解析度~

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGetScreenInfo.Click

        Dim Index As Integer
        Dim UpperBound As Integer

        ' Gets an array of all the screens connected to the system.

        Dim Screens() As System.Windows.Forms.Screen = _
            System.Windows.Forms.Screen.AllScreens
        UpperBound = Screens.GetUpperBound(0)

        For Index = 0 To UpperBound

            ' For each screen, add the screen properties to a list box.

            ListBox1.Items.Add("Device Name: " + Screens(Index).DeviceName)
            ListBox1.Items.Add("Bounds: " + Screens(Index).Bounds.ToString())
            ListBox1.Items.Add("Type: " + Screens(Index).GetType().ToString())
            ListBox1.Items.Add("Working Area: " + Screens(Index).WorkingArea.ToString())
            ListBox1.Items.Add("Primary Screen: " + Screens(Index).Primary.ToString())

        Next



    End Sub

    2006年8月12日 下午 01:21
  • 我也是覺得程式碼範例都在上面了,弄個測試例跑一下就好了...
    2006年8月12日 下午 02:28
    版主
  • 謝謝大家幫忙~~
    2006年8月13日 上午 01:43