13518219792
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
这样文本就可以在图片框中间显示了。
如果你用 .NET 做就很好办了。
滚动条的 Dock 属性设置为 Left，就在最左边了，窗体再调整大小它也跟着调。
图片框复杂点，如果不调整它和窗体的大小，编程时用格式菜单窗体居中就行，如果调整的话，你需要计算窗体的大小（frmMain.Size），然后按照 frmMain 的 Size 的 Width，Height 计算出图像框该有多大，用另两个 Integer 保存（Location 设置个固定值即可，Size 的 Width，Height 设置为窗体 Size 的 Width，Height 减去图像框的 Location 的 X，Y），将这两个值保存在一个 Point 对象中。然后把图像框的 SizeMode 属性设置为 StretchImage，并将其 Size 属性设置为你保存的那个 Point 对象。这样就能调节图像框的大小和位置，使其总是正好在窗体中间。
这段代码写个子程序，窗体的 Resize、图像框的 LoadComplete 事件都要调用它。
Sub PicResize
dim NewX as integer = me.size.width - 10 '假设这是图像框的 Location
dim NewY as integer = me.size.height - 10
dim NewPoint as new Point(NewX, NewY)
picMain.SizeMode = StretchImage
picMain.size = NewPoint
end sub
如果使用 .NET，你还是用 SplitContainer 非常方便，滚动条和图像框占用两边， Dock 设置为 Fill
非常简单
一:如果知道要选中的行号
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行显示。
