Aiuto correzione progetto VB2010

[KillerPenguin]

salve a tutti, allora, sto creando un programma ma non sto riuscendo ad ottenere ciò che voglio.(download progetto http://www.mediafire.com/?7a08ccww1czg6m4)
c'è un form con 4 textbox e 2 button. 2 textbox sono visibili all'avvio e 2 altri no (visible=true/false). il button 1 serve per visualizzare le due texbox invisibili una alla volta, la sua programmazione è:

Codice: Seleziona tutto

If TextBox3.Visible = False Then
            TextBox3.Visible = True

        ElseIf TextBox4.Visible = False Then
            TextBox4.Visible = True

        End If

il button 2 invece ha il compito di controllare che le textbox visibili non siano vuote, se almeno una è vuota ti avvisa del fatto tramite msgbox, se invece tutte le textbox visibili sono state riempite deve avviare il timer. riporto i codici:
button2:

Codice: Seleziona tutto

If TextBox1.Text = "" Then
            MsgBox("compila tutti i campi")
            Timer1.Stop()
        ElseIf TextBox2.Text = "" Then
            MsgBox("compila tutti i campi")
            Timer1.Stop()
        ElseIf TextBox3.Visible Then
            If TextBox3.Text = "" Then
                MsgBox("compila tutti i campi")
                Timer1.Stop()
            End If
        ElseIf TextBox4.Visible = True Then
            If TextBox4.Text = "" Then
                MsgBox("compila tutti i campi")
                Timer1.Stop()
            End If
        Else
            timer1.start()
        End If

timer1

Codice: Seleziona tutto

If TextBox3.Visible = True Then
            MsgBox("sono visibili le textbox 1, 2 e 3")
        ElseIf TextBox4.Visible Then
            MsgBox("sono visibili le textbox 1, 2, 3 e 4")
        Else
            MsgBox("sono visibili le textbox 1 e 2")
        End If

il problema è che riesco ad ottenere il risultato sperato solo se ci sono le 2 textbox visibili all'avvio sono visibili, mentre se ci sono altre texbox visibili non accade proprio nulla.

é ovvio che c'è qualcosa di sbagliato nel codice. qualcuno me lo può correggere??? in caso non mi sono spiegato bene vi riporto il DOWNLOAD al progetto:
http://www.mediafire.com/?7a08ccww1czg6m4

mi affido alla vostra esperienza

[M@ttia]

Su questo PC non ho VB2010 e non posso provare, però nel codice del button 2 noto un

Codice: Seleziona tutto

ElseIf TextBox3.Visible Then

anziché un

Codice: Seleziona tutto

ElseIf TextBox3.Visible = True Then

che potrebbe influire (in C++ la cosa è equivalente, ma in VB non ne sono sicuro).

Oltre a questo, puoi evitare di inscatolare gli IF nel codice del button 2 quando controlli le textbox 3: puoi cioè rimpiazzare il pezzo:

Codice: Seleziona tutto

ElseIf TextBox3.Visible Then
  If TextBox3.Text = "" Then
    MsgBox("compila tutti i campi")
    Timer1.Stop()
  End If

con:

Codice: Seleziona tutto

ElseIf TextBox3.Visible = True And TextBox3.Text = "" Then
   MsgBox("compila tutti i campi")
   Timer1.Stop()

Allo stesso modo puoi compattare anche altri pezzi (ad es. If TextBox1.Text = "" Or TextBox2.Text = "" Then ...)

[KillerPenguin]

Grazie mille Per l'aiuto, avevi perfettamente ragione!!!! per quanto riguarda la stringa

Codice: Seleziona tutto

ElseIf TextBox3.Visible Then

è stata una dimenticanza sciocca. Ti ringrazio infinitamente per avermi detto come non iscatolare gli if utilizzando and. Sai sono ancora agli inizi ma sono lieto di imparare dai migliori

[M@ttia]

Prego figurati!