Je me demandais aussi à quoi correspondait cette liste des code de pages (la variable de type Long laissait entendre qu'il y en avait plusieurs milliers).
Pour le savoir, j'ai donc placé le code ci-dessus dans un module et le code ci-dessous dans une feuille sur laquelle se trouve un bouton Command1 et une liste Liste1 :
Private Sub Command1_Click()
Dim i As Long
Call f_CodePage_Init
For i = 0 To g_CodePageNbr - 1
Liste1.AddItem Str$(g_CodePageLst(i).Id) + " " + g_CodePageLst(i).Name
Next i
End Sub
S'affiche ainsi la liste des codes supportés (55 sur ma machine). Ce qui se présente comme ceci (pour les premiers) :
10000 MAC - romain
10006 MAC - grec I
10007 MAC - cyrillique
10010 MAC - Roumanie
10017 MAC - Ukraine
10029 MAC - latin II
10079 MAC - islandais
10081 MAC - turc
10082 MAC - croate
1026 IBM EBCDIC - Turque (Latin-5)
yrt007
Messages postés13Date d'inscriptionsamedi 31 juillet 2004StatutMembreDernière intervention17 août 2010 28 déc. 2007 à 10:28
Cool pour le initiés mais pour les novices, on peut avoir, sans etre académique, quelques détails ?
merci
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 28 déc. 2007 à 08:02
31 déc. 2007 à 10:38
Pour le savoir, j'ai donc placé le code ci-dessus dans un module et le code ci-dessous dans une feuille sur laquelle se trouve un bouton Command1 et une liste Liste1 :
Private Sub Command1_Click()
Dim i As Long
Call f_CodePage_Init
For i = 0 To g_CodePageNbr - 1
Liste1.AddItem Str$(g_CodePageLst(i).Id) + " " + g_CodePageLst(i).Name
Next i
End Sub
S'affiche ainsi la liste des codes supportés (55 sur ma machine). Ce qui se présente comme ceci (pour les premiers) :
10000 MAC - romain
10006 MAC - grec I
10007 MAC - cyrillique
10010 MAC - Roumanie
10017 MAC - Ukraine
10029 MAC - latin II
10079 MAC - islandais
10081 MAC - turc
10082 MAC - croate
1026 IBM EBCDIC - Turque (Latin-5)
28 déc. 2007 à 10:28
merci
28 déc. 2007 à 08:02
surtout ce f_ qui préfixe les fonctions...