form窗體有一個屬性是startposition,把它設(shè)置為centerscreen就是居中。
目前創(chuàng)新互聯(lián)已為上1000家的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)絡(luò)空間、網(wǎng)站托管維護(hù)、企業(yè)網(wǎng)站設(shè)計(jì)、大慶網(wǎng)站維護(hù)等服務(wù),公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長,共同發(fā)展。
代碼為
me.startposition
=
formstartposition.centerscreen。
如果是非要計(jì)算分辨率的話:
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
就是讓窗體居中啦~
實(shí)現(xiàn)vb程序全屏運(yùn)行。
1.打開Microsoft Visual Studio 2008/2010或者Visual basic應(yīng)用軟件;
2.新建一個windows窗體應(yīng)用程序;
3.選中窗體,在右下角窗體屬性中找到windowstate和formborderstyle兩項(xiàng)。分別將其屬性更改為Maximized和None(windowstate:Maximized/formborderstyle:None);
4.按F5運(yùn)行看看是不是已經(jīng)全屏運(yùn)行了。
實(shí)現(xiàn)vb程序居中運(yùn)行。
在主窗體的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-
方法一:
Me.Left=Screen.Width/2-Me.Width/2
Me.Top=Screen.Height/2-Me.Height/2
方法二:
將窗體的StartUpPosition屬性設(shè)為2,屏幕中心