新聞中心
VB如何讓控件在窗體居中?
如下:
創(chuàng)新互聯(lián)是一家專業(yè)提供肥城企業(yè)網(wǎng)站建設(shè),專注與做網(wǎng)站、成都網(wǎng)站制作、HTML5建站、小程序制作等業(yè)務(wù)。10年已為肥城眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)絡(luò)公司優(yōu)惠進(jìn)行中。
Private Sub Form_Resize()
Command1.Top = (Me.Height - Command1.Height) \ 2
Command1.Left = (Me.Width - Command1.Width) \ 2
End Sub
把Command1換成你想要居中的控件名就可以了(正確排版就是上面那樣的)
VB:
Visual Basic(簡稱VB)是Microsoft公司開發(fā)的一種通用的基于對象的程序設(shè)計語言,為結(jié)構(gòu)化的、模塊化的、面向?qū)ο蟮摹瑓f(xié)助開發(fā)環(huán)境的事件驅(qū)動為機(jī)制的可視化程序設(shè)計語言。是一種可用于微軟自家產(chǎn)品開發(fā)的語言。 [1]
“Visual” 指的是開發(fā)圖形用戶界面 (GUI) 的方法——不需編寫大量代碼去描述界面元素的外觀和位置,而只要把預(yù)先建立的對象add到屏幕上的一點即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolic ?Instruction Code) 語言,是一種在計算技術(shù)發(fā)展歷史上應(yīng)用得最為廣泛的語言。
Visual Basic源自于BASIC編程語言。VB擁有圖形用戶界面(GUI)和快速應(yīng)用程序開發(fā)(RAD)系統(tǒng),可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫,或者輕松的創(chuàng)建Active X控件,用于高效生成類型安全和面向?qū)ο蟮膽?yīng)用程序 [2]? 。程序員可以輕松的使用VB提供的組件快速建立一個應(yīng)用程序。
vb.net 窗體位置
form窗體有一個屬性是startposition,把它設(shè)置為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.NET 可視化窗體應(yīng)用程序設(shè)計的時候窗體在屏幕的位置
StartPosition屬性有如下選項,分別含義如下:
CenterParent 窗體在其父窗體中居中。
CenterScreen 窗體在當(dāng)前顯示窗口中居中,其尺寸在窗體大小中指定。
Manual 窗體的位置由Location屬性確定。
WindowsDefaultBounds 窗體定位在Windows默認(rèn)位置,其邊界也由Windows默認(rèn)決定。
WindowsDefaultLocation 窗體定位在Windows默認(rèn)位置,其尺寸在窗體大小中指定。
CenterScreen的意思并不是屏幕居中(是相對的),它是在"當(dāng)前顯示窗口"中居中。當(dāng)用Show()方法時應(yīng)選擇CenterScreen,用ShowDialog()方法時應(yīng)選擇CenterParent,這樣才能讓要顯示的窗口居中。
如何實現(xiàn)VB.NET實現(xiàn)代碼在datagridview選中行,并在datagridview顯示區(qū)域居中
非常簡單
一:如果知道要選中的行號
datagridview1.Rows(行號).Selected
=
True
datagridview1.FirstDisplayedScrollingRowIndex
=
行號
第一行是選中行號所在的行,第二行是移動滾動條將選中的行在顯示區(qū)域的最上放顯示出來。
二:根據(jù)內(nèi)容選中行并顯示
For
i
=
To
datagridview1.Rows.Count
-
1
If
datagridview1.Rows(i).Cells("列的名稱").Value
=
要選中行列的值
Then
datagridview1.Rows(i).Selected
=
True
datagridview1.FirstDisplayedScrollingRowIndex
=
i
End
If
Next
而且,如果你不想選中的行顯示到最上面,可以這樣:
For
i
=
To
datagridview1.Rows.Count
-
1
If
datagridview1.Rows(i).Cells("列的名稱").Value
=
要選中行列的值
Then
datagridview1.Rows(i).Selected
=
True
Dim
indeI
As
Integer
=
i
-
15
If
indeI
1
Then
indeI
=
1
datagridview1.FirstDisplayedScrollingRowIndex
=
indeI
End
If
Next
上面的代碼是根據(jù)某列的值選中行,并且移動滾動條將選中的行在顯示區(qū)域的第15行顯示。
網(wǎng)站欄目:vb.net窗口居中 vb中怎么設(shè)置顯示內(nèi)容居中
地址分享:http://www.ef60e0e.cn/article/hpissj.html