Discussion :

[Jean_dick15]

Salut tout le monde,
Tout d'abord, je dois vous dire que je suis un nouveau développeur VB.NET. Donc, mes connaissances sont très limitées!

Je fais de la maintenance sur une application préallablement développée et j'ai un Datagrid dans cette application. Je désire que lorsque l'utilisateur est en mode saisie dans une des cellules de mon Datagrid, tout ce qu'il y inscrit soit automatiquement converti en majuscule.

Comment dois-je m'y prendre?

[olsimare]

Bonjour Jean.

Je ne suis pas pro du datagrid, mais il me semble que tu dois créer un handler pour attraper l'événement KeyPress sur la colonne pour arriver à tes fins.

Pour ce faire, il faut lorsque le control se créé pour une colonne (evt : ControlAdded) créer un Handler sur ce control pour le KeyPress.
Dans la gestion de cet evt, tu peux gérer la mise en majuscule de la lettre tapée.

C'est pas clair, donc vite fait (i.e. à remanier car je suis parti du principe que cela concernait les colonnes de type Textbox), je te poste un exemple plus parlant :

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
 
Public Class Form2
 
    Private Sub Form2_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
 
        Dim strSqlquery As String = _
            "SELECT * FROM Matable"
        Dim ad As New OleDb.OleDbDataAdapter(New OleDb.OleDbCommand(strSqlquery, Cnn))
        Dim ds As New DataSet
 
        ad.Fill(ds)
 
        Me.DataGrid1.DataSource = ds
    End Sub
 
    Private Sub DataGrid1_ControlAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.ControlEventArgs) Handles DataGrid1.ControlAdded
        If TypeOf e.Control Is DataGridTextBox Then
            AddHandler e.Control.KeyPress, _
            New KeyPressEventHandler(AddressOf Control_KeyPress)
        End If
    End Sub
    Private Sub Control_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs)
        e.KeyChar = UCase(e.KeyChar)
    End Sub
 
End Class

[Jean_dick15]

Merci bien pour ces informations.
le problème c'est que le KeyChar est une propriété ReadOnly. Je ne peux donc pas la transformer en majuscule... Y-aurait-il une autre façon d'intercepter les caractères et te les transformer en majuscule??

[olsimare]

Bonjour.

Je suis trés étonné car cela fonctionne avec le framework 2.0 ou le Keychar est définit ainsi :

Public Property KeyChar() As Char
Membre de*: System.Windows.Forms.KeyPressEventArgs
Résumé*:
Obtient ou définit le caractère correspondant à la touche activée.

Valeurs de retour*:
Caractère ASCII composé. Par exemple, si l'utilisateur appuie sur les touches MAJ*+*K, cette propriété retourne la lettre K en majuscule.

Tu es en 1.1 ?

[Jean_dick15]

En effet...
Donc voilà d'où viendrait le problème...

Je vais continuer de chercher. Si quelqu'un a des idées, merci de m'en faire part!

[olsimare]

Re.

Essaye un peu ça :

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
 
Public Class Form2
 
    Public intNbFrappe As Integer = 0
...
    Private Sub Control_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs)
        intNbFrappe = intNbFrappe + 1
        If intNbFrappe = 2 Then
            intNbFrappe = 0
            Exit Sub
        End If
        e.Handled = True
        SendKeys.Send(UCase(e.KeyChar))
 
    End Sub
End Class

Ca marche chez moi mais je trouve ça un peu moyen !

[Jean_dick15]

Il ne se passe rien quand j'ajoute cet événement à ma classe...
Lorsque j'écris un caractère rien n'affiche et le premier caractère que j'inscris fait planter l'application au SendKeys.send...

Quelle est l'utilité première du SendKeys?

[olsimare]

Re

As-tu gardé les codes initial que j'avais posté ? (notamment le AddHandler ...)

Le sendkey sert a simuler une entrée clavier par code.
Avec e.Handled = True, j'inhibe la prise en compte du caractère saisi
Et avec SendKeys.Send(UCase(e.KeyChar)) je renvoie le caractère en majuscule.

voici l'intégralité du code qui marche chez moi :

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
 
Option Strict Off
Public Class Form2
 
    Public intNbFrappe As Integer = 0
 
    Private Sub Form2_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
 
        Dim strSqlquery As String = _
            "SELECT ..."
        Dim ad As New OleDb.OleDbDataAdapter(New OleDb.OleDbCommand(strSqlquery, Cnn))
        Dim ds As New DataSet
 
        ad.Fill(ds)
 
        Me.DataGrid1.DataSource = ds
    End Sub
 
    Private Sub DataGrid1_ControlAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.ControlEventArgs) Handles DataGrid1.ControlAdded
        If TypeOf e.Control Is DataGridTextBox Then
            AddHandler e.Control.KeyPress, _
            New KeyPressEventHandler(AddressOf Control_KeyPress)
        End If
    End Sub
    Private Sub Control_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs)
        'e.KeyChar = UCase(e.KeyChar)
        intNbFrappe = intNbFrappe + 1
        If intNbFrappe = 2 Then
            intNbFrappe = 0
            Exit Sub
        End If
        e.Handled = True
        SendKeys.Send(UCase(e.KeyChar))
 
    End Sub
 
End Class

Si cela ne marche pas je n'ai pas de solution (ou passer en framework 2.0 mais à mon avis tu aimerais bien si tu pouvais ;-) )