窗体问题(运行时使其居中)
如题:
就是在vb运行时,在屏幕的中心。
不管分辨率是800※600还是1024乘768 都在屏幕的中心
代码怎么写呀,,谢谢!!
你在主模块你写个函数,然后每个窗体的LOAD中调用!
Public Sub CenterForm(frm As Form) If frm.Height <= Screen.Height * 0.75 Then frm.Top = Screen.Height \ 2 - frm.Height \ 2 Else frm.Top = Screen.Height \ 2 - frm.Height \ 2 End If frm.Left = Screen.Width \ 2 - frm.Width \ 2 End Sub
Private Sub Form_Load() CenterForm Me End Sub