Login non scompare

di Anonimizzato28670 il
21 risposte
/
Anonimizzato28670
Utente anonimizzato
Buonasera,
io ho creato un sistema di login che quando inserisco il nome e la password mi fa entrare.
tutto perfetto tranne che quando clicco su accedi compare la home ma il form di login scompare e ricompare.
ho messo sia che me.hide sia che me.dispose ma niente.
ecco il codice:

Public Class Login
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If ComboBox1.Text = "Alessandra" And TextBox2.Text = "11A1111" Then
            Me.Hide()
            homeal.Show()
        Else
            Label1.Visible = 100
            If ComboBox1.Text = "Bianca" And TextBox2.Text = "6B1111" Then
                homebi.Show()
                Me.Hide()
            Else
                Label1.Visible = 100
                If ComboBox1.Text = "Gaetano" And TextBox2.Text = "7G1111" Then
                    homega.Show()
                    Me.Hide()
                End If
            End If
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.ComboBox1.Items.Add("Alessandra")
        Me.ComboBox1.Items.Add("Bianca")
        Me.ComboBox1.Items.Add("Gaetano")
    End Sub
End Class

21 Risposte

  • Avatar di SirJo
    Molto attivo
    Iscritto da
    dic, 2018
    Messaggi
    528
    ..... ma questa domanda non l'avevi già fatta ??

    comunque correggi il post e al posto del primo "<tag>" ci scrivi "[ code ]", e al posto del secondo "<tag>" ci scrivi "[ /code ]"
    (p.s.: tra la scritta "code" e le parentesi quadre non ci devono essere gli spazi, io li ho messi per leggibilità)

    1) cosa serve la linea seguente ??
    Label1.Visible = 100

    2) Come prima riga del tuo codice devi mettere 
    Option Strict On
  • /
    Anonimizzato28670
    Utente anonimizzato
    Label1.visible = 100 ho sbagliato
    EDIT: non funziona
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Eppure avevi detto che avevo ragione quando te l'ho segnalato... se ripeti il thread con gli stessi errori non ne esci più... ma ovviamente non si può perdere tempo...
  • Avatar di SirJo
    Molto attivo
    Iscritto da
    dic, 2018
    Messaggi
    528
    Innanzitutto al posto di Me.Hide() mettici un bel Me.Dispose(), e poi controlla bene su tutto il resto del codice che hai perchè mi sa che da qualche altra parte vai a chiamare di nuovo il form "Login" e non te ne sei accorto.
  • /
    Anonimizzato28670
    Utente anonimizzato
    Nn funziona.
    ho ricontrollato ma non funziona.
    ho anche messo me.dispose ma niente.
    qualche altra soluzione?
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Posta uno zip con il progetto da scaricare perché sarà una cosa banale ma non possiamo andare avanti se non mostri tutto il codice di tutti i form
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Cambia con
    
        Dim ErrLog As Boolean = True

        If ComboBox1.Text = ... Then
            ErrLog = False
        ElseIf ComboBox1.Text = ... Then
            ErrLog = False
        ElseIf ComboBox1.Text = ... Then            
            ErrLog = False
        ElseIf ComboBox1.Text = ... Then            
            ErrLog = False
        End If

        If ErrLog Then
            Label1.Visible = True
        Else
            Me.Dispose(
            homeal.Show()
        End If
    anche se tutte quelle If non si possono vedere ... questa parte (il login) sarebbe tutto da rivedere ... cmounque il problema è che la Label1.Visible veniva semore eseguita ed essendo della Form Login questa veniva riaperta.
  • /
    Anonimizzato28670
    Utente anonimizzato
    Scusa, ma non è questo il problema, perché ho provato sia ha mettere quello che mi hai consigliato e sia ad cancellare label1.
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Leggi bene il codice che ti ho proposto.
  • /
    Anonimizzato28670
    Utente anonimizzato
    Ho provato ma non funziona.
    ho capito cosa vuol dire il codice ma non funziona.
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Che vuol dire non funziona?? Mostra una schermata, un elenco di errori ... non funziona non vuol dire nulla.
  • /
    Anonimizzato28670
    Utente anonimizzato
    È come prima. la schermata (login) rimane
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Allora non hai ricompilato. Posta nuovamente lo zip aggiornato e ricompilato.
Devi accedere o registrarti per scrivere nel forum
21 risposte