Fonction avec choix de réponse en parametres.Résolu

Question

Bonjour, j'aimerais faire une fonction comme celle d'un MsgBox, je m'explique.

Exemple dans le MsgBox, nous donnons le titre que nous voulons et le deuxi&#232;me param&#232;tre que nous devons passer est bas&#233; sur un choix de r&#233;ponse : MsgBoxStyle.AbortRetryIgnore, MsgBoxStyle.ApplicationModal et etc..

Quelqu'un &#224; une id&#233;e comment cr&#233;er une fonction avec un choix de r&#233;ponse comme le MsgBox ??

Merci

bouv · Accepted Answer

Je ne suis pas sur que c'est ce que Nos535 attendait. Il souhaite un certain nombre de r&#233;ponses types.

Esai de mettre &#231;a dans une feuille

Option Explicit


Public Enum ReponseType
    Reponse1 = 0
    Reponse2 = 1
End Enum


Public Function MaFonction(ByVal MonParam As Integer) As ReponseType
    If MonParam > 5 Then
        MaFonction = Reponse1
    Else
        MaFonction = Reponse2
    End If
End Function


Private Sub Form_Load()
    Dim Reponse As ReponseType
    Reponse = MaFonction(2)
    Debug.Print Reponse
End Sub

Bonne prog
++

PCPT · Answer

salut, tu déclares ta fonction avec ses paramètres et ce quelle doit retourner... [VB6] Option Explicit ' ' Private Sub Form_Load() Dim MaString As String MaString = MaFonction("Bonjour", 14, 5) Debug.Print MaString End Sub ' ' Private Function MaFonction(sChaine As String, iNum1 As Integer, iNum2 As Integer) As String 'ta fonction te renvoie la concaténation de la chaîne 'avec le 1er nombre*2 et le 2ème puissance 5 MaFonction = sChaine & CStr(iNum1 * 2) & CStr(iNum2 ^ 5) End Function Coloration syntaxique automatique [AFCK] MaString va te retourner Bonjour283125 ++ PCPT [AFCK]

bouv · Answer

PS : Attention &#224; Enum : les 'r&#233;ponses' doivent &#234;tre d&#233;clar&#233;es par ordre alphab&#233;tique et num&#233;rot&#233;es dans un ordre croissant.

Bonne prog
++

PCPT · Answer

Bouv -> salut, ordre alphab&#233;tique pour des raisons de lisibilit&#233;, mais croissant, pas du tout...

avec Reponse1 2 3 4 (donc 0 1 2 3), tu eux par exemple mettre 

Public Enum ReponseType
    Reponse1 = 0
    Reponse2
    Reponse3
    Reponse4
End Enum

mais tu peux &#233;galement mettre des valeurs qui ont un sens (pour toi) mais qui ne se suivent pas.
exemple, un Enum de constantes, bien plus pratique parfois...

Public Enum ReponseType
    Reponse1 = &H0
    Reponse2 = &H8
    Reponse3 = 31
    Reponse4 = Reponse1 Or Reponse3
End Enum

+
PCPT   [AFCK]

PCPT · Answer

Reponse4 = Reponse2 Or Reponse3

bouv · Answer

Ouai c'est vrai. En fait j'ai r&#233;pondu un peu vite et j'ai pas trop voulu compliqu&#233;.

Par contre

Reponse4 = Reponse1 Or Reponse3

Je connaissais pas  Je vais faire un test pour voir comment &#231;a fonctionne.

Bonne prog
++

PCPT · Answer

Reponse4 =  Reponse 2  Or Reponse3



Reponse2  = &H8
Reponse3 = 31


reponse2 = 0000 1000
reponse3 = 0001 1111


0 Or 1 -> 1
1 Or 1 -> 1


Reponse4 = 0001 1111 -> 31 -> &H1F

++
PCPT   [AFCK]

bouv · Answer

OK merci pour l'explication

Bonne prog
++

Nos535 · Answer

Merci Bouv !

C'&#233;tait exactement ce que je cherchais.

Fonction avec choix de réponse en parametres.

9 réponses

Discussions similaires