VB2008 设置form窗体的位置

最新推荐文章于 2024-04-23 14:42:20 发布

原创最新推荐文章于 2024-04-23 14:42:20 发布 · 2.5k 阅读

0 ·

CC 4.0 BY-SA版权

VB.NET编程专栏收录该内容

82 篇文章

订阅专栏

本文介绍如何使用C#编程语言调整窗体的位置和大小，使其能够自动停靠在屏幕的四个角落，并详细解释了实现过程。通过使用计算机屏幕的工作区域尺寸和自定义矩形对象，您可以轻松地将窗体精确放置到屏幕的任意位置。

1.获显示器的当期分辨：My.Computer.Screen.WorkingArea.Size，返回width，height

可以单独获取width或height

My.Computer.Screen.WorkingArea.Size.width

My.Computer.Screen.WorkingArea.Size.height

2.设置窗体位置

屏幕中央：Form1.StartPosition=FormStartPosition.CenterScreen

手动设置：Form1.StartPosition = FormStartPosition.Manual

左100,上100像素：Form1.Location = New Point(100, 100)

单独设置左边距：Form1.Left = 300

单独设置右边距：Form1.top = 300

3．边距和窗体大小一起设置

Dim Myrect as new rectangle(200,100,300,300)

或单独设置

Dim myrect As New Rectangle

myrect.X = 200

myrect.Y = 100

myrect.Width = 300

myrect.Height = 300

假设我的form1窗体的大小是400*400，我要设置往屏幕四个角落停靠，往边上托，就可以自动停在角落

Private Sub MyNoteBook_Move(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Move   '设置窗体往四个角落停靠方法
        Dim FormX As Int32 = My.Computer.Screen.WorkingArea.Width - 400
        Dim FormY As Int32 = My.Computer.Screen.WorkingArea.Height - 400
        If Me.Location.X < 0 And Me.Location.Y < 0 Then
            Me.Location = New Point(0, 0)
        ElseIf Me.Location.X < 0 And Me.Location.Y > FormY Then
            Me.Location = New Point(0, FormY)
        ElseIf Me.Location.X > FormX And Me.Location.Y < 0 Then
            Me.Location = New Point(FormX, 0)
        ElseIf Me.Location.X > FormX And Me.Location.Y > FormY Then
            Me.Location = New Point(FormX, FormY)
        End If
    End Sub