Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×
  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

visual basic Ajuda: Função pra salvar dados (Login e Senha)


%EnzoLaco%
 Compartilhar

Posts Recomendados

Como Eu Boto Em Um Programa { Visual Basic } Uma Função De Salvar Dados , Ou Seja , Salvar ( Login E Senha ) ! Tipo Esse

:

ScreenShot 01 : :D

G_2msHLJQdGhRjc-8kZKLg.png

ScreenShot 02 : :D

Ele Cria Esse Icon Onde Está A Localização Do Programa :

Aqq1SdqSQOC-I7P2HGrRlA.png

Mais Se Vocês Souberem Salvar Dados Sem Icon Avisem '-' !

AJUDEM !!!!!!!

Link para o comentário
Compartilhar em outros sites

  • 2 semanas atrás...

Como Eu Boto Em Um Programa { Visual Basic } Uma Função De Salvar Dados , Ou Seja , Salvar ( Login E Senha ) ! Tipo Esse

:

ScreenShot 01 : :D

 

G_2msHLJQdGhRjc-8kZKLg.png

 

ScreenShot 02 : :D

Ele Cria Esse Icon Onde Está A Localização Do Programa :

 

Aqq1SdqSQOC-I7P2HGrRlA.png

 

Mais Se Vocês Souberem Salvar Dados Sem Icon Avisem '-' !

AJUDEM !!!!!!!

 

Vai nas propiedades do seu projeto em "Settings" coloca umas string la como por ex: Usuario/String/User em baixo Senha/String/User e um check/Boleeon/User e a value deixe False

 

No botton deixe assim

If TextBox1.Text = My.Settings.usuario And TextBox2.Text = My.Settings.senha Then

MsgBox("Login correto.", vbInformation)

Else

MsgBox("Algo esta errado.", vbExclamation)

End If

No form1 voce coloca isso

If My.Settings.check = True Then

TextBox1.Text = My.Settings.usuario

TextBox2.Text = My.Settings.senha

Else

 

End If

Se voce pode por no menu item com nome "Salvar dados do usuario"

If MsgBox("Login: " + My.Settings.usuario + " Senha: " + My.Settings.senha, vbInformation) Then

End If

se add mais um no menu item tool com nome de "Adicionar Usuario" coloque isso

If CheckBox1.Checked = True Then

My.Settings.check = True

Else

My.Settings.check = False

End If

My.Settings.usuario = TextBox1.Text

My.Settings.senha = TextBox2.Text

My.Settings.Save()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox1.Focus()

MsgBox("Adicionado")

End Sub

 

Espero ter ajudado!

Standard Trading - Shops - 🌟🔥 EXOSTA 🔥🌟 THE #1 TRADING & SERVICE CENTER  💎 The Magic Find Academy, my new Discord Server 💎 - Forum - Path of Exile
Link para o comentário
Compartilhar em outros sites

Este tópico está impedido de receber novos posts.
 Compartilhar

×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.