[已解决]请教全屏显示用户窗体的代码

beigang

请教全屏显示用户窗体的代码

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-1-21 09:39

1. Private Sub UserForm_Initialize()
   
2.       Application.WindowState = xlMaximized
   
3.       With Me
   
4.           .Width = Application.Width
   
5.           .Height = Application.Height
   
6.           .Left = Application.Left
   
7.           .Top = Application.Top
   
8.       End With
   
9. End Sub

复制代码

跳转到最佳答案楼层

hrpotter

1. Private Sub UserForm_Initialize()
   
2.       Application.WindowState = xlMaximized
   
3.       With Me
   
4.           .Width = Application.Width
   
5.           .Height = Application.Height
   
6.           .Left = Application.Left
   
7.           .Top = Application.Top
   
8.       End With
   
9. End Sub

复制代码

beigang

学会了，谢谢hrpotter

beigang

继续请教，用户窗体全屏显示后窗体中的所有控件如何自动居中

hrpotter

添加个框架，把控件放里面
刚才的代码再加二句
Frame1.Top = .Height / 2 - Frame1.Height / 2
Frame1.Left = .Width / 2 - Frame1.Width / 2
加在with me和end with里面

c888

hrpotter 发表于 2012-1-21 11:13
添加个框架，把控件放里面
刚才的代码再加二句
Frame1.Top = .Height / 2 - Frame1.Height / 2

谢谢，学习了！但加上的这两句好象不能用。请老师指教！