1:注册表Private Sub Command1_Click()SaveSetting App.EXEName, "Save", "Text1", Text1.TextEnd SubPrivate Sub Form_Load()Text1.Text = GetSetting(App.EXEName, "Save", "Text1", vbNullString)End Sub2:文件Private Sub Command1_Click()Open "tmp.txt" For Output As #1
Print #1, Text1.Text '保存Close #1End SubPri...
|