vb点虐 子窗体居中 vbmdi窗体

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

如下：

成都创新互联公司自2013年起，先为梁园等服务建站，梁园等地企业，进行企业商务咨询服务。为梁园企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

PrivateSubForm_Resize()

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

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

EndSub

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

VB：

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

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

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

VB怎样才能实现无论怎样调整窗体，标签都处于窗体中间位置？

首先进行一个计算

要让静态文本固定在中间，也就是这种关系，如图（label的中心和窗体的中心一样，label 的高的中心的窗体一样）

然后写出关系 下面是推导过程，要想我最终得到要是left 和 top的值

下面是数学关系，所有学到计算机的时候要加上val什么的，你如果有vb基础就看得懂，不懂追问

然后top同理

最后代码(假设这个静态文本的name叫label)

Label.left=0.5*(val(me.width)-val(label.width))

Label.top=0.5*(val(me.height)-val(label.height))

上面代码是实现居中的功能。

然后将这个代码写到form的realize过程中即可

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点虐 子窗体居中 vbmdi窗体
转载来源：http://scjbc.cn/article/ddigcgg.html