2020年7月10日 星期五

vb.net 取得螢幕解析度 [Get Screen Resolution] 


1
2
3
4
5
6
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Dim ScrnSize As Size = Screen.PrimaryScreen.WorkingArea.Size
        Dim ScrnSize As Size = My.Computer.Screen.Bounds.Size
        MsgBox("Screen Width: " & ScrnSize.Width)
        MsgBox("Screen Height: " & ScrnSize.Height)
    End Sub
於
標籤： , , , ,

沒有留言:

張貼留言

訂閱： 張貼留言 (Atom)