如何在VB中实现第一次使用后保存设置

用户第一次登录时记录，并弹出一个对话框，以后的每次登陆不会出现对话框

通过文件的方式实现，检查某个文件存在(或者文件内容为空)，则用文件中的帐号信息登录；否则要求用户输入帐号信息，保存到文件中并登录。

private sub form_load() if dir(app.path & "\1.txt") <> "" then open app.path & "\1.txt" for input as #1 line input #1, a t = split(a, " ") if t(0) = "false" then option1.value = false else option1.value = true end if if t(1) = "false" then option2.value = false else option2.value = true end if close end if end sub private sub form_unload(cancel as integer) open app.path & "\1.txt" for output as #1 print #1, option1.value & space(1) & option2.value close end sub