因为 form2 是类
十余年建站经验, 网站制作、做网站客户的见证与正确选择。成都创新互联公司提供完善的营销型网页建站明细报价表。后期开发更加便捷高效,我们致力于追求更美、更快、更规范。
解决方法 在form1中声明 一个form2类型的变量
dim frm as form2
(根据情况 frm=new form2 或者 frm = 某一变量)
frm.Timer1.Enabled =true
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
就是让窗体居中啦~
在代码中指定MdiParent属性为那个窗体就可以了。
Dim
mdiChildForm
As
New
Form
mdiChildForm.MdiParent
=
Me
mdiChildForm.Show()
.Top 和 .Left
.Top 是距离屏幕顶端的距离,也就是Y坐标
.Left 是距离屏幕左边的距离,也就是X坐标
例如
Private Sub Form_Load()
With Me
.Top = 0
.Left = 0
End With
End Sub
把自己的位置调到最左上角