Сохраняйте одно приложение максимально развернутым после восстановления

Question

У меня приложение VB .NET установлено как отдельный экземпляр. Когда я пытаюсь запустить приложение во второй раз, его окно восстанавливается до нормального оконного состояния, а не разворачивается (как это было до попытки второго запуска). Как я могу сделать окно приложения, чтобы сохранить его последнее состояние?

Спасибо за помощь.

Answer 1

Вы можете сохранить последнее состояние в реестре или файле при его изменении и применить его при загрузке приложения.

Чтобы установить и получить значения реестра, отметьте это:

  Public Function GetRegistryValue(ByVal KeyName As String, Optional ByVal DefaultValue As Object = Nothing) As Object
        Dim res As Object = Nothing
        Try
            Dim k = My.Computer.Registry.CurrentUser.OpenSubKey("Software\YourApp", True)
            If k IsNot Nothing Then
                res = k.GetValue(KeyName, DefaultValue)
            Else
                k = My.Computer.Registry.CurrentUser.CreateSubKey("Software\YourApp")
            End If
            If k IsNot Nothing Then k.Close()
        Catch ' ex As Exception
            'PromptMsg(ex)
        End Try
        Return res
    End Function

    Public Sub SetRegistryValue(ByVal KeyName As String, ByVal _Value As Object)
        Try
            Dim k = My.Computer.Registry.CurrentUser.OpenSubKey("Software\YourApp", True)
            If k IsNot Nothing Then
                k.SetValue(KeyName, _Value)
            Else
                k = My.Computer.Registry.CurrentUser.CreateSubKey("Software\YourApp")
                k.SetValue(KeyName, _Value)
            End If
            If k IsNot Nothing Then k.Close()
        Catch ' ex As Exception
            'PromptMsg(ex)
        End Try
    End Sub