crypter un MsgBox

Question

Salut est il possible, comme avec le passwordchar pour le textbox, de mettre des "***" dans un MsgBox

Merci
Swan94

crenaud76 · Answer

[Code]
MsgBox "********", vbOkOnly+vbCritical
[Code]
Ca te convient pas je suppose, mais cela répond parfaitement à ta question !!

Christophe R.

econs · Answer

Si par hasard, tu voulais simplement remplacer chacun des caractères de ton message par une étoile, alors çà donnerait à peu près ceci :


Dim chaine_a_afficher As String
Dim resultat As String

    chaine_a_afficher = "Salut coucou"
    resultat = ""
    For i = 1 To Len(chaine_a_afficher)
        If Mid(chaine_a_afficher, i, 1) = " " Then
            resultat = resultat & " "
        Else
            resultat = resultat & "*"
        End If
    Next i
    MsgBox resultat



Si ce n'est toujours pas çà, il faudra reformuler ton problème.

Bonne prog,

Manu

Renfield · Answer

Je pense que tu parlais d'un InputBox....

mais telle n'etais pas ta question.... 

au fait, econs, pour ton code :


    Msgbox String$ (len ( chaine) , "*" )


aurait suffit !!!!

pour l'inputBox, ce n'est pas implémentable facilement.... le mieux, c'est que tu codes une Form juste pour ca...

Crypter un MsgBox

3 réponses

Discussions similaires