Discussion :

[Abyssin]

Bonjour,

je travaille sous Visual Studio 2008 en VB et voici mon problème :

j'ai créé des NumericUpDown et pour entrer des nombre à virgule dans celles ci je dois la virgule, le point du pavé numérique ne fonctionne pas.
Après quelques recherches, j'ai trouvé ceci :

Code :

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

1
2
3
4
5
    Private Sub press(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NumericUpDown1.KeyPress
        If e.KeyChar = "." Then
            e.KeyChar = CChar(",")
        End If
    End Sub

Cela fonctionne très bien, mais pour un seul NumericUpDown. Il faudrait que je fasse une fonction similaire pour chaque NumericUpDown mais que j'aimerais plutôt faire une fonction qui appelle celle ci en l'adaptant a chacun des mes NumericUpDown. Et c'est là que je bloque.

Si vous pouvez, m'aider, je vous en remercie d'avance

[Kropernic]

Ajoute les events de tous des contrôles après le mot clef "handles" qui se trouve à la fin de la ligne de la déclaration de ta sub.

[Neiflheim]

Pol63 a fournie quelques pistes sur ce sujet là :

http://www.developpez.net/forums/d11...n-toutes-form/

[Abyssin]

j'ai testé la méthode à griftou et ça marche
par contre celle de Neiflheim m'a paru moins clair donc je n'ai pas essayé

Code :

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

1
2
3
4
5
6
7
8
9
    'permettre le point du pavé numérique
    Private Sub press(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NumericUpDown1.KeyPress _
, NumericUpDown2KeyPress, NumericUpDown2.KeyPress, NumericUpDown3.KeyPress, NumericUpDown4.KeyPress _
, NumericUpDown5.KeyPress, NumericUpDown6.KeyPress, NumericUpDown7.KeyPress, NumericUpDown8.KeyPress _
, NumericUpDown9.KeyPress, NumericUpDown10.KeyPress, NumericUpDown11.KeyPress, NumericUpDown12.KeyPress
        If e.KeyChar = "." Then
            e.KeyChar = CChar(",")
        End If
    End Sub

Merci beaucoup

[Kropernic]

Content d'avoir pu aider