با این کدها برنامه موقعیت فرم اصلی و همچنین طول و عرض آنرا در هنگام بسته شدن برنامه ذخیره می کند

و در اجرای بعدی، فرم را در همان محل و با همان اندازه نمایش می دهد:

Private Sub Form_Load()
    "load settings from the registry
    Me.WindowState = GetSetting(App.Title, Me.Name, "WindowState", Me.WindowState)
    If Me.WindowState = vbNormal Then
        Me.Width = GetSetting(App.Title, Me.Name, "Width", Me.Width)
        Me.Height = GetSetting(App.Title, Me.Name, "Height", Me.Height)
        Me.Left = GetSetting(App.Title, Me.Name, "Left", Me.Left)
        Me.Top = GetSetting(App.Title, Me.Name, "Top", Me.Top)
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    "Save orm dimensions and state in the registry
    SaveSetting App.Title, Me.Name, "WindowState", Me.WindowState
    If Me.WindowState = vbNormal Then
        SaveSetting App.Title, Me.Name, "Height", Me.Height
        SaveSetting App.Title, Me.Name, "Width", Me.Width
        SaveSetting App.Title, Me.Name, "Left", Me.Left
        SaveSetting App.Title, Me.Name, "Top", Me.Top
    End If
End Sub

نوشته شده توسط مهدی در پنج شنبه 88/2/24 و ساعت 10:56 عصر | نظرات دیگران()