Question

在我的VB应用程序开始时，我要求用户在两个文本框中键入他的电子邮件和密码。如果登录成功，我想将输入的电子邮件和密码作为Login.txt文件保存到相关目录中。我想覆盖文件中的所有旧信息。

我希望每次申请开始时;它将读取此Login.txt文件并在相同的两个文本框中显示电子邮件和密码，因此用户无需在每次登录时都键入它。

什么是正确的代码？

感谢您的帮助。

Answer 1

首先，您需要关注@Plutonix评论步骤，您可以创建两个新设置作为字符串类型并选择“用户”范围（不是应用程序），并确保保持为空的默认值。

因此，在您的代码中，每次需要时都可以保存值：

My.Settings.Email = EmailTextBox.text
My.Settings.Pass  = PassTextBox.text

加载值：

EmailTextBox.text = My.Settings.Email 
PassTextBox.text  = My.Settings.Pass

Answer 2

我一直在使用这种方法，我认为它会对你有所帮助。当你打开VB双击soloution资源管理器“我的项目” 它将在窗口侧面显示您需要单击设置选项卡的选项卡。它将提供一个表，其中一行将在其中具有名称“settings”。在您的情况下，您想将其命名为“email”，然后按Enter键。再次出现另一行将名称从“设置”更改为“密码”，然后按Enter键。当你完成这部分时，这就是编码部分：

CODING：

Textbox1.text = my.settings.email

Textbox2.text = my.settings.password

My.settings.save

好的，这就是编码的方式

您现在需要做的就是将上面的编码插入要单击的按钮的编码中以记住详细信息。完成该步骤后，单击调试或播放按钮或（f5）键。

希望这对你有用我会编辑它，如果它没有

感谢

Answer 3

希望以下参考资料能为您的问题提供解决方案

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        pth = "d:\user_login"
        If Directory.Exists(pth) = False Then
            Directory.CreateDirectory(pth) 'create a folder in the path is no such folder is existing
        End If
    End Sub

这将在首次运行时在D：驱动器中创建一个目录

Private Sub login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles login.Click
        ' works like session veriables 
        uname = username.Text ' store user name to a public verible for future reference till the application restarted
        pwd = pasword.Text    ' store password to a public verible for future reference till the application restarted
        'save user name and password as small text file for future reference
        'Dim rtc As New RichTextBox
        rtc.Clear() ' clear the rtc content
        rtc.Text = "Username :" & username.Text & Chr(13) & "Password :" & pasword.Text 'create a text document and write values on it
        rtc.SaveFile(pth & "\" & Now.Month.ToString & Now.Day & "_" & Now.Hour.ToString & "_" & Now.Minute.ToString & ".txt") 'save the document in the above path with current date and time as name
    End Sub

在VB中保存用户输入

3 个答案: