Voici une source qui fera peut-etre suite un tutorial pour la gestion des caractères UNICODE/AINSI en VB6. En effet, la gestion des caractères étrangés (chinois, japonais, russes) n'est pas chose simple en VB6 sachant que VB6 ne gère pas les caractères Unicode au niveau interface.
Cette source permet d'effectuer une recherche de fichier et d'afficher les fichiers sous forme UNICODE/AINSI.
Pour y parvenir, nous utilisons les API UNICODE (se finissant par W au lieu du A à la fin de certains api).
Exemple:
API banal ASCII:
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
API UNICODE:
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileW" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Pour afficher le resultat de la recherche sous forme unicode nous devons utiliser les composants Forms 2.0 Object Library qui sont malheureusement sous licence MS Office.