重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim XO as Long
网站建设公司,为您提供网站建设,网站制作,网页设计及定制网站建设服务,专注于成都定制网页设计,高端网页制作,对成都玻璃钢雕塑等多个行业拥有丰富的网站建设经验的网站建设公司。专业网站设计,网站优化推广哪家好,专业网站推广优化,H5建站,响应式网站。
Dim YO as Long
XO = Screen.Width
YO = Screen.Height
XO = (XO - Me.Width) / 2
YO = (YO - Me.Height) / 2
Me.Move XO, YO
以上不一定好用。
如果没有必要,用简单一些的方面更好。
比如:用表格属性中的内容居中。
1、在表格中单击右键,选择设置单元格格式
2、选择对齐,面板中的水平对齐。垂直对齐。
3、水平对齐中选择,居中。垂直对齐中选择居中。
4、这样文字内容就对齐了并且是水平、垂直都对齐。
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
就是让窗体居中啦~
选中表格,右击鼠标,在“单元格对齐方式”的下拉菜单中,选择最中间那个就可以了(共有九个选项,选中正中心那个选项)。
另外,站长团上有产品团购,便宜有保证
非常简单
一:如果知道要选中的行号
datagridview1.Rows(行号).Selected
=
True
datagridview1.FirstDisplayedScrollingRowIndex
=
行号
第一行是选中行号所在的行,第二行是移动滚动条将选中的行在显示区域的最上放显示出来。
二:根据内容选中行并显示
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
上面的代码是根据某列的值选中行,并且移动滚动条将选中的行在显示区域的第15行显示。