如何保证Mdi每次运行时大小位置和小次退出时一样呢，谢谢

Question

用savesetting保存left,top,width,height
在启动时用getsetting读出。

Answer 1

这个一般都用注册表保存起来：
用Savesetting
和GetSetting这两个函数
具体的自己看吧，挺简单的。其实也可以自己写一个文件，保存起来。
或者直接读写ini文件。用api函数。

Answer 2

你可以用注册表保存起来，在你退出程序的时候
用savesetting和getsetting函数，挺简单的。
你也可以自己写一个文件保存起来你的设置，下次读取保存的值。

Answer 3

Option Explicit
Dim myWidth As Integer, myHeight As IntegerPrivate Sub Form_Load()
Me.Top = Val(GetSetting(App.Title, "setting", "top", "0"))
Me.Left = Val(GetSetting(App.Title, "setting", "left", "0"))
myWidth = Val(GetSetting(App.Title, "setting", "width"))
myHeight = Val(GetSetting(App.Title, "setting", "height"))If myWidth <> 0 Then
Me.Width = myWidth
End If
If myHeight <> 0 Then
Me.Height = myHeight
End If
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
SaveSetting App.Title, "setting", "top", Str(Me.Top)
SaveSetting App.Title, "setting", "left", Str(Me.Left)
SaveSetting App.Title, "setting", "width", Str(Me.Width)
SaveSetting App.Title, "setting", "height", Str(Me.Height)
End Sub