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


当前标题:vb点虐 窗口居中 vb窗体居中显示
网站路径:http://azwzsj.com/article/ddcpjpg.html