189 8069 5689
form窗体有一个属性是startposition，把它设置为centerscreen就是居中。
10余年的莱芜网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。营销型网站建设的优势是能够根据用户设备显示端的尺寸不同，自动调整莱芜建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联从事“莱芜网站设计”,“莱芜网站推广”以来，每个客户项目都认真落实执行。
代码为
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中调节窗口的大小和位置使用move方法。
Move方法的语法如下：
[object.]Move
left
,
top,
width,
height
object
是被移动的窗体或控件。如果省略了
object，则移动的是当前窗体。left
和
top
参数是
object
对象的
Left
和
Top
属性的新设置值，而
width
和
height
则是它的
Width
和
Height
属性的新设置值。其中，只有
left
是必须的，但是，若要指定其它参数时，就必须一并指定参数列表中出现在指定参数之前的所有参数。
例子1：
功能：移动窗体让窗口位于右上角。
语句：Me.Move
Screen.Width-me.width,
说明：Screen.Width-me.width是屏幕宽度减去窗体宽度，即窗体距离屏幕左边的距离
例子2：
功能：使窗体窗口与屏幕大小相同，一般用于窗体最大化或全屏程序功能
语句：Me.Move
0,
0,
Screen.Width,
Screen.Height
你的 Me.StartPosition =FormStartPosition.CenterScreen 写在哪的？
写在Form_Load事件里是不起作用的（也不叫不起作用，只是那个时候窗体已经不算Start了），一般代码是这样写，在Form1中的某个地方
Dim frm As New Form2
frm.StartPosition =FormStartPosition.CenterScreen
frm.ShowDialog()
如果你一定要在Form2中通过代码设置，可以把Me.StartPosition =FormStartPosition.CenterScreen移到Form2的构造函数中。
'点击窗口的任何位置拖动窗体
Dim ctX As Single, ctY As Single
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ctX = X: ctY = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.Left = Me.Left + X - ctX
Me.Top = Me.Top + Y - ctY
End If
End Sub