Pourquoi ne Montrant un objet UserForm comme Modale Arrêter l'Exécution de Code?

Le code VBA ci s'arrête à Me.Show. De mes tests, il semble que Me.Show arrête tous de l'exécution du code, même si le code est à l'intérieur de l'objet UserForm.

Cette partie est à l'extérieur de l'objet UserForm:

Public Sub TestProgress()  
    Dim objProgress As New UserForm1
    objProgress.ShowProgress
    Unload objProgress
End Sub

Cette partie est à l'intérieur de l'objet UserForm:

Private Sub ShowProgress()
    Me.Show vbModal
    Dim intSecond As Integer
    For intSecond = 1 To 5
        Application.Wait Now + TimeValue("0:00:01")
        Me.ProgressBar1.Value = intSecond / 5 * 100
    Next intSecond
    Me.Hide
End Sub

Le code s'arrête à Me.Show, après que l'objet UserForm s'affiche. Il n'y a pas d'erreur, c'est juste interrompt l'exécution du code. Il semble que le seul moyen d'exécuter du code à l'intérieur d'un modal UserForm en VBA est de l'inclure dans le UserForm_Activate procédure comme ceci:

Cette partie est à l'extérieur de l'objet UserForm:

Public Sub TestProgress()  
    Dim objProgress As New UserForm1
    Load objProgress
    Unload objProgress
End Sub

Cette partie est à l'intérieur de l'objet UserForm:

Private Sub UserForm_Initialize()
    Me.Show vbModal
End Sub

Private Sub UserForm_Activate()
    Dim intSecond As Integer
    For intSecond = 1 To 5
        Application.Wait Now + TimeValue("0:00:01")
        Me.ProgressBar1.Value = intSecond / 5 * 100
    Next intSecond
    Me.Hide
End Sub

Bien sûr, je ne peux pas mettre Me.Show à l'intérieur de UserForm_Activate car cette procédure ne se déclenche après que l'objet UserForm événement à Afficher.

La documentation pour UserForm.ShowModal dit "Lorsqu'un objet est modale, l'utilisateur doit fournir des informations ou à proximité de l'objet UserForm avant d'utiliser tout autre partie de l'application. Pas de code suivant est exécuté jusqu'à ce que l'objet est masqué ou déchargé."

Je suis en train d'utiliser un modal UseForm comme une barre de progression pour empêcher l'utilisateur d'interagir avec l'application de tout un processus s'exécute. Mais ce sera difficile à accomplir si tout mon code doit être dans le UserForm_Activate procédure.

Suis-je manqué quelque chose? Pourquoi tous d'exécution de code à arrêter au Me.Show?

OriginalL'auteur Kuyenda | 2009-11-23

  1. 11

    Lorsque le formulaire est affiché avec vbModal, le code de suspendre l'exécution et d'attendre que l'interaction de l'utilisateur avec le formulaire. Par exemple en cliquant sur un bouton ou à l'aide d'une liste déroulante.

    Si vous mettez à jour la forme de la propriété 

    ShowModal = False

    et supprimer vbModal à partir de votre code. Cela va permettre l'exécution de code à continuer lorsque le formulaire est affiché.

    Yup, vbModeless UserForms sont faciles, mais j'ai besoin de verrouiller l'interaction de l'utilisateur avec l'application jusqu'à ce que le processus se termine. C'était juste une question de trouver la façon de structurer le code dans un vbModal objet UserForm. Dommage que la documentation n'est pas juste de dire "si vous utilisez vbModal assurez-vous de mettre tout le code que vous souhaitez exécuter dans UserForm_Activate et avant Me.Se cacher. Merci!
    Qui n'a pas fonctionné pour moi. L'appel sub ne continue de fonctionner, mais absolument pas de composants sont rendus, pas même une simple étiquette.

    OriginalL'auteur Robert Mearns

  2. 5

    J'étais à la recherche d'une réponse à pourquoi je recevais le message d'erreur suivant:

    Erreur d'exécution '5': Invalid argument ou appel de procédure

    lors de l'exécution de cette ligne de code:

    UserForm1.Show True

    même si cette ligne fonctionne:

    UserForm1.Show False

    De cours. Vrai n'est pas le même que vbModal! Donc, la réponse la plus simple est d'utiliser le bon d'énumérations:

    UserForm1.Show vbModal
UserForm1.Show vbModeless

    OriginalL'auteur Jamie Garroch

  3. 2

    Je pense que j'ai compris cela.

    Après Me.Show la UserForm_Activate événement se déclenche. Si il n'y a pas de code dans le UserForm_Activate procédure ne se passera rien car VBA est en attente pour Me.Hide.

    Donc l'ordre des événements est: Me.Show > UserForm_Activate > Me.Hide

    Tout le code que je veux exécuter doit être dans le UserForm_Activate procédure, et doit être avant Me.Hide.

    La structure est très stricte, mais je peut être en mesure d'utiliser cette structure à mon avantage.

    Tout ce que vous avez vraiment besoin de faire si vous voulez toujours être en mesure d'interagir avec la feuille en la forme qui est en haut est d'utiliser ce code lors de l'appel de l'objet userform: userform.show vbModeless.

    OriginalL'auteur Kuyenda

  4. -3

    Je pense que j'ai tout compris
    Essayez de faire cette étape simple
    En vous forme un clic droit sur la banque partie et cliquez sur propriétés
    Changer la "ShowModal" pour de Faux
    ou dans le code VBA lorsque vous afficher l'objet userform en utilisant le code suivant:

    UserForm1.Montrer De Faux

    OriginalL'auteur Eduard

  5. -4

    Je ne sais pas vraiment ce qui se passe dans votre esprit, car il existe une grande variété de code pour ce que vous êtes en question, mais j'espère que cela peut aider à

    Privé Sous cmdSwitch_Click()
    UserForm1.Masquer
    UserForm2.Montrer

    End Sub

    OriginalL'auteur Eduard