在程序中加入了Private Sub Command1_Click()
SaveSetting "MyApp", "Startup", "Left", Check1.Value
End SubPrivate Sub Form_Load()
Check1.Value = GetSetting("MyApp", "Startup", "Left", 0)
End Sub是否与它有关。复选框和按钮均为XP控件。
SaveSetting "MyApp", "Startup", "Left", Check1.Value
End SubPrivate Sub Form_Load()
Check1.Value = GetSetting("MyApp", "Startup", "Left", 0)
End Sub是否与它有关。复选框和按钮均为XP控件。
就象窗户只有窗框没有玻璃!