Discussion :

[thierry007]

Bonjour la communauté des dev

Juste un chti problème

Dans un datagridviewer, je souhaite controler les charactères entrés dans les cellules, a savoir si la personne tape sur le touche "." ( point ), remplacer directement celui-ci par une "," (virgule )
Sa doit surement être c.. mais je ne vois pas
PS: je suis sous VS2008

Merci

[Gdal]

Salut,

Je te propose d'interdire la saisie de "."

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
 
    Private Sub dgvLstPleins_EditingControlShowing(ByVal sender As Object, ByVal e As DataGridViewEditingControlShowingEventArgs) Handles dgvLstPleins.EditingControlShowing
 
        Try
 
            If e.CellStyle.Alignment = DataGridViewContentAlignment.MiddleRight Then
                AddHandler e.Control.KeyPress, AddressOf CheckCell
 
            Else
                RemoveHandler e.Control.KeyPress, AddressOf CheckCell
                RemoveHandler e.Control.KeyPress, AddressOf CheckCell
 
            End If
 
        Catch ex As Exception
 
        End Try
 
    End Sub
 
    Private Sub CheckCell(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
 
        Try
 
            Dim KeyAscii As Short
            KeyAscii = Asc(e.KeyChar)
 
            ' Récupérer le N° de la ligne sélectionnée
            Dim intNColonne As Integer
            intNColonne = Me.dgvLstPleins.CurrentCell.ColumnIndex
 
            Select Case Me.dgvLstPleins.Columns(intNColonne).Name
 
                Case "Kilométrage"
                    Select Case e.KeyChar
 
                        Case "0" To "9", ControlChars.Back
                            Exit Sub
 
                        Case Else
                            e.Handled = True
 
                    End Select
 
                Case "Quantité"
                    Select Case e.KeyChar
 
                        Case "0" To "9", ",", ControlChars.Back
                            Exit Sub
 
                        Case Else
                            e.Handled = True
 
                    End Select
 
            End Select
 
        Catch ex As Exception
 
        End Try
 
    End Sub

@+

Gdal

[thierry007]

Solution a garder pour une autre appli, mais le problème c'est que beaucoup de personne utilise le pavé num pour l'encodage de chiffre, donc par defaut le point du pavé numérique, c'est pour cela que je souhaite faire le remplacement auto du point par la virgule

en VB6 y avait

Code :

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

 If KeyAscii = Asc(".") then KeyAscii = Asc(",")

Et zoup

[Kropernic]

La solution proposée convient parfaitement.

Il te suffit d'ajouter un cas où si c'est un ".", tu replaces par "," et le tour est joué.

Griftou.

[thierry007]

Solution a garder pour une autre appli, mais le problème c'est que beaucoup de personne utilise le pavé num pour l'encodage de chiffre, donc par defaut le point du pavé numérique, c'est pour cela que je souhaite faire le remplacement auto du point par la virgule

en VB6 y avait

Code :

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

 If KeyAscii = Asc(".") then KeyAscii = Asc(",")

Et zoup

la j'ai la syntaxe en vb6, mais en .net ??

[Kropernic]

Ce n'est pas fort différent. Cherche un peu et tu trouveras ;-)

Griftou.