VB中保存时怎么覆盖已经存在的东西

VB中保存时怎么覆盖已经存在的东西

如果保存时，文件是只读的，你不能覆盖，那么找到文件，右键属性，把只读的的勾挑掉，然后就可以覆盖保存了

'把登录用户和密码的text文本分别命名为：txtusername和txtpassword '把登录按钮和退出按钮分别命名为：cmdin和cmdexit private sub form_load() '先申明2个变量 dim username as string dim password as string txtpassword.passwordchar = "*" '使得密码输入时以“*”号显示 '以下判断有没有用户注册 if dir("d:\user.txt") = "" then '如果用户文件不存在 if msgbox("您的系统中还未建立管理员帐号，是否现在建立？", 65, "询问！") = vbok then '如果按下msg对话框“确定” '请在这里写入您转入建立用户的窗体 '如果没有，又仅是您一个人使用，可以在代码中直接执行，以下这段就是： open "d:\user.txt" for output as #1 '开始写数据 print #1, 这里写您的帐号 print #1, 这里写您的密码 close #1 '写入结束 else '这里对应msg那个if，意思是说:如果按下“取消” msgbox "没有管理员帐号，您不能登录！", , "警告！" end '结束程序 end if else '这里对应user.txt的if，意思是说：如果还文件存在 open "d:\user.txt" for input as #1 line input #1, username '把user.txt第一行读取成username变量 line input #1, password '把user.txt第二行读取成password变量 close #1 '读取用户及密码数据到内存完成 end if end sub private sub cmdin_click() '这个是登录按钮 if txtusername.text = "" then '如果用户名没有输入 msgbox "请输入用户名" else if txtpassword.text = "" then '如果没有输入密码 msgbox "请输入密码" else if txtusername.text <> username then '如果输入的用户名不是已注册的用户名 msgbox "该用户不存在" else if txtpassword.text <> password then '如果密码不一致 msgbox "密码错误！", , "提醒！" else msgbox "登录成功！" '如果'这里不用说了吧，呵呵！ end if end if end if end if end sub private sub cmdexit_click() '退出按钮 end '退出程序 end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息