189 8069 5689
Label 控件不可以水平，上下居中
创新互联主营越城网站建设的网络公司,主营网站建设方案,app软件开发公司,越城h5成都小程序开发搭建,越城网站营销推广欢迎越城等地区企业咨询
不过可以用 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中让文本框文字居中需要设置TextAlign属性，下面用Visual Studio 2019给大家演示一下：
1、打开Visual Studio，模板选择Visual Basic的窗体应用程序，如下图所示
2、在窗体中放一个文本框，右键文本框选择属性，如下图所示
3、找到外观里面的TextAlign，下拉列表中选择Center，如下图所示
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
就是让窗体居中啦～
在VB6中
（1）设置标签居中方法如下图
（2）设置标签的字体方法如下图
（3）在代码中设置
Option Explicit
Private Sub Form_Load()
With Label1
'水平居中
.Alignment = 2
'设置字体
.FontName = "微软雅黑"
'字体大小
.FontSize = 10
'设置为
.FontItalic = True
End With
End Sub
（4）只能设置标签内容的水平对齐方式。无法设置标签内容垂直对齐方式
非常简单
一：如果知道要选中的行号
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行显示。
以Textbox为例说明，其余控件方法类似：
1.Vb中控件一般都是默认文字左对齐的
2.设置“Alignment”属性为2-Center
3.则文字就实现居中对齐了