你的 Me.StartPosition =FormStartPosition.CenterScreen 写在哪的?
成都创新互联长期为超过千家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为西峡企业提供专业的成都网站建设、做网站,西峡网站改版等技术服务。拥有十年丰富建站经验和众多成功案例,为您定制开发。
写在Form_Load事件里是不起作用的(也不叫不起作用,只是那个时候窗体已经不算Start了),一般代码是这样写,在Form1中的某个地方
Dim frm As New Form2
frm.StartPosition =FormStartPosition.CenterScreen
frm.ShowDialog()
如果你一定要在Form2中通过代码设置,可以把Me.StartPosition =FormStartPosition.CenterScreen移到Form2的构造函数中。
方法如下:
1、打开例1.1创建的工程。
2、选择窗体Form1并双击该窗体,出现窗体的调事件的过程代码体。
3、在窗体调用的过程代码体中编制如下过程代码:
Private Sub Form_Load()
Form1.Width = 4860
Form1.Height = 2520
End Sub
4、设置窗体Form1的SartUpPosition属性为2-屏幕中心,这样运行窗体可以发现,屏幕的大小与例1.6中通过属性设置的大小是一致的。
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
就是让窗体居中啦~
1、如果你的窗体就是你当前工程这个EXE本身的窗体,
那么窗体所在的路径就是工程的启动路径,用下面的语句获取:
AppPath=Application.StartupPath
2、如果你的窗体是你自己LoadLibrary的某个DLL的窗体,那么你既然能LoadLibrary,就应该知道它的路径,所以不用问了。