Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2009 01 08 04:25:51

3 ARTICLES SUR SQL SERVER (DATA STRUCTURES, SCANS AND SEEKS, DATA ACCESS STRATEGIES) par RaptorXP

MAIS QUE PEUT BIEN FAIRE UN MVP QUAND IL NE CODE PAS ??? par sebmafate

POWERSHELL : COMMENT EXéCUTER UN SCRIPT PS DEPUIS UNE FENêTRE MS DOS OU SCHEDULED TASK par ROMELARD Fabrice

EDM DESIGNER par Matthieu MEZIL

SMALL BASIC - UN PROJET INTéRESSANT par pierrick

RE : COLLECTION par Orohena

REMPLIR DATAGRID EN 2 TABLE VB.NET par tdi2a

RE : COLLECTION par skyla

RE : POURQUOI ISEMPTY(VBEMPTY) RENVOI FALSE ??? par PCPT

+ de logiciels à télécharger

1 329 716 membres
62 nouveaux aujourd'hui
14 640 membres club

Trouver une ressource

Trouvez une ressource parmi 39 269 codes, 1 222 798 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

MODIFICATION DU SÉPARATEUR DÉCIMAL DANS LA BASE DE REGISTRE

Information sur la source

Catégorie :Base de registre Niveau : Débutant Date de création : 21/01/2003 Date de mise à jour : 27/01/2003 09:03:03 Vu : 3 767

Auteur : attila46

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (7)

Ajouter un commentaire et/ou une note

Description

Permet de trouver le séparateur décimal et de le changer si nécessaire.
En fin de prog, revient au séparateur initialement installé sur la machine

Source

' A mettre dans un modul au chargement du prog
Public Declare Function SetLocaleInfo Lib "kernel32" _
Alias "SetLocaleInfoA" _
(ByVal Locale As Long, _
ByVal LCType As Long, _
ByVal lpLCData As String) As Long
Public Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Public SDecSep As String
Public LCID As Long
Dim iNumber As Single
Dim X__ID As Long
iNumber = Val("1.1")
SDecSep = Mid(iNumber, 2, 1)
If SDecSep <> "." Then 'si vous voulez forcez le "." sinon "," si vous voulez forcez ","
LCID = GetSystemDefaultLCID()
X__ID = SetLocaleInfo(LCID, 14, ".")
'et pour remettre le séparateur qu'il y avait à l'ouverure du prog
If SDecSep <> "." Then
X__ID = SetLocaleInfo(LCID, 14, SDecSep)

' A mettre dans un modul au chargement du prog
Public Declare Function SetLocaleInfo Lib "kernel32" _
                        Alias "SetLocaleInfoA" _
                        (ByVal Locale As Long, _
                        ByVal LCType As Long, _
                        ByVal lpLCData As String) As Long
Public Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long


Public SDecSep As String
Public LCID As Long


Dim iNumber As Single
Dim X__ID  As Long
iNumber = Val("1.1")
SDecSep = Mid(iNumber, 2, 1)
If SDecSep <> "." Then 'si vous voulez forcez le "." sinon "," si vous voulez forcez ","
LCID = GetSystemDefaultLCID()
X__ID = SetLocaleInfo(LCID, 14, ".")
 'et pour remettre le séparateur qu'il y avait à l'ouverure du prog
If SDecSep <> "." Then
X__ID = SetLocaleInfo(LCID, 14, SDecSep)

Conclusion

Comme je l'ai tiré d'un prog plus important j'espère ne rien voir oublier

Sources du même auteur

NETTOYEUR DE DISQUE

Toutes les sources de attila46

Sources de la même categorie

AUTO-CONFIGURATION DES PARAMÈTRES DE PROXY D' INTERNET EXPLO... par drahcir

OUVRIR LE REGISTRE EN DÉFFINISSANT LA CLÉ DE SON CHOIX. par MiciM

FONCTIONS DE BASE DU REGISTRE par VB 2005

MENU CONTEXTUEL par Le Pivert

APPLICATION SYSTÈME par Le Pivert

Toutes les sources de la catégorie Base de registre

Commentaires et avis

Commentaire de BABASSE le 22/01/2003 10:17:04

T'as relus ??? Il me semble qu'il manque la déclaration de Getsystemdefault . De plus pour restaurer il faudrait extraire le séparateur avant , non ?
Ceci dis, je cherchais un moyen de connaître le séparateur par défault et cela me donne un indice pour le récupérer.

Commentaire de Patrice99 le 03/11/2003 09:37:30

Voici une version améliorée :

Public Function bChangerSeparateurDecimal( _
    Optional sSepDecimalImpose$ = ".", _
    Optional bRetablir As Boolean = False) As Boolean

    Dim sSepDecimal$, lCodePage_LCID&, rNumber!, lRet&
    Const lLOCALE_SDECIMAL& = 14 ' Code adresse du séparateur décimal : decimal separator

    ' Lire le séparateur décimal actuel
    rNumber = Val("1.1")
    sSepDecimal = Mid(rNumber, 2, 1)

    ' Conserver le séparateur décimal actuel
    Static sPrecedentSepDecimal$
    If sPrecedentSepDecimal = "" Then sPrecedentSepDecimal = sSepDecimal

    ' Forcer le séparateur décimal (par exemple ".")
    If sSepDecimal <> sSepDecimalImpose Then
        lCodePage_LCID = GetSystemDefaultLCID() ' Lire le code page actuel
        lRet = SetLocaleInfo(lCodePage_LCID, lLOCALE_SDECIMAL, sSepDecimalImpose)
        If lRet = False Then Exit Function
    End If

    ' Rétablir le précédent séparateur décimal avant l'appel à cette fonction
    If bRetablir And sSepDecimal <> sPrecedentSepDecimal Then
        lRet = SetLocaleInfo(lCodePage_LCID, lLOCALE_SDECIMAL, sPrecedentSepDecimal)
        If lRet = False Then Exit Function
    End If

    bChangerSeparateurDecimal = True

End Function

Commentaire de Mutos le 27/12/2005 05:38:14

Bonjour,

Encore un vieux post (2003 ^-^) sur le problème qui me préoccupe : une appli qui plante sur des constantes en dur et en "." lorsque la machine est en ",". Par hasard, quelqu'un aurait-il un tuyau pour modifier le séparateur dans l'application sans changer celui de la machine ? Ce me semblerait la meilleure solution, mais jusqu'à présent, 4 sujets et pas de réponse dans ce sens...

@+

Benoît 'Mutos' ROBIN
http://hoshikaze.net

Commentaire de Patrice99 le 27/12/2005 10:14:05

On ne peut pas changer le séparateur décimal pour une application seulement, on ne peut le changer que pour tout Windows.

Commentaire de Mutos le 27/12/2005 10:58:39

Bonjour à tous, bonjour PATRICE99,

VB.Net en tout cas, on peut lui faire ignorer les paramètres régionaux, j'ai testé avec les 3 lignes suivantes, mon application ne plante plus, preuve qu'elle interpréte bien les nombres avec ".", et mon panneau de config me sort bien le Français avec la "," :

Imports System.Globalization
Imports System.Threading
Thread.CurrentThread.CurrentCulture = New CultureInfo("en-us")

A faire en début de programme (Main ou Load de la première forme). Ici on lui force la culture américaine avec le "." et tous les autres paramètres, mais on peut aussi faire plus subtil en créant une variable CultureInfo et en la modifiant à loisir !

@+

Benoît 'Mutos' ROBIN
http://spacesims.hoshikaze.net