code576a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 21 行

Private Sub Form_Load()
  Me.WindowState = GetSetting("Registry_Settings_1", "Startup", _
      "chld1WindowState", "0")
  Me.Height = GetSetting("Registry_Settings_1", "Startup", _
      "chld1Height", "4000")
  Me.Left = GetSetting("Registry_Settings_1", "Startup", _
      "chld1Left", "120")
  Me.Top = GetSetting("Registry_Settings_1", "Startup", "chld1Top", "120")
  Me.Width = GetSetting("Registry_Settings_1", "Startup", _
      "chld1Width", "0")
End Sub

Private Sub Form_Unload(Cancel As Integer)
  SaveSetting "Registry_Settings_1", "Startup", "chld1WindowState", _
      Me.WindowState
  SaveSetting "Registry_Settings_1", "Startup", "chld1Height", Me.Height
  SaveSetting "Registry_Settings_1", "Startup", "chld1Left", Me.Left
  SaveSetting "Registry_Settings_1", "Startup", "chld1Top", Me.Top
  SaveSetting "Registry_Settings_1", "Startup", "chld1Width", Me.Width
End Sub