[已解决]如何让窗体在指定位置弹出来

lan8930

Private Sub CommandButton29_Click()
  application.screenupdating=false
  UserForm9.Show 0
   UserForm9.Top = 400
UserForm9.Left = 750
application.screenupdating=true

End Sub


如上面的代码。这样写，窗体会先从默认位置弹出来，然后闪一下，再跳到我指定的位置。
能不能让他一弹出来，就在指定位置了？而不是从一个位置跳到另一个？
谢谢！

最佳答案

月排行榜 / 总排行榜

ming924

2022-4-25 11:40

lan8930 发表于 2022-4-25 11:30
经测试不行啊，点出来的窗口还是会闪一下。从原来的地方闪到指定地方。

Private Sub CommandButton29_Click()
  application.screenupdating=false
'属性为0时，可以设置窗体初次显示时的位置由用户定义
UserForm9.StartUpPosition = 0
UserForm9.Top = 400
UserForm9.Left = 750UserForm9.Show 0
application.screenupdating=true


这样呢？

跳转到最佳答案楼层

ming924

Private Sub CommandButton29_Click()
  application.screenupdating=false
'属性为0时，可以设置窗体初次显示时的位置由用户定义
UserForm9.StartUpPosition = 0
  UserForm9.Show 0
   UserForm9.Top = 400
UserForm9.Left = 750
application.screenupdating=true

End Sub

lan8930

ming924 发表于 2022-4-25 11:21
Private Sub CommandButton29_Click()
  application.screenupdating=false
'属性为0时，可以设置窗体初 ...

经测试不行啊，点出来的窗口还是会闪一下。从原来的地方闪到指定地方。

ming924

lan8930 发表于 2022-4-25 11:30
经测试不行啊，点出来的窗口还是会闪一下。从原来的地方闪到指定地方。

Private Sub CommandButton29_Click()
  application.screenupdating=false
'属性为0时，可以设置窗体初次显示时的位置由用户定义
UserForm9.StartUpPosition = 0
UserForm9.Top = 400
UserForm9.Left = 750UserForm9.Show 0
application.screenupdating=true


这样呢？

lan8930

ming924 发表于 2022-4-25 11:40
Private Sub CommandButton29_Click()
  application.screenupdating=false
'属性为0时，可以设置窗体 ...

这样窗口还是会闪。但是闪动的速度快一些。
通过你的启发，StartUpPosition属性，我研究了一下。原来这个属性可以直接在窗口属性设置。连初始位置也可以直接在那里设置。从那里设置了位置以后，窗口就不会闪一下了。谢谢！