【窗体】在屏幕上定位，显隐位置固定/记忆屏幕位置

Flyingdancing

如图，如果窗体被拖动到此处，后点按钮隐藏，再次显示时，会自动定位到屏幕中心，会影响后续操作的视线，需要手动拖动到边缘
如果能够在显示的时候自动定位到先前的记忆位置的话，就方便多了。请问如何实现

yanyanjun999

在点按钮userform1.hide之前，记录下userform1.left和userform1.top。然后等userform1.show时再定义userform1.left和userform1.top

Flyingdancing

yanyanjun999 发表于 2012-8-15 19:51
在点按钮userform1.hide之前，记录下userform1.left和userform1.top。然后等userform1.show时再定义userfor ...

谢~
各种谢~
非常感谢~

Flyingdancing

yanyanjun999 发表于 2012-8-15 19:51
在点按钮userform1.hide之前，记录下userform1.left和userform1.top。然后等userform1.show时再定义userfor ...

哦，对了，知道有什么控件是自带右上角最大化，最小化按钮的吗？
CAD的没自带。按钮控件又放不上去

Flyingdancing

yanyanjun999 发表于 2012-8-15 19:51
在点按钮userform1.hide之前，记录下userform1.left和userform1.top。然后等userform1.show时再定义userfor ...

对了，窗体作为参数传递，建立统一的记忆sub

2. Sub memo(ByVal form As UserForm1)
   
3. Left = form.Left
   
4. top = form.top
   
5. End Sub

Sub memo(ByVal form As UserForm1)<br /> Left = form.Left<br /> top = form.top<br /> End Sub

调用：memo(userform1)
但是在调用memo时显示的却是类型不匹配……

Flyingdancing

2. Public lft As Double
   
3. Public tp As Double
   
4. Sub memo()
   
5. Dim x As UserForm1
   
6. Set x = UserForm1
   
7. lft = x.Left
   
8. tp = x.top
   
9. Debug.Print lft, tp; x.Left; x.top
   
10. End Sub
    
11. Sub disp()
    
12. Dim x As UserForm1
    
13. Set x = UserForm1
    
14. x.Left = lft
    
15. x.top = tp
    
16. Debug.Print lft, tp; x.Left; x.top
    
17. End Sub
    

Public lft As Double<br /> Public tp As Double<br /> Sub memo()<br /> Dim x As UserForm1<br /> Set x = UserForm1<br /> lft = x.Left<br /> tp = x.top<br /> Debug.Print lft, tp; x.Left; x.top<br /> End Sub<br /> Sub disp()<br /> Dim x As UserForm1<br /> Set x = UserForm1<br /> x.Left = lft<br /> x.top = tp<br /> Debug.Print lft, tp; x.Left; x.top<br /> End Sub<br />

按钮内容：

2. Private Sub CommandButton1_Click()
   
3. 模块1.memo
   
4. UserForm1.Hide
   
5. UserForm1.Show 0
   
6. 模块1.disp
   
7. End Sub

Private Sub CommandButton1_Click()<br /> 模块1.memo<br /> UserForm1.Hide<br /> UserForm1.Show 0<br /> 模块1.disp<br /> End Sub

这时候，窗体位置是正确的。但是！！！屏幕会闪！！从中心位置移动到设定位置的闪屏！！

2. Private Sub CommandButton1_Click()
   
3. 模块1.memo
   
4. UserForm1.Hide
   
5. 模块1.disp
   
6. UserForm1.Show 0
   
7. End Sub

Private Sub CommandButton1_Click()<br /> 模块1.memo<br /> UserForm1.Hide<br /> 模块1.disp<br /> UserForm1.Show 0<br /> End Sub

这时候，不闪了！但是位置不变……！！为什么提前设定Left和Top值无效……，难道不保存这俩值么……
CAD你是要闹哪样啊……

Flyingdancing

好吧，我知道哪里出问题了……
电脑太撇了……我了个嚓