Visual Basic 2010 Express: проверьте, имеет ли значение my.settings.username значение

Question

VISUAL BASIC: вы знаете, как вы можете сделать свои собственные настройки в своей программе настройка/свойства, и я сделал регистрационную систему для программного обеспечения. Зарегистрировавшись, введя пароль и имя пользователя, нажмите «Регистрация», чтобы сохранить имя пользователя и пароль в My.Settings.Username и My.Settings.Password, используя My.Settings.Save().

Код:My.Settings.Username = TextBox1.Text My.Settings.Password = TextBox2.Text My.Settings.Save() Это все работает отлично, но как я могу запретить пользователю изменять его снова.

Это мой код до сих пор:

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click 
    Dim res As MsgBoxResult 
    If Not My.Settings.Username = String.Empty And 
     My.Settings.Password = String.Empty Then 
     MsgBox("You have registered a WCUE account, please use 'CHANGE PASSWORD' in 'Settings' to do so.", MsgBoxStyle.Exclamation, "Not possible.") 
    ElseIf TextBox1.Text = String.Empty Or 
     TextBox2.Text = String.Empty Then 
     MsgBox("Don't press the register button if the text boxes are empty!", MsgBoxStyle.Critical, "Fill all required fields please.") 
    Else 
     If TextBox1.Text = My.Settings.Username And 
      TextBox2.Text = My.Settings.Password Then 
      MsgBox("If you are trying to log in then press the 'Log-in' text below the register button!", MsgBoxStyle.Exclamation, "You have already registered!") 
     Else 
      res = MsgBox("Register a WCUE account?", MsgBoxStyle.YesNo, "Create") 
      If res = MsgBoxResult.Yes Then 
       My.Settings.Username = TextBox1.Text 
       My.Settings.Password = TextBox2.Text 
       My.Settings.Save() 
       MsgBox("You can now login to WCUE and set the time limit on this user!", MsgBoxStyle.Information, "YEAH - Register successful!") 
      ElseIf res = MsgBoxResult.No Then 
       MsgBox("You should register as quick as possible before someone unauthorized sets a password!!", MsgBoxStyle.Exclamation, "Suit yourself.") 
      End If 
     End If 
     Exit Sub 
    End If 
End Sub 

ПЕРВОЕ если утверждение, что у меня возникли проблемы с, я попытался проверить, если My.Settings.Username и My.Setting.Password содержит значение (строка), которое должно быть именем пользователя и паролем, если это не так, вы можете зарегистрироваться, но если оно содержит значение, оно сообщает вам, что кто-то уже зарегистрировался. Ничего не произошло? Надеюсь, это достаточно ясно, пожалуйста, помогите!

Answer 1

Я ~ думаю ~ это то, что вы пытаетесь сделать ...

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click 
    If My.Settings.Username <> String.Empty AndAlso My.Settings.Password <> String.Empty Then 
     MsgBox("You have registered a WCUE account, please use 'CHANGE PASSWORD' in 'Settings' to do so.", MsgBoxStyle.Exclamation, "Not possible.") 
    Else 
     If TextBox1.Text = String.Empty OrElse TextBox2.Text = String.Empty Then 
      MsgBox("Don't press the register button if the text boxes are empty!", MsgBoxStyle.Critical, "Fill all required fields please.") 
     Else 
      Dim res As MsgBoxResult 
      res = MsgBox("Register a WCUE account?", MsgBoxStyle.YesNo, "Create") 
      If res = MsgBoxResult.Yes Then 
       My.Settings.Username = TextBox1.Text 
       My.Settings.Password = TextBox2.Text 
       My.Settings.Save() 
       MsgBox("You can now login to WCUE and set the time limit on this user!", MsgBoxStyle.Information, "YEAH - Register successful!") 
      ElseIf res = MsgBoxResult.No Then 
       MsgBox("You should register as quick as possible before someone unauthorized sets a password!!", MsgBoxStyle.Exclamation, "Suit yourself.") 
      End If 
     End If 
    End If 
End Sub