重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Form窗体有一个属性是StartPosition,把它设置为CenterScreen就是居中。
创新互联专业为企业提供果洛州网站建设、果洛州做网站、果洛州网站设计、果洛州网站制作等企业网站建设、网页设计与制作、果洛州企业网站模板建站服务,10多年果洛州做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
代码为 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
就是让窗体居中啦~
Private Sub Form_Resize()
Command1.Top = (Me.Height - Command1.Height) \ 2
Command1.Left = (Me.Width - Command1.Width) \ 2
End Sub
把Command1换成你想要居中的控件名就可以了。
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
就是让窗体居中啦~
选中控件,格式-对齐-居中对齐,所有选中的控件将以你最后选的那个控件位置为标准对齐
实现vb程序全屏运行。
1.打开Microsoft Visual Studio 2008/2010或者Visual basic应用软件;
2.新建一个windows窗体应用程序;
3.选中窗体,在右下角窗体属性中找到windowstate和formborderstyle两项。分别将其属性更改为Maximized和None(windowstate:Maximized/formborderstyle:None);
4.按F5运行看看是不是已经全屏运行了。
实现vb程序居中运行。
在主窗体的Form_load()中的最前面加入下列代码:
Dim X0 As long
Dim Y0 As Long
'让窗体居中
X0=Screen.Width
Y0=Screen.Height
X0=(X0-Me.Width)/2
Y0=(Y0-Me.Height)/2
Me.MoveX0,Y0-