form窗體有一個屬性是startposition,把它設(shè)置為centerscreen就是居中。
創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供桐梓網(wǎng)站建設(shè)、桐梓做網(wǎng)站、桐梓網(wǎng)站設(shè)計、桐梓網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計與制作、桐梓企業(yè)網(wǎng)站模板建站服務(wù),10多年桐梓做網(wǎng)站經(jīng)驗,不只是建網(wǎng)站,更提供有價值的思路和整體網(wǎng)絡(luò)服務(wù)。
代碼為
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
就是讓窗體居中啦~
方法如下:
1、打開例1.1創(chuàng)建的工程。
2、選擇窗體Form1并雙擊該窗體,出現(xiàn)窗體的調(diào)事件的過程代碼體。
3、在窗體調(diào)用的過程代碼體中編制如下過程代碼:
Private Sub Form_Load()
Form1.Width = 4860
Form1.Height = 2520
End Sub
4、設(shè)置窗體Form1的SartUpPosition屬性為2-屏幕中心,這樣運(yùn)行窗體可以發(fā)現(xiàn),屏幕的大小與例1.6中通過屬性設(shè)置的大小是一致的。
你的 Me.StartPosition =FormStartPosition.CenterScreen 寫在哪的?
寫在Form_Load事件里是不起作用的(也不叫不起作用,只是那個時候窗體已經(jīng)不算Start了),一般代碼是這樣寫,在Form1中的某個地方
Dim frm As New Form2
frm.StartPosition =FormStartPosition.CenterScreen
frm.ShowDialog()
如果你一定要在Form2中通過代碼設(shè)置,可以把Me.StartPosition =FormStartPosition.CenterScreen移到Form2的構(gòu)造函數(shù)中。