VB 简单的方法恢复窗体之前的状态

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

Public Class Form1
    Private Sub Form1_FormClosing(ByVal sender As Object,ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Saveform()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
        Restoreform()
    End Sub


    Private Regpath As String = "HKEY_CURRENT_USERSoftware"
    Sub Saveform()
        My.Computer.Registry.SetValue(Regpath & My.Application.Info.Title,"WindowState",Val(Me.WindowState))
        If Me.WindowState <> FormWindowState.Normal Then
            Return
        End If
        My.Computer.Registry.SetValue(Regpath & Regpath & My.Application.Info.Title,"Top",Me.Top)
        My.Computer.Registry.SetValue(Regpath & My.Application.Info.Title,"Left",Me.Left)
        My.Computer.Registry.SetValue(Regpath & My.Application.Info.Title,"Height",Me.Height)
        My.Computer.Registry.SetValue(Regpath & My.Application.Info.Title,"Width",Me.Width)
    End Sub
    Sub Restoreform()
       Me.WindowState = Val(My.Computer.Registry.GetValue(Regpath & My.Application.Info.Title,Me.WindowState))
        If Me.WindowState <> FormWindowState.Normal Then
            'Return 'Not needed,Remove this condition
        End If
        Me.Top = My.Computer.Registry.GetValue(Regpath & My.Application.Info.Title,Me.Top)
        Me.Left = My.Computer.Registry.GetValue(Regpath & My.Application.Info.Title,Me.Left)
        Me.Height = My.Computer.Registry.GetValue(Regpath & My.Application.Info.Title,Me.Height)
        Me.Width = My.Computer.Registry.GetValue(Regpath & My.Application.Info.Title,Me.Width)
    End Sub
End Class

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!