remplacement d'un charactère dans un datagridviewer

Version imprimable

29/03/2008, 12h05
thierry007

remplacement d'un charactère dans un datagridviewer

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 :king:

Salut,

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

Code:

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

29/03/2008, 14h31
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:

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

Et zoup
31/03/2008, 10h04
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.
31/03/2008, 10h09
thierry007

Citation:

Envoyé par 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:

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

Et zoup

la j'ai la syntaxe en vb6, mais en .net ??
31/03/2008, 10h31
Kropernic

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

Griftou.