OVH Cloud OVH Cloud

LoadResString

2 réponses
Avatar
PePiCK
Bonjour la liste,

LoadResString prend par défaut le code d'emplacement du système.

J'aimerais bien choisir moi même le code d'emplacement, question de pouvoir
passé d'un a l'autre en cours d'exécution. (changer la langue par exemple)
Il y a quelqu'un sur la liste qui a donné une api dernierement pour pouvoir
changer les setting regionaux mais que pour l'application, ca ferais
l'affaire dans mon cas, mais je n'arrive pas a mettre la main dessus.
Si quelqu'un l'avait pas loin !

Merci

PePiCK

2 réponses

Avatar
Zoury
Salut Pepick! :O)

L'API se nomme SetThreadLocale :
http://msdn.microsoft.com/library/en-us/intl/nls_52lh.asp

dit le nous si tu as besoin d'aide..

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
Avatar
PePiCK
Je te remercie Zoury,

Mais j'ai changer d'idée sur la façon de faire !

Quelque chose dans le genre !

IDLanguage = 0 ' Francais
IDLanguage = 10000 ' Anglais

Public Sub sbSetCaption()

Dim frm As Form
Dim obj As Object

For Each frm In Forms
' // Set caption form
frm.Caption = LoadResString(g_Language + CLng(frm.Tag))
For Each obj In frm
If Not LenB(obj.Tag) = 0 Then
' // Object with tag
obj.Caption = LoadResString(g_Language + CLng(obj.Tag))
Else
' // Object without tag
obj.Caption = LoadResString(g_Language + CLng(Right(obj.Name, 4)))
End If
Next ' Each obj In frm
Next ' Each frm In Forms
End Sub

Et ca marche très bien !

PePiCK

"Zoury" a écrit dans le message de news:

Salut Pepick! :O)

L'API se nomme SetThreadLocale :
http://msdn.microsoft.com/library/en-us/intl/nls_52lh.asp

dit le nous si tu as besoin d'aide..

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/