crear usuarios administradores solo con codigo

[Acuna]

Hola, como hacer una condicion para crear mas de un usuario administrador solo con condigo sin tener ninguna tabla de usurios en base de datos , uso visual basic . net 2015. Ya tengo un usuario administrador pero quiero crear uno mas. pero hacerlo solo con codigo. Les adjunto mi codigo que hice para tener acceso .

codigo visual basic

Public Class Form1
Public Usuario As String
Public Contraseña As String


Private Sub BtnEntrar_Click(sender As Object, e As EventArgs) Handles BtnEntrar.Click
Usuario = "Admin"
Contraseña = "8965"
If TxtUsuario.Text = Usuario And TxtContraseña.Text = Contraseña Then
MessageBox.Show("BIENVENIDO ADMINISTRADOR.",
"ONLINE", MessageBoxButtons.OK,
MessageBoxIcon.Exclamation)
Me.Hide()
Form2.Show()
Else
MessageBox.Show("USUARIO O CONTRASEÑA INCORRECTA.",
"ERROR AL INGRESAR", MessageBoxButtons.OK,
MessageBoxIcon.Exclamation)
End If
End Sub

[uagrm]

Mi pregunta es por que hacerlo por código.?

[giovani_loera]

Puedes usar un Dictionary

Código C#:

Dictionary<string, string> usrs = new Dictionary<string, string>();
usrs.Add("Admin1","123456");
usrs.Add("Admin2","asdfg");
//etc
 
if(usrs[txtUser.Text]==txtPassword.text)
    return true;
else
   return false;
 

[Acuna]

Puede poner condigo en visual basic .net ?

[Acuna]

No es tanto, porqe hacerlo por codigo. Si no por obtener el conocimiento de como se hace por codigo.

[edno82mx]

Hola amigo, una pregunta? Los usuarios quieres que nadie los sepa por que igual y puedes hacer un combo box con la lista de los usuarios :D y ya de ahi pues hacer que pongan la contraseña. Nose es un ejemplo :D ahi pensare una solucion "ortodoxa"

[emmax]

Si solo es por saber como se hace y no por alguna utilidad del mismo sistema pues puedes poner un case o con el mismo condicional if

ejemplo:

Código VB.NET:

CON SELECT CASE
 
        Select Case TextBox1.Text
            Case "admin"
                MessageBox.Show("Admin")
            Case "rol"
                MessageBox.Show("rol")
        End Select
 
CON CONDICIONAL IF
 
        If TextBox1.Text = "admin" And TextBox2.Text = "1" Then
            MessageBox.Show("admin")
        ElseIf TextBox1.Text = "rol" And TextBox2.Text = "2" Then
            MessageBox.Show("rol")
        End If