form窗體有一個(gè)屬性是startposition,把它設(shè)置為centerscreen就是居中。
創(chuàng)新互聯(lián)服務(wù)項(xiàng)目包括柳北網(wǎng)站建設(shè)、柳北網(wǎng)站制作、柳北網(wǎng)頁制作以及柳北網(wǎng)絡(luò)營(yíng)銷策劃等。多年來,我們專注于互聯(lián)網(wǎng)行業(yè),利用自身積累的技術(shù)優(yōu)勢(shì)、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等,向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案,柳北網(wǎng)站推廣取得了明顯的社會(huì)效益與經(jīng)濟(jì)效益。目前,我們服務(wù)的客戶以成都為中心已經(jīng)輻射到柳北省份的部分城市,未來相信會(huì)繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任!
代碼為
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
就是讓窗體居中啦~
Form窗體有一個(gè)屬性是StartPosition,把它設(shè)置為CenterScreen就是居中。
代碼為 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
就是讓窗體居中啦~
LABLE外的容器上設(shè)置屬性CSS里的對(duì)齊就可以了。
而不是直接針對(duì)LABLE來設(shè)置。
非常簡(jiǎn)單
一:如果知道要選中的行號(hào)
datagridview1.Rows(行號(hào)).Selected
=
True
datagridview1.FirstDisplayedScrollingRowIndex
=
行號(hào)
第一行是選中行號(hào)所在的行,第二行是移動(dòng)滾動(dòng)條將選中的行在顯示區(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ù)某列的值選中行,并且移動(dòng)滾動(dòng)條將選中的行在顯示區(qū)域的第15行顯示。
Label 控件不可以水平,上下居中
不過可以用 PictureBox 控件做到
拖動(dòng)一個(gè) PictureBox 控件到工程,并命名為 picTextShow,把 AutoDraw 設(shè)為 True,加上以下代碼就可以實(shí)現(xiàn):
Option Explicit Private Sub Form_Load() picTextShow.CurrentX=(picTextShow.ScaleWidth-picTextShow.TextWidth("要顯示的文本"))/2 picTextShow.CurrentY=(picTextShow.ScaleHeight-picTextShow.TextHeight("要顯示的文本"))
picTextShow.Print "要顯示的文本" End Sub
這樣文本就可以在圖片框中間顯示了。