vb点虐 窗口居中 vb窗体居中显示

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 做就很好办了。

滚动条的 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

如何实现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

=

要选中行列的值

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行显示。