vb.net窗口居中 vb中怎么设置显示内容居中

VB如何让控件在窗体居中？

如下：

创新互联是一家专业提供肥城企业网站建设,专注与做网站、成都网站制作、HTML5建站、小程序制作等业务。10年已为肥城众多企业、政府机构等服务。创新互联专业网络公司优惠进行中。

Private Sub Form_Resize()

Command1.Top = (Me.Height - Command1.Height) \ 2

Command1.Left = (Me.Width - Command1.Width) \ 2

End Sub

把Command1换成你想要居中的控件名就可以了（正确排版就是上面那样的）

VB：

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。 [1]

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolic  Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序 [2]  。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

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 可视化窗体应用程序设计的时候窗体在屏幕的位置

StartPosition属性有如下选项，分别含义如下：

CenterParent 窗体在其父窗体中居中。

CenterScreen 窗体在当前显示窗口中居中，其尺寸在窗体大小中指定。

Manual 窗体的位置由Location属性确定。

WindowsDefaultBounds 窗体定位在Windows默认位置，其边界也由Windows默认决定。

WindowsDefaultLocation 窗体定位在Windows默认位置，其尺寸在窗体大小中指定。

CenterScreen的意思并不是屏幕居中(是相对的),它是在"当前显示窗口"中居中。当用Show()方法时应选择CenterScreen,用ShowDialog()方法时应选择CenterParent,这样才能让要显示的窗口居中。

如何实现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行显示。