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) :
Chez l'utilisateur, les virgules sont bien remplacés comme les espaces .
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
Des idées ?
Partager