La compréhension de ce que les codes de réponse de revenir de MsgBox

Je suis très nouveau à la programmation et je viens juste de commencer à apprendre le VBA avec excel. Je suis tombé sur ce site et ne les exemples ici, mais j'ai une question à propos de ce code:

Je sais que les variables sont déclarées à l'aide de "Dim" déclaration "Message" ici est la variable ayant un type de données entier. Ce que je ne pas bien comprendre, c'est; quel est le sens de "6" et "7". Je crois qu'ils viennent de quelque part. Mais comme je viens de commencer l'apprentissage de ce programme, je n'ai pas la moindre idée. Pourriez-vous s'il vous plaît dites-moi comment elle fin à "6" et "7". Je crois qu'il existe une certaine base ici

Private Sub CommandButton1_Click()
Dim message As Integer
message = MsgBox("Click Yes to Proceed, No to stop", vbYesNoCancel, "Login")
If message = 6 Then
Range("A1").Value = "You may proceed"
ActiveWorkbook.Activate 
ElseIf message = 7 Then
ActiveWorkbook.Close
End If

End Sub

Merci pour votre aide:-)

=======

Merci les gars pour les réponses, elles sont très utiles. Oui ce fil de discussion a été déjà posté dans le super utilisateur du site. J'ai été informé que cette question devrait appartiennent ici, donc je l'ai posté ici après avoir lu qu'ils vont le faire automatiquement à partir de super-utilisateur pour stackoverflow.

merci encore une fois

À partir de la FAQ (superuser.com/faq): "Si votre question est au sujet de la programmation, de la poser sur stackoverflow.com". Votre question sera probablement migré vers ce site, vous devez créer un compte là-bas et de l'associer à celui-ci, de sorte que vous gardez la propriété de cette question.
ok je vais poster cette question de Stackoverflow, même si je connais déjà la réponse n'est pas vraiment sûr si cela aide.
Ne postez pas votre question, il existe un système de migration entre les sites, votre question sera migré là-bas (dès que suffisamment de personnes de voter pour elle, ou un modérateur). Si vous postez là, il sera probablement un doublon, lorsque celui-ci sera déplacé (je sais, c'est pas très clair au début, mais vous vous habituez à elle 😉 )
désolé j'ai déjà poster. J'ai lu les commentaires avec beaucoup de retard. J'espère que je ne vais pas obtenir de toute pénalité:-(
Bien, si vous avez la réponse à votre question, n'hésitez pas à cliquer sur "tique" à côté de la bonne réponse.

OriginalL'auteur tintincutes | 2009-11-18

msgbox vba

20

MsgBox retourne un Enum(eration) appelé MsgBoxResult, qui au fond n'est rien d'autre puis les valeurs numériques avec un "label". 6 et 7 dans ce cas sont les membres de cette énumération, qui sont mappés à des réponses Yes et No.

À l'aide de soi-disant "nombres magiques" au lieu de Constantes ou des Énumérations devrait éviter dans la mesure du possible.

Fondamentalement, vous pouvez réécrire le code:
```
Dim message As Integer
message = MsgBox("Click Yes to Proceed, No to stop", vbYesNoCancel, "Login")
If message = MsgBoxResult.Yes Then
    Range("A1").Value = "You may proceed"
    ActiveWorkbook.Activate
ElseIf message = MsgBoxResult.No Then
    ActiveWorkbook.Close
End If
```
Peut-être que l'Enum est appelé vbMsgBoxResult ou quelque chose... je n'ai pas de Bureau pour vérifier cela, il suffit de Visual Studio.

Alors que nous en sommes... cela pourrait être plus facile à comprendre:
```
Select Case MsgBox("Click Yes to Proceed, No to stop", vbYesNoCancel, "Login")
    Case MsgBoxResult.Yes
        Range("A1").Value = "You may proceed"
        ActiveWorkbook.Activate

    Case MsgBoxResult.No
        ActiveWorkbook.Close

    Case MsgBoxResult.Cancel
        ' he clicked cancel '

End Select
```
Bonne réponse, j'aime ce qui suggère référencement de la valeur d'énumération des noms plutôt que des numéros. Aussi +1 pour probablement mieux adapté pour StackOverflow.
merci. Je pense que l'utilisation des noms plutôt que des numéros est ce que les énumérations sont tout au sujet, et j'adore les énumérations. 😉
merci Bobby pour la très bonne réponse, surtout si cette question appartient à Stackoverflow:-) je ne suis pas sûr si je dois l'ouvrir à Stackoverflow bien ou tout simplement le laisser ici comme ça. +1 🙂
le premier code ne fonctionne pas. j'ai une erreur "Erreur d'Exécution "424" Objet requis"... pas vraiment sûr pourquoi?
aussi le dernier code avec le cas, il ne fonctionne pas. J'ai eu la même erreur que ci-dessus.

OriginalL'auteur Bobby
8

C'est très mal écrit le code, "6" et "7" sont les valeurs des constantes "vbYes" et "vbNo" où sont renvoyés lorsque l'utilisateur clique sur Oui ou sur Non dans la boîte de dialogue.

Référence: http://www.techonthenet.com/access/constants/msgbox_ret.php

Le code doit dire
```
If message = Constants.vbYes 
```
au lieu de
```
If message = 6
```
De sorte qu'il est clair de ce qui se passe.

merci pour les commentaires. je ne suis pas celui qui a fait ce code, je suis en train d'essayer de le comprendre et c'est mon premier temps à l'apprendre vba chose

OriginalL'auteur Brian Schroth
8

Lorsque j'ai commencé avec MsgBox réponses, j'ai presque toujours déclaré la réponse comme un Integer. Cependant, j'ai appris que la meilleure chose à faire est de déclarer votre message variable comme VbMsgBoxResult, qui est une énumération qui montre toujours la réponse. Dans l'image ci-dessous, les IDE (par exemple, Visual Basic pour Application de l'éditeur) va vous montrer les différentes options possibles en VbMsgBoxResult.

Vous pourrait stocker vos answer variable comme un Integer étant donné que toutes les variables du Recensement (par exemple,vbAbort, vbYes, vbOK, etc.) en effet, la résoudre en nombres entiers. Cependant, vous devez comprendre ce que l'entier des valeurs pour ces variables sont chaque fois que vous le souhaitez pour référence. À mon avis, c'est une meilleure pratique pour stocker votre réponse comme VbMsgBoxResult de sorte que vous pouvez réellement voir la réponse.

OriginalL'auteur Ben McCormack
6

Ce lien est pour VBScript, mais je pense que les codes de retour doit être la même:
Fonction MsgBox Référence

Les Codes de Retour vous dire quel bouton a été cliqué:
```
1   OK
2   Cancel
3   Abort
4   Retry
5   Ignore
6   Yes
7   No
```
OriginalL'auteur Patonza
5

Ce sont des valeur de retour de MsgBox(). L'auteur a utilisé leur valeur symbolique, au lieu de rendre le programme plus lisible:
```
vbYes   6
vbNo    7
```
Voir ce Article MSDN pour plus d'info

OriginalL'auteur mjv
5

6 et 7 sont les codes de retour de la MsgBox méthode. En gros, quand MsgBox est appelé, il affiche une boîte de message à l'utilisateur qui clique sur "Oui", "Non", ou "Annuler". La sélection de l'utilisateur est renvoyé à partir de la MsgBox méthode comme un nombre, où 6 est Oui, et 7 N'est.

Il est considéré comme la meilleure pratique de ne pas utiliser ces numéros dans votre code directement, mais au lieu d'utiliser Microsoft fourni des constantes qui les représentent. Votre code peut être réécrite sous la forme:
```
Private Sub CommandButton1_Click()
    Dim message As Integer
    message = MsgBox("Click Yes to Proceed, No to stop", vbYesNoCancel, "Login")
    If message = vbYes Then
        Range("A1").Value = "You may proceed"
        ActiveWorkbook.Activate 
    ElseIf message = vbNo Then
        ActiveWorkbook.Close
    ElseIf message = vbCancel Then
        'Do nothing.
    End If
End Sub
```
vous avez raison, il est considéré comme la meilleure pratique de ne pas utiliser ces valeurs, surtout pour les débutants comme moi. la première fois que j'ai vu du code, je me demandais où le h*** * * * ce 6 et 7 sont venus. En tant qu'ingénieur, j'ai l'habitude de faire des hypothèses de ce que pourrait être, où peut-être ces choses vient de. C'est ce que je parie qu'ils doivent être les valeurs des constantes dans VBA. Maintenant, je ne comprends pas pourquoi ils continuent à développer ces valeurs de constantes, si elle n'est pas une bonne pratique à utiliser, car à la fin cela peut confondre les débutants?Est-ce à dire que ces valeurs constantes sont seulement pour les experts?
Les constantes (vbNo, vbYes, etc) doit toujours être utilisé à la place de l'équivalent des entiers (6, 7, etc). Code qui utilise les entiers directement est mauvaise parce qu'elle est extrêmement difficile à lire. Les développeurs ne doivent pas utiliser les nombres entiers directement, mais doit utiliser l'équivalent de la constante. Espère que cela répond à votre question.
Vrai je suis d'accord avec vous. Les développeurs ne doivent pas utiliser les nombres entiers directement, mais l'utilisation de l'équivalent des constantes. Pourquoi ont-ils continuer à développer cette entiers comme l'équivalent des constantes. Parfois, il rend le programme plus compliqué.

OriginalL'auteur RB.
5

Le 6 et 7 sont codés en dur valeurs qui détiennent une signification particulière. 'MsgBox("Cliquez sur Oui...")' appel renvoie un nombre qui permettra à votre code de déterminer ce que l'utilisateur l'a fait avec la boîte de message et vous pouvez alors utiliser le conditionnel (SI votre consolidés) pour décider quoi faire ensuite.

Une liste complète de ces valeurs spéciales peuvent être trouvées dans la documentation MSDN ici:

http://msdn.microsoft.com/en-us/library/139z2azd(SV.80).aspx

merci pour les liens utiles. ainsi, le "6" et "7" sont déjà fixer des valeurs. Je ne savais pas qu'il y a des valeurs d'énumération dans Visual Basics. Ceci est très utile merci encore

OriginalL'auteur Jesse Taber

Juste réécrire l'équivalent:

Private Sub CommandButton1_Click()
  Dim optionSelected As VbMsgBoxResult
  optionSelected = MsgBox("Click Yes to Proceed, No to stop", vbYesNoCancel, "Login")
  If optionSelected = vbYes Then
    Range("A1").Value = "You may proceed"
    ActiveWorkbook.Activate 
  ElseIf optionSelected = vbNo Then
    ActiveWorkbook.Close
  End If
End Sub

Et de passer

OriginalL'auteur eglasius

Vous devez vous connecter pour publier un commentaire.