锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net设置列居中 vba设置居中

IT技术选中

VB.NET中label显示的文字怎么居中？Label 控件不可以水平，上下居中
不过可以用 PictureBox 控件做到
拖动一个 PictureBox 控件到工程 ， 并命名为 picTextShow，把 AutoDraw 设为 True，加上以下代码就可以实现：
Option Explicit Private Sub Form_Load() picTextShow.CurrentX=(picTextShow.ScaleWidth-picTextShow.TextWidth("要显示的文本"))/2 picTextShow.CurrentY=(picTextShow.ScaleHeight-picTextShow.TextHeight("要显示的文本"))
picTextShow.Print "要显示的文本" End Sub
这样文本就可以在图片框中间显示了 。
如何实现VB.NET实现代码在datagridview选中行,并在datagridview显示区域居中非常简单
一：如果知道要选中的行号
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
=
要选中行列的值
【vb.net设置列居中 vba设置居中】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行显示 。
VB.NET窗体居中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
就是让窗体居中啦～
vb.net设置列居中的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba设置居中、vb.net设置列居中的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：北京母婴erp系统花费多少，北京母婴erp系统花费多少钱

    下一篇：射击游戏薯条，游戏,射击