我想保存程序运行的结果怎么弄代码?

来源:百度知道 编辑:UC知道 时间:2024/06/02 14:45:32
比如说,如果command1一点,就将enabled属性设置成为false,将这个结果保存下来,下次程序运行的时候command1的属性还是false.怎么写这个代码?

'添加窗体Form1,按钮Command1,然后添加如下代码:
Private Sub Form_Load()
    If GetSetting("a", "button", "status") <> "" Then '如果为空就表示第一次运行,不处理
        Command1.Enabled = GetSetting("a", "button", "status")
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    SaveSetting "a", "button", "status", Command1.Enabled
End Sub

将程序的设置写到文件里(多为ini文件),程序启动时读取并设置控件属性即可