窗体定位

gxy1000

请教当打开的窗体定位在主界面中的右边代码怎么？

roych

一般要先定位好主窗体大小和位置，才能据此定位打开窗体的。这是一段窗体居中的代码，供参考：

1. 
   
2. Private Sub Form_Load()
   
3. DoCmd.Echo False
   
4. Dim x, y As Integer
   
5. DoCmd.Maximize
   
6. x = Me.WindowWidth
   
7. y = Me.WindowHeight
   
8. DoCmd.Restore
   
9. DoCmd.Echo True
   
10. Move (x - Me.WindowWidth) / 2, (y - Me.WindowHeight) / 2
    
11. End Sub
    

复制代码