Usuário com melhor resposta
Gerador de Palavras Combinadas VB2015 ou 2008/2017

Pergunta
-
Fala ai Pessoal , estou com uma duvida
Quero Criar duas TextBox
TEXTBOX1 VAI SER O USUARIO
TEXTBOX2 VAI SER A SENHA
-----------------
Então eu Vou Listar Pra fazer um random , com todos os usarios e as senhas
ex:
button_click Dim Usuario(5) As String Dim Random as Integer Usuario(1) = "UsuarioCyclano" Usuario(2) = "UsuarioFulano" Usuario(3) = "Usuario1" Usuario(4) = "UsuarioSeila" Usuario(5) = "UsuarioTal" Random = Int((Usuario.Count*Rnd())) textbox1.text = random --------------
So Que , Eu Queria que cada usuario tivesse a sua senha ex
A Senha do UsuarioCyclano Seria 123
e assim que quando ele clicasse no botão , a textbox2 daria a senha do usuario da textbox1 , e possivel?- Editado AndreAlvesLimaModerator segunda-feira, 11 de dezembro de 2017 07:51 typo
- Movido AndreAlvesLimaModerator segunda-feira, 11 de dezembro de 2017 07:59
Respostas
-
Olá!
Você deverá trabalhar com uma estrutura de chave/valor.. Um exemplo desse tipo de estrutura no .NET são Dictionaries.. Veja como ficaria o código:
Dim Usuarios As New Dictionary(Of String, String) Usuarios.Add("UsuarioCyclano", "Senha1") Usuarios.Add("UsuarioFulano", "Senha2") Usuarios.Add("Usuario1", "Senha3") Usuarios.Add("UsuarioSeila", "Senha4") Usuarios.Add("UsuarioTal", "Senha5") Dim Random As Integer Random = Int((Usuarios.Count * Rnd())) Dim Usuario = Usuarios.ElementAt(Random) TextBox1.Text = Usuario.Key TextBox2.Text = Usuario.Value
Abraço!
André Alves de Lima
Microsoft MVP - Client App Dev
Visite o meu site: http://www.andrealveslima.com.br
Me siga no Twitter: @andrealveslima- Marcado como Resposta Filipe B CastroModerator segunda-feira, 11 de dezembro de 2017 17:58
Todas as Respostas
-
Olá!
Você deverá trabalhar com uma estrutura de chave/valor.. Um exemplo desse tipo de estrutura no .NET são Dictionaries.. Veja como ficaria o código:
Dim Usuarios As New Dictionary(Of String, String) Usuarios.Add("UsuarioCyclano", "Senha1") Usuarios.Add("UsuarioFulano", "Senha2") Usuarios.Add("Usuario1", "Senha3") Usuarios.Add("UsuarioSeila", "Senha4") Usuarios.Add("UsuarioTal", "Senha5") Dim Random As Integer Random = Int((Usuarios.Count * Rnd())) Dim Usuario = Usuarios.ElementAt(Random) TextBox1.Text = Usuario.Key TextBox2.Text = Usuario.Value
Abraço!
André Alves de Lima
Microsoft MVP - Client App Dev
Visite o meu site: http://www.andrealveslima.com.br
Me siga no Twitter: @andrealveslima- Marcado como Resposta Filipe B CastroModerator segunda-feira, 11 de dezembro de 2017 17:58
-
-
De nada! Qualquer coisa, estamos aí.. :)
Abraço!
André Alves de Lima
Microsoft MVP - Client App Dev
Visite o meu site: http://www.andrealveslima.com.br
Me siga no Twitter: @andrealveslima