Discussion :

[ProgElecT]

Je découvre accidentellement une différence de fonctionnement entre l'exécution de MsgBox sous VB6 et VBScript avec ce bout de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim Msg
 
Msg = ChrW(1787)
MsgBox "ChrW(1787) = " & ChrW(1787)
MsgBox "ascW(ChrW(1787)) = " & AscW(ChrW(1787))
If Err <> 0 Then
MsgBox "?"
End If
Msg = ChrW(1787)
MsgBox "msg = msg = ChrW(1787) = " & Msg
MsgBox "asc(msg) = " & Asc(Msg)
MsgBox "ascW(msg) = " & AscW(Msg)

Sous VBScript le caractére ChrW(1787) et affiché correctement, sous VB6 non, l'affichage est transformé en un ? (point d'interrogation).
Chez vous, cela ce passe comment ?

[Overcrash]

Plop,

Chez moi sous XP avec Visual basic 6:

ChrW(1787) = ?
ascW(ChrW(1787)) = 1787
msg = msg = ChrW(1787) = ?
asc(msg) = 63
ascW(msg) = 1787

Cela doit affiché quoi 63 ?

[ProgElecT]

Bonne année à tous

Un peu long pour des informations supplémentaires, je n'avais pas sous la mains VB6 pour faire voire la différence entre l'utilisation sous VB6 et VBScript.
Voici une capture d'écran illustrant la différence pour le code mis dans mon premier message.

Ce que je trouve curieux, c'est que le caractère UNICODE passe sous VBScript et non sous VB6, naïvement je pensais que l'outil MsgBox était le même pour les deux.
Essais sous Windows 7 Familiale Premium et sous Windows 7 Edition Intégrale