Discussion :

[DevGroupeMTT]

Salut,

J'ai créé un soft pour les joueurs de poker, le principe rentrée leurs données pour avoir un résultat.

Je déploie mon soft via click once sur un serveur gratuit

Le problème :

Quand les utilisateurs rentrent leurs données avec un point ou une virgule cela affiche une erreur "Ce ne sont pas des nombres"


Sauf que moi je n’ai pas cette erreur ?!


Voici le code de vérification des champs (c’est une class) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Public Class Verif
 
    Private _ChampAVerifier As Object
    Private _Validation As String
    Private _ColorChamp As Object
    Private _Comfirm As Boolean
    Private _Valeur As Double
    Sub New(ByVal ChampAVerifier As Object)
        _ChampAVerifier = New Object
        _ChampAVerifier = ChampAVerifier
 
        _Validation = New String("")
 
        _ColorChamp = New Object
        _ColorChamp = Color.White
        _Comfirm = New Boolean()
    End Sub
 
    Public Sub Numeric()
        _ChampAVerifier.text = Replace(_ChampAVerifier.text, ",", ".")
        _ChampAVerifier.text = Replace(_ChampAVerifier.text, " ", "")
 
        If _ChampAVerifier.text = "" Then
            _Validation = "Un ou plusieurs champs sont vide !"
            _ColorChamp = Color.FromArgb(255, 192, 192)
            _Comfirm = False
        ElseIf _ChampAVerifier.text Is Nothing Or Not IsNumeric(_ChampAVerifier.text) Then
            _Validation = "Ce ne sont pas des nombres"
            _ColorChamp = Color.FromArgb(255, 192, 192)
            _Comfirm = False
        Else
            _Comfirm = True
            _Valeur = New Double
            _Valeur = _ChampAVerifier.text
        End If
 
    End Sub
    Public Property Erreur() As String
        Get
            Return _Validation
        End Get
        Set(ByVal value As String)
            _Validation = value
        End Set
    End Property
    Public Property Confirm() As Boolean
        Get
            Return _Comfirm
        End Get
        Set(ByVal value As Boolean)
            _Comfirm = value
        End Set
    End Property
    Public Property ZoneTexteColor() As Object
        Get
            Return _ColorChamp
        End Get
        Set(ByVal value As Object)
            _ColorChamp = value
        End Set
    End Property
    Public Property Valeur() As Double
        Get
            Return _Valeur
        End Get
        Set(ByVal value As Double)
            _Valeur = value
        End Set
    End Property
 
 
End Class

Chez l'utilisateur, les virgules sont bien remplacés comme les espaces .

Des idées ?