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://pwwzsj.com/article/ddigcgg.html