ku3 的點部落.....

 

有時在介面布局會想知道當下「工作列」的位置和大小，可以這麼做：

 

Public Class Form1
    Private Sub Button1_Click() Handles Button1.Click
        Dim 工作列位置 = ""
        Dim 工作列高 = 0
        Dim 工作列寬 = 0
        Dim w = Screen.PrimaryScreen.Bounds.Width - Screen.GetWorkingArea(New Point()).Width
        Dim h = Screen.PrimaryScreen.Bounds.Height - Screen.GetWorkingArea(New Point()).Height

        If w > 0 Then
            工作列位置 = IIf(Screen.PrimaryScreen.WorkingArea.Left, "左", "右")
            工作列高 = Screen.PrimaryScreen.Bounds.Height
            工作列寬 = w

        ElseIf h > 0 Then
            工作列位置 = IIf(Screen.PrimaryScreen.WorkingArea.Top, "上", "下")
            工作列寬 = Screen.PrimaryScreen.Bounds.Width
            工作列高 = h
        Else
            工作列位置 = "無"
        End If
        MsgBox(
                "工作列位置：螢幕" & 工作列位置 & "方." & vbNewLine & _
                "　　　寬度：" & 工作列寬 & vbNewLine & _
                "　　　高度：" & 工作列高
              )
    End Sub
End Class

 

 

測試一下：

---

ku3