Je cherche une idée pour forcer, à partir de mon application, un paramètre
régional de l'utilisateur.
Je voudrais que le symbole décimal soit un "." (point) à la place de la ","
(virgule).
J'ai bien trouvé la question 67 de la FAQ, mais, en quelque sorte, je
voudrais faire l'inverse.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
François Picalausa
Hello,
L'API SetLocaleInfo est prévue à cet effet. Mais l'utilisateur n'aime généralement pas qu'on modifie ses paramètres sans autorisation! Voici un exemple:
Declare Function SetLocaleInfo _ Lib "Kernel32" _ Alias "SetLocaleInfoA" ( _ Locale As Long, _ LCType As Long, _ ByVal lpLCData As String _ ) _ As Long
Private Declare Function GetSystemDefaultLCID _ Lib "kernel32" _ ( _ ) _ As Long
Private Sub Command1_Click() Dim dwLCID As Long Dim Dummy As Long
dwLCID = GetSystemDefaultLCID() SetLocaleInfo(dwLCID, LOCALE_SDECIMAL, ",") = False Then
End Sub
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com http://apisvb.europe.webmatrixhosting.net
"pierre.rivet" a écrit dans le message de news:c7vhus$me5$
Bonjour,
Je cherche une idée pour forcer, à partir de mon application, un paramètre régional de l'utilisateur. Je voudrais que le symbole décimal soit un "." (point) à la place de la "," (virgule).
J'ai bien trouvé la question 67 de la FAQ, mais, en quelque sorte, je voudrais faire l'inverse.
Quelqu'un peut-il m'aider ?
Merci d'avance,
Pierre RIVET
Hello,
L'API SetLocaleInfo est prévue à cet effet.
Mais l'utilisateur n'aime généralement pas qu'on modifie ses paramètres sans
autorisation!
Voici un exemple:
Declare Function SetLocaleInfo _
Lib "Kernel32" _
Alias "SetLocaleInfoA"
( _
Locale As Long, _
LCType As Long, _
ByVal lpLCData As String _
) _
As Long
Private Declare Function GetSystemDefaultLCID _
Lib "kernel32" _
( _
) _
As Long
Private Sub Command1_Click()
Dim dwLCID As Long
Dim Dummy As Long
dwLCID = GetSystemDefaultLCID()
SetLocaleInfo(dwLCID, LOCALE_SDECIMAL, ",") = False Then
End Sub
--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net
"pierre.rivet" <pierre.rivet@wanadoo.fr> a écrit dans le message de
news:c7vhus$me5$1@news-reader1.wanadoo.fr
Bonjour,
Je cherche une idée pour forcer, à partir de mon application, un
paramètre régional de l'utilisateur.
Je voudrais que le symbole décimal soit un "." (point) à la place de
la "," (virgule).
J'ai bien trouvé la question 67 de la FAQ, mais, en quelque sorte, je
voudrais faire l'inverse.
L'API SetLocaleInfo est prévue à cet effet. Mais l'utilisateur n'aime généralement pas qu'on modifie ses paramètres sans autorisation! Voici un exemple:
Declare Function SetLocaleInfo _ Lib "Kernel32" _ Alias "SetLocaleInfoA" ( _ Locale As Long, _ LCType As Long, _ ByVal lpLCData As String _ ) _ As Long
Private Declare Function GetSystemDefaultLCID _ Lib "kernel32" _ ( _ ) _ As Long
Private Sub Command1_Click() Dim dwLCID As Long Dim Dummy As Long
dwLCID = GetSystemDefaultLCID() SetLocaleInfo(dwLCID, LOCALE_SDECIMAL, ",") = False Then
End Sub
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com http://apisvb.europe.webmatrixhosting.net
"pierre.rivet" a écrit dans le message de news:c7vhus$me5$
Bonjour,
Je cherche une idée pour forcer, à partir de mon application, un paramètre régional de l'utilisateur. Je voudrais que le symbole décimal soit un "." (point) à la place de la "," (virgule).
J'ai bien trouvé la question 67 de la FAQ, mais, en quelque sorte, je voudrais faire l'inverse.
Quelqu'un peut-il m'aider ?
Merci d'avance,
Pierre RIVET
ng
Salut,
Sinon voici une fonction permettant de récupérer cette info :
Public Function RecupSep() As String RecupSep = CStr(1.5) RecupSep = Mid$(Left$(RecupSep, Len(RecupSep) - 1), 2) End Function
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
François Picalausa a écrit :
Hello,
L'API SetLocaleInfo est prévue à cet effet. Mais l'utilisateur n'aime généralement pas qu'on modifie ses paramètres sans autorisation! Voici un exemple:
Declare Function SetLocaleInfo _ Lib "Kernel32" _ Alias "SetLocaleInfoA" ( _ Locale As Long, _ LCType As Long, _ ByVal lpLCData As String _ ) _ As Long
Private Declare Function GetSystemDefaultLCID _ Lib "kernel32" _ ( _ ) _ As Long
Private Sub Command1_Click() Dim dwLCID As Long Dim Dummy As Long
dwLCID = GetSystemDefaultLCID() SetLocaleInfo(dwLCID, LOCALE_SDECIMAL, ",") = False Then
End Sub
"pierre.rivet" a écrit dans le message de news:c7vhus$me5$
Bonjour,
Je cherche une idée pour forcer, à partir de mon application, un paramètre régional de l'utilisateur. Je voudrais que le symbole décimal soit un "." (point) à la place de la "," (virgule).
J'ai bien trouvé la question 67 de la FAQ, mais, en quelque sorte, je voudrais faire l'inverse.
Quelqu'un peut-il m'aider ?
Merci d'avance,
Pierre RIVET
Salut,
Sinon voici une fonction permettant de récupérer cette info :
Public Function RecupSep() As String
RecupSep = CStr(1.5)
RecupSep = Mid$(Left$(RecupSep, Len(RecupSep) - 1), 2)
End Function
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
François Picalausa <fpicalausa@chez.com> a écrit :
Hello,
L'API SetLocaleInfo est prévue à cet effet.
Mais l'utilisateur n'aime généralement pas qu'on modifie ses
paramètres sans autorisation!
Voici un exemple:
Declare Function SetLocaleInfo _
Lib "Kernel32" _
Alias "SetLocaleInfoA"
( _
Locale As Long, _
LCType As Long, _
ByVal lpLCData As String _
) _
As Long
Private Declare Function GetSystemDefaultLCID _
Lib "kernel32" _
( _
) _
As Long
Private Sub Command1_Click()
Dim dwLCID As Long
Dim Dummy As Long
dwLCID = GetSystemDefaultLCID()
SetLocaleInfo(dwLCID, LOCALE_SDECIMAL, ",") = False Then
End Sub
"pierre.rivet" <pierre.rivet@wanadoo.fr> a écrit dans le message de
news:c7vhus$me5$1@news-reader1.wanadoo.fr
Bonjour,
Je cherche une idée pour forcer, à partir de mon application, un
paramètre régional de l'utilisateur.
Je voudrais que le symbole décimal soit un "." (point) à la place de
la "," (virgule).
J'ai bien trouvé la question 67 de la FAQ, mais, en quelque sorte, je
voudrais faire l'inverse.
Sinon voici une fonction permettant de récupérer cette info :
Public Function RecupSep() As String RecupSep = CStr(1.5) RecupSep = Mid$(Left$(RecupSep, Len(RecupSep) - 1), 2) End Function
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
François Picalausa a écrit :
Hello,
L'API SetLocaleInfo est prévue à cet effet. Mais l'utilisateur n'aime généralement pas qu'on modifie ses paramètres sans autorisation! Voici un exemple:
Declare Function SetLocaleInfo _ Lib "Kernel32" _ Alias "SetLocaleInfoA" ( _ Locale As Long, _ LCType As Long, _ ByVal lpLCData As String _ ) _ As Long
Private Declare Function GetSystemDefaultLCID _ Lib "kernel32" _ ( _ ) _ As Long
Private Sub Command1_Click() Dim dwLCID As Long Dim Dummy As Long
dwLCID = GetSystemDefaultLCID() SetLocaleInfo(dwLCID, LOCALE_SDECIMAL, ",") = False Then
End Sub
"pierre.rivet" a écrit dans le message de news:c7vhus$me5$
Bonjour,
Je cherche une idée pour forcer, à partir de mon application, un paramètre régional de l'utilisateur. Je voudrais que le symbole décimal soit un "." (point) à la place de la "," (virgule).
J'ai bien trouvé la question 67 de la FAQ, mais, en quelque sorte, je voudrais faire l'inverse.
Quelqu'un peut-il m'aider ?
Merci d'avance,
Pierre RIVET
François Picalausa
Hello,
Cette fonction ne fonctionne pas avec des séparateurs décimaux de plus de trois caractères contrairement à GetLocaleInfo! (D'accord, c'est assez rare des séparateurs de 3 caractères et +)
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com http://apisvb.europe.webmatrixhosting.net
"ng" a écrit dans le message de news:%
Salut,
Sinon voici une fonction permettant de récupérer cette info :
Public Function RecupSep() As String RecupSep = CStr(1.5) RecupSep = Mid$(Left$(RecupSep, Len(RecupSep) - 1), 2) End Function
Hello,
L'API SetLocaleInfo est prévue à cet effet. Mais l'utilisateur n'aime généralement pas qu'on modifie ses paramètres sans autorisation! Voici un exemple:
Declare Function SetLocaleInfo _ Lib "Kernel32" _ Alias "SetLocaleInfoA" ( _ Locale As Long, _ LCType As Long, _ ByVal lpLCData As String _ ) _ As Long
Private Declare Function GetSystemDefaultLCID _ Lib "kernel32" _ ( _ ) _ As Long
Private Sub Command1_Click() Dim dwLCID As Long Dim Dummy As Long
dwLCID = GetSystemDefaultLCID() SetLocaleInfo(dwLCID, LOCALE_SDECIMAL, ",") = False Then
End Sub
"pierre.rivet" a écrit dans le message de news:c7vhus$me5$
Bonjour,
Je cherche une idée pour forcer, à partir de mon application, un paramètre régional de l'utilisateur. Je voudrais que le symbole décimal soit un "." (point) à la place de la "," (virgule).
J'ai bien trouvé la question 67 de la FAQ, mais, en quelque sorte, je voudrais faire l'inverse.
Quelqu'un peut-il m'aider ?
Merci d'avance,
Pierre RIVET
Hello,
Cette fonction ne fonctionne pas avec des séparateurs décimaux de plus de
trois caractères contrairement à GetLocaleInfo!
(D'accord, c'est assez rare des séparateurs de 3 caractères et +)
--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net
"ng" <ng@babeuk.net> a écrit dans le message de
news:%23Y6tiUQOEHA.3300@TK2MSFTNGP09.phx.gbl
Salut,
Sinon voici une fonction permettant de récupérer cette info :
Public Function RecupSep() As String
RecupSep = CStr(1.5)
RecupSep = Mid$(Left$(RecupSep, Len(RecupSep) - 1), 2)
End Function
Hello,
L'API SetLocaleInfo est prévue à cet effet.
Mais l'utilisateur n'aime généralement pas qu'on modifie ses
paramètres sans autorisation!
Voici un exemple:
Declare Function SetLocaleInfo _
Lib "Kernel32" _
Alias "SetLocaleInfoA"
( _
Locale As Long, _
LCType As Long, _
ByVal lpLCData As String _
) _
As Long
Private Declare Function GetSystemDefaultLCID _
Lib "kernel32" _
( _
) _
As Long
Private Sub Command1_Click()
Dim dwLCID As Long
Dim Dummy As Long
dwLCID = GetSystemDefaultLCID()
SetLocaleInfo(dwLCID, LOCALE_SDECIMAL, ",") = False Then
End Sub
"pierre.rivet" <pierre.rivet@wanadoo.fr> a écrit dans le message de
news:c7vhus$me5$1@news-reader1.wanadoo.fr
Bonjour,
Je cherche une idée pour forcer, à partir de mon application, un
paramètre régional de l'utilisateur.
Je voudrais que le symbole décimal soit un "." (point) à la place
de la "," (virgule).
J'ai bien trouvé la question 67 de la FAQ, mais, en quelque sorte,
je voudrais faire l'inverse.
Cette fonction ne fonctionne pas avec des séparateurs décimaux de plus de trois caractères contrairement à GetLocaleInfo! (D'accord, c'est assez rare des séparateurs de 3 caractères et +)
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com http://apisvb.europe.webmatrixhosting.net
"ng" a écrit dans le message de news:%
Salut,
Sinon voici une fonction permettant de récupérer cette info :
Public Function RecupSep() As String RecupSep = CStr(1.5) RecupSep = Mid$(Left$(RecupSep, Len(RecupSep) - 1), 2) End Function
Hello,
L'API SetLocaleInfo est prévue à cet effet. Mais l'utilisateur n'aime généralement pas qu'on modifie ses paramètres sans autorisation! Voici un exemple:
Declare Function SetLocaleInfo _ Lib "Kernel32" _ Alias "SetLocaleInfoA" ( _ Locale As Long, _ LCType As Long, _ ByVal lpLCData As String _ ) _ As Long
Private Declare Function GetSystemDefaultLCID _ Lib "kernel32" _ ( _ ) _ As Long
Private Sub Command1_Click() Dim dwLCID As Long Dim Dummy As Long
dwLCID = GetSystemDefaultLCID() SetLocaleInfo(dwLCID, LOCALE_SDECIMAL, ",") = False Then
End Sub
"pierre.rivet" a écrit dans le message de news:c7vhus$me5$
Bonjour,
Je cherche une idée pour forcer, à partir de mon application, un paramètre régional de l'utilisateur. Je voudrais que le symbole décimal soit un "." (point) à la place de la "," (virgule).
J'ai bien trouvé la question 67 de la FAQ, mais, en quelque sorte, je voudrais faire l'inverse.
Quelqu'un peut-il m'aider ?
Merci d'avance,
Pierre RIVET
ng
Exact.
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
François Picalausa a écrit :
Hello,
Cette fonction ne fonctionne pas avec des séparateurs décimaux de plus de trois caractères contrairement à GetLocaleInfo! (D'accord, c'est assez rare des séparateurs de 3 caractères et +)
"ng" a écrit dans le message de news:%
Salut,
Sinon voici une fonction permettant de récupérer cette info :
Public Function RecupSep() As String RecupSep = CStr(1.5) RecupSep = Mid$(Left$(RecupSep, Len(RecupSep) - 1), 2) End Function
Hello,
L'API SetLocaleInfo est prévue à cet effet. Mais l'utilisateur n'aime généralement pas qu'on modifie ses paramètres sans autorisation! Voici un exemple:
Declare Function SetLocaleInfo _ Lib "Kernel32" _ Alias "SetLocaleInfoA" ( _ Locale As Long, _ LCType As Long, _ ByVal lpLCData As String _ ) _ As Long
Private Declare Function GetSystemDefaultLCID _ Lib "kernel32" _ ( _ ) _ As Long
Private Sub Command1_Click() Dim dwLCID As Long Dim Dummy As Long
dwLCID = GetSystemDefaultLCID() SetLocaleInfo(dwLCID, LOCALE_SDECIMAL, ",") = False Then
End Sub
"pierre.rivet" a écrit dans le message de news:c7vhus$me5$
Bonjour,
Je cherche une idée pour forcer, à partir de mon application, un paramètre régional de l'utilisateur. Je voudrais que le symbole décimal soit un "." (point) à la place de la "," (virgule).
J'ai bien trouvé la question 67 de la FAQ, mais, en quelque sorte, je voudrais faire l'inverse.
Quelqu'un peut-il m'aider ?
Merci d'avance,
Pierre RIVET
Exact.
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
François Picalausa <fpicalausa@chez.com> a écrit :
Hello,
Cette fonction ne fonctionne pas avec des séparateurs décimaux de
plus de trois caractères contrairement à GetLocaleInfo!
(D'accord, c'est assez rare des séparateurs de 3 caractères et +)
"ng" <ng@babeuk.net> a écrit dans le message de
news:%23Y6tiUQOEHA.3300@TK2MSFTNGP09.phx.gbl
Salut,
Sinon voici une fonction permettant de récupérer cette info :
Public Function RecupSep() As String
RecupSep = CStr(1.5)
RecupSep = Mid$(Left$(RecupSep, Len(RecupSep) - 1), 2)
End Function
Hello,
L'API SetLocaleInfo est prévue à cet effet.
Mais l'utilisateur n'aime généralement pas qu'on modifie ses
paramètres sans autorisation!
Voici un exemple:
Declare Function SetLocaleInfo _
Lib "Kernel32" _
Alias "SetLocaleInfoA"
( _
Locale As Long, _
LCType As Long, _
ByVal lpLCData As String _
) _
As Long
Private Declare Function GetSystemDefaultLCID _
Lib "kernel32" _
( _
) _
As Long
Private Sub Command1_Click()
Dim dwLCID As Long
Dim Dummy As Long
dwLCID = GetSystemDefaultLCID()
SetLocaleInfo(dwLCID, LOCALE_SDECIMAL, ",") = False Then
End Sub
"pierre.rivet" <pierre.rivet@wanadoo.fr> a écrit dans le message de
news:c7vhus$me5$1@news-reader1.wanadoo.fr
Bonjour,
Je cherche une idée pour forcer, à partir de mon application, un
paramètre régional de l'utilisateur.
Je voudrais que le symbole décimal soit un "." (point) à la place
de la "," (virgule).
J'ai bien trouvé la question 67 de la FAQ, mais, en quelque sorte,
je voudrais faire l'inverse.
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
François Picalausa a écrit :
Hello,
Cette fonction ne fonctionne pas avec des séparateurs décimaux de plus de trois caractères contrairement à GetLocaleInfo! (D'accord, c'est assez rare des séparateurs de 3 caractères et +)
"ng" a écrit dans le message de news:%
Salut,
Sinon voici une fonction permettant de récupérer cette info :
Public Function RecupSep() As String RecupSep = CStr(1.5) RecupSep = Mid$(Left$(RecupSep, Len(RecupSep) - 1), 2) End Function
Hello,
L'API SetLocaleInfo est prévue à cet effet. Mais l'utilisateur n'aime généralement pas qu'on modifie ses paramètres sans autorisation! Voici un exemple:
Declare Function SetLocaleInfo _ Lib "Kernel32" _ Alias "SetLocaleInfoA" ( _ Locale As Long, _ LCType As Long, _ ByVal lpLCData As String _ ) _ As Long
Private Declare Function GetSystemDefaultLCID _ Lib "kernel32" _ ( _ ) _ As Long
Private Sub Command1_Click() Dim dwLCID As Long Dim Dummy As Long
dwLCID = GetSystemDefaultLCID() SetLocaleInfo(dwLCID, LOCALE_SDECIMAL, ",") = False Then
End Sub
"pierre.rivet" a écrit dans le message de news:c7vhus$me5$
Bonjour,
Je cherche une idée pour forcer, à partir de mon application, un paramètre régional de l'utilisateur. Je voudrais que le symbole décimal soit un "." (point) à la place de la "," (virgule).
J'ai bien trouvé la question 67 de la FAQ, mais, en quelque sorte, je voudrais faire l'inverse.
