2016-12-09 3 views
-1

J'ai environ 5 textbox caché, et 1 bouton qui quand je clique dessus It montre le hiddentext 1 par 1, mais ce que je veux faire est quand je clique sur le bouton une fois seulement 1 zone de texte apparaît et alors une boîte de message apparaîtra disant "Voulez-vous continuer" OUI ou NON? Si j'appuie sur Oui, la 2ème zone de texte apparaîtra, mais quand j'appuie sur Non, la boîte de message doit être fermée.Fermeture de la boîte si on ne clique pas

Je possède ce code sur le bouton:

Private Sub revealtxtbox_Click(ByVal senders As System.Object, ByVal e As System.EventArgs) Handles revealtxtbox.Click 

txtbox1.visible = True 
If MsgBox("Do you Want to Continue", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Sample System") = MsgBoxResult.Yes then 
txtbox2.visible = true 

Elseif MsgBoxResult.Yes then 
txtbox3.visible = true 

Elseif MsgBoxResult.Yes then 
txtbox4.visible = true 

Elseif MsgBoxResult.Yes then 
txtbox5.visible = true 

End if 

le code ci-dessus fonctionne un peu mais quand je presse NO, les émissions de txtbox3 et msgbox fermé, il ne doit pas montrer txtbox3, il ne doit fermer la msgbox .

+0

Ce problème est simple et un peu de débogage aidera ... Avez-vous essayé le débogage? – Codexer

Répondre

-1

Essayez quelque chose comme ceci:

Private Sub revealtxtbox_Click(ByVal senders As System.Object, ByVal e As System.EventArgs) Handles revealtxtbox.Click 

    txtbox1.visible = True 

    If MsgBox("Do you Want to Continue", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Sample System") <> MsgBoxResult.Yes then 
    Exit Sub 
    End If 

    txtbox2.visible = true 

    If MsgBox("Do you Want to Continue", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Sample System") <> MsgBoxResult.Yes then 
    Exit Sub 
    End If 

    txtbox3.visible = true 

    If MsgBox("Do you Want to Continue", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Sample System") <> MsgBoxResult.Yes then 
    Exit Sub 
    End If 

    txtbox4.visible = true 

    If MsgBox("Do you Want to Continue", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Sample System") <> MsgBoxResult.Yes then 
    Exit Sub 
    End If 

    txtbox5.visible = true 

End if