Forcer les majuscules dans une cellule d'un Datagrid

Version imprimable

22/01/2007, 21h44
Jean_dick15

Forcer les majuscules dans une cellule d'un Datagrid

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?

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:

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

24/01/2007, 16h51
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??
24/01/2007, 16h58
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 ?
24/01/2007, 17h04
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!

Re.

Essaye un peu ça :

Code:

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 !

24/01/2007, 20h14
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?

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:

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 ;-) )