vb.net修改窗口位置 vb代码编辑窗口

vb.net 窗体位置

form窗体有一个属性是startposition，把它设置为centerscreen就是居中。

代码为

me.startposition

=

formstartposition.centerscreen。

如果是非要计算分辨率的话：

my.computer.screen.bounds.width

是分辨率中的宽度

my.computer.screen.bounds.height

是分辨率中的高度

那么

me.top

=

(my.computer.screen.bounds.height

-

me.height)

/

2

me.left

=

(my.computer.screen.bounds.width

-

me.width)

/

2

就是让窗体居中啦～

相关问答

Q1: vb 用代码如何调节窗口的大小和位置

vb中调节窗口的大小和位置使用move方法。

Move方法的语法如下vb.net修改窗口位置：

[object.]Move left , top, width, height

object 是被移动的窗体或控件。如果省略了 objectvb.net修改窗口位置，则移动的是当前窗体。left 和 top 参数是 object 对象的 Left 和 Top 属性的新设置值，而 width 和 height 则是它的 Width 和 Height 属性的新设置值。其中，只有 left 是必须的，但是，若要指定其它参数时，就必须一并指定参数列表中出现在指定参数之前的所有参数。

例子1：

功能：移动窗体让窗口位于右上角。

语句：Me.Move Screen.Width-me.width, 0

说明：Screen.Width-me.width是屏幕宽度减去窗体宽度，即窗体距离屏幕左边的距离

例子2：

功能：使窗体窗口与屏幕大小相同，一般用于窗体最大化或全屏程序功能

语句：Me.Move 0, 0, Screen.Width, Screen.Height

Q2: 急！！在VB.NET中窗口位置调整问题！！！！

'点击窗口的任何位置拖动窗体

Dim ctX As Single, ctY As Single

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

ctX = X: ctY = Y

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

Me.Left = Me.Left + X - ctX

Me.Top = Me.Top + Y - ctY

End If

End Sub

关于vb.net修改窗口位置和vb代码编辑窗口的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。