code575a.txt

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

Public Sub Main()
  Dim MySettings As Variant

  SaveSetting "MyApp","Startup", "Top", 75
  SaveSetting "MyApp","Startup", "Left", 50
  Debug.Print GetSetting(appname := "MyApp", section := "Startup", _
      key := "Left", default := "25")
  DeleteSetting "MyApp", "Startup"
End Sub