vb.net - DGV et heritage des cellules

Version imprimable

27/03/2008, 01h16
House MD

vb.net - DGV et heritage des cellules

Bonjour,

je viens de réaliser, sur les conseils avisés d'Olsimare, une class DGVCell qui hérite de DataGridViewTextBoxCell.

Cependant, je voudrais que cette class puisse accéder à une propriété des TextBox, à savoir SelectionStart (propriété qui n'existe pas dans les DataGridViewTextBoxCell) qui permet de connaitre la position du curseur dans le texte.
Comme je ne peux pas faire de double héritage...8O

Merci de votre aide.
27/03/2008, 18h30
olsimare
Bonjour.

Ahah ! On commence à jouer sévère avec les DGV ici :lol: !

En fait :
Code:

1 2 3 4 Public Class DataGridViewTextBoxEditingControl Inherits TextBox Implements IDataGridViewEditingControl
Donc comme le DataGridViewTextBoxEditingControl est le control d'édition d'une cellule de type DataGridViewTextBoxCell, tu peux donc positionner le SelectionStart dans un overrides de sub InitializeEditingControl de DataGridViewTextBoxCell et le récupérer dans le DetachEditingControl.
Seulement, tu ne l'auras pas en "direct" mais seulement à la fin de l'edition de la cellule...

A quel le moment ou tu veux récupérer l'info ?

Cdt.
31/03/2008, 14h46
House MD

Salut Olsimare,

Il s'agirait, en sortant d'une cellule, d'enregistrer la position du curseur dans la chaine de caractères, afin qu'en cas de clic dans une autre cellule, le nom de cette cellule s'affiche à la place du curseur...

Typiquement je suis dans une cellule ou il y a écrit :

"=Prix Unitaire * Taux1"

et que je veuille remplacer "Prix Unitaire" par "Prix Total", j'efface "Prix Unitaire" et ma formule devient :

"= * Taux1"

et je clique dans la colonne "Prix Total" et ma formule devient :

"=Prix Total * Taux1"

Merci bien.
31/03/2008, 18h49
olsimare

Bonjour.

Ok.

Je pense qu'il faudrait stocker la position d'insertion dans la formule (que tu déclares comme une property readonly de ta DataGridViewTextBoxCell) lors du DetachEditingControl car tu ne dois plus être en mode édition sur la cellule un fois que tu cliques sur la colonne.

Pour récupérer la position courante, un cast du control d'édition en TextBox te permettra d'utiliser SelectionStart.

Cdt.

Salut Olsimare,

Je rencontre un problème concernant un appel de fonction :

J'utilise la class FormulaCell qu tu m'avais indiquée :
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 Public Class FormulaDGVCell Inherits DataGridViewTextBoxCell 'Public DocActif As Doc 'Gère l'Affichage du Résultat Protected Overrides Function GetFormattedValue(ByVal value As Object, ByVal rowIndex As Integer, _ ByRef cellStyle As DataGridViewCellStyle, ByVal valueTypeConverter As System.ComponentModel.TypeConverter, _ ByVal formattedValueTypeConverter As System.ComponentModel.TypeConverter, ByVal context As DataGridViewDataErrorContexts) As Object ... Dim s As String = CStr(Me.Value) ... If s.StartsWith("=") Then 'Appel de la Fonction AttribVal() Dim StrCal As String = Doc.AttribVal(s, Me.RowIndex) ... ... return ... end if ...
Or la fonction AttribVal est localisée dans la classe "Doc" (le formulaire qui contient le DGV)

Dans un contexte de SDI, pas de problème, Doc.AttribVal(s, Me.RowIndex) fonctionne très bien.
Mais dans un contexte de MDI, où Doc est un modèle instancié par :

Code:

Dim MonDoc as Doc

Doc.AttribVal(s, Me.RowIndex) ne marche plus, et c'est normal... mais MonDoc.AttribVal(s, Me.RowIndex) ne marche pas mieux...

Pitié, de l'aide !

02/04/2008, 18h05
olsimare
Bonjour.

En utilisant Me.DataGridView.FindForm, ça devrait le faire.

Donc un truc du genre :
Code:

1 2 ctype(Me.DataGridView.FindForm, Doc).AttribVal(s, Me.RowIndex)
PS : Par contre, ta technique lie définitivement le DGV et une form de type Doc, c'est donc assez moyen si tu veux mettre ton DGV sur n'importe quelle form.

Cdt.
02/04/2008, 18h14
House MD

Dingue...
Ca marche parfaitement !

A priori, le DGV ne devrait être utilisé que sur ce formulaire.
Comment est ce que je devrais faire si jamais je devais le mettre ailleurs ?

il faudrait encapsuler le "FormulaDGV" pour le réutiliser ?

Pour la 100ème fois merci.
02/04/2008, 19h58
olsimare

Bonjour.

Citation:

Envoyé par House MD

Dingue...
Ca marche parfaitement !

Oui, j'essaye de mettre des truc qui marchent :lol: !

Citation:

Envoyé par House MD

Comment est ce que je devrais faire si jamais je devais le mettre ailleurs ?

il faudrait encapsuler le "FormulaDGV" pour le réutiliser ?

Difficile à dire sans voir ce que tu fais dedans. C'est quoi AttribVal ?

Cdt.

Pour faire simple :

J'ai

- une classe Main (conteneur de formulaires) : RAS- Une classe Doc comprenant

1/ une procédure de remplissage :

Public Sub Colonnes()
Dim sr = New StreamReader("C:\Colonnes.txt", System.Text.Encoding.Default)

Do Until sr.Peek = -1
Str = sr.ReadLine()
Dim c1 As New FormulaTargetColumn
c1.HeaderText = Str
Me.DGV.Columns.Add(c1)
Loop

sr.Close()

sr = New StreamReader("C:\Document1.csv", System.Text.Encoding.Default)

Do Until sr.Peek = -1
Str = sr.ReadLine()
SubChaine = Str.Split(";")
Me.DGV.Rows.Add(SubChaine)
Loop

sr.Close()

End Sub

2/ des Evénements de gestion des formules (CellEndEdit, CellClick, KeyPress...)
3/ Une fonction AttribVal permettant de transformer :

"=Prix1 * Taux2" en "23*0.3"

Cette fonction doit se trouver dans la Classe Doc puisqu'elle passe en revue toutes les colonnes du DGV du Doc et attribue au nom de la colonne la valeur de la cellule au croisement de la ligne de référence... :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 'Transforme Noms Colonne en Valeurs Public Function AttribVal(ByVal AttribStr As String, ByVal CurRow As Integer) Dim A As Integer Dim B As Double StrCal = Mid(AttribStr, 2) For A = 0 To DGV.ColumnCount - 1 If InStr(StrCal, DGV.Columns(A).HeaderText) Then If Long.TryParse(DGV.Item(A, CurRow).Value, B) Then StrCal = Replace(StrCal, DGV.Columns(A).HeaderText, B) Else StrCal = Replace(StrCal, DGV.Columns(A).HeaderText, 0) End If End If Next Return StrCal End Function
- Enfin les classes que tu m'avais montrées :
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 Public Class FormulaTargetColumn Inherits DataGridViewTextBoxColumn Public Sub New() MyBase.CellTemplate = New FormulaDGVCell End Sub End Class Public Class FormulaDGVCell Inherits DataGridViewTextBoxCell 'Public DocActif As Doc 'Gère l'Affichage du Résultat Protected Overrides Function GetFormattedValue(ByVal value As Object, ByVal rowIndex As Integer, _ ByRef cellStyle As DataGridViewCellStyle, ByVal valueTypeConverter As System.ComponentModel.TypeConverter, _ ByVal formattedValueTypeConverter As System.ComponentModel.TypeConverter, ByVal context As DataGridViewDataErrorContexts) As Object ... ... If s.StartsWith("=") Then 'Appel de la Fonction AttribVal() Dim StrCal As String = CType(Me.DataGridView.FindForm, Doc).AttribVal(s, Me.RowIndex) Dim Evl As New Eval3.Evaluator Try Return CStr(Evl.Parse(Doc.StrCal).value) 'Si Attribution de Valeur Impossible : Cellule Cible = Vide Catch ex As Exception Me.Value = "" MessageBox.Show("Formule erronée.") Return Nothing End Try Else Return s End If End Function
'Conserve la Formule d'Origine
Public Overrides Sub InitializeEditingControl(ByVal rowIndex As Integer, ByVal initialFormattedValue As Object, ByVal dataGridViewCellStyle As DataGridViewCellStyle)

MyBase.InitializeEditingControl(rowIndex, initialFormattedValue, dataGridViewCellStyle)
Dim dgvtb As DataGridViewTextBoxEditingControl = CType(DataGridView.EditingControl, DataGridViewTextBoxEditingControl)
dgvtb.Text = CStr(Me.Value)

End Sub

End Class
[/CODE]

Bref, c'est à l'évidence du code assez moche (bien qu'il fonctionne bien et très vite) et qui mérite d'être amélioré.

Je débute vraiment (je viens du VBA) en VB et avec les classes et les héritage je suis un peu paumé... 8O

En plus propre :

J'ai

- une classe Main (conteneur de formulaires) : RAS

- Une classe Doc comprenant :

1/ une procédure de remplissage du DGV:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Sub Colonnes()
Dim sr = New StreamReader("C:\Colonnes.txt", System.Text.Encoding.Default)
 
Do Until sr.Peek = -1
Str = sr.ReadLine()
Dim c1 As New FormulaTargetColumn
c1.HeaderText = Str
Me.DGV.Columns.Add(c1)
Loop
 
sr.Close()
 
sr = New StreamReader("C:\Document1.csv", System.Text.Encoding.Default)
 
Do Until sr.Peek = -1
Str = sr.ReadLine()
SubChaine = Str.Split(";")
Me.DGV.Rows.Add(SubChaine)
Loop
 
sr.Close()
 
End Sub

2/ des Evénements de gestion des formules (CellEndEdit, CellClick, KeyPress...)
3/ Une fonction AttribVal permettant de transformer :

"=Prix1 * Taux2" en "23*0.3"

Cette fonction doit se trouver dans la Classe Doc puisqu'elle passe en revue toutes les colonnes du DGV du Doc et attribue au nom de la colonne la valeur de la cellule au croisement de la ligne de référence... :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'Transforme Noms Colonne en Valeurs
    Public Function AttribVal(ByVal AttribStr As String, ByVal CurRow As Integer)
 
        Dim A As Integer
        Dim B As Double
        StrCal = Mid(AttribStr, 2)
        For A = 0 To DGV.ColumnCount - 1
            If InStr(StrCal, DGV.Columns(A).HeaderText) Then
                If Long.TryParse(DGV.Item(A, CurRow).Value, B) Then
                    StrCal = Replace(StrCal, DGV.Columns(A).HeaderText, B)
                Else
                    StrCal = Replace(StrCal, DGV.Columns(A).HeaderText, 0)
                End If
            End If
        Next
        Return StrCal
    End Function

- Enfin les classes que tu m'avais montrées :

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
Public Class FormulaTargetColumn
    Inherits DataGridViewTextBoxColumn
 
    Public Sub New()
        MyBase.CellTemplate = New FormulaDGVCell
    End Sub
End Class
 
 
Public Class FormulaDGVCell
    Inherits DataGridViewTextBoxCell
 
    'Public DocActif As Doc
 
    'Gère l'Affichage du Résultat
    Protected Overrides Function GetFormattedValue(ByVal value As Object, ByVal rowIndex As Integer, _
    ByRef cellStyle As DataGridViewCellStyle, ByVal valueTypeConverter As System.ComponentModel.TypeConverter, _
    ByVal formattedValueTypeConverter As System.ComponentModel.TypeConverter, ByVal context As DataGridViewDataErrorContexts) As Object
 
 
...
...
 
 If s.StartsWith("=") Then
 
            'Appel de la Fonction AttribVal()
            Dim StrCal As String = CType(Me.DataGridView.FindForm, Doc).AttribVal(s, Me.RowIndex)
            Dim Evl As New Eval3.Evaluator
 
            Try
                Return CStr(Evl.Parse(Doc.StrCal).value)
 
                'Si Attribution de Valeur Impossible : Cellule Cible = Vide
            Catch ex As Exception
                Me.Value = ""
                MessageBox.Show("Formule erronée.")
                Return Nothing
            End Try
        Else
            Return s
        End If
    End Function
 
'Conserve la Formule d'Origine
Public Overrides Sub InitializeEditingControl(ByVal rowIndex As Integer, ByVal initialFormattedValue As Object, ByVal dataGridViewCellStyle As DataGridViewCellStyle)
 
MyBase.InitializeEditingControl(rowIndex, initialFormattedValue, dataGridViewCellStyle)
Dim dgvtb As DataGridViewTextBoxEditingControl = CType(DataGridView.EditingControl, DataGridViewTextBoxEditingControl)
dgvtb.Text = CStr(Me.Value)
 
End Sub
 
End Class

Bref, c'est à l'évidence du code assez moche (bien qu'il fonctionne bien et très vite) et qui mérite d'être amélioré.

Je débute vraiment (je viens du VBA) en VB et avec les classes et les héritage je suis un peu paumé...

03/04/2008, 10h58
olsimare

Bonjour.

Citation:

Envoyé par House MD

Cette fonction doit se trouver dans la Classe Doc puisqu'elle passe en revue toutes les colonnes du DGV du Doc et attribue au nom de la colonne la valeur de la cellule au croisement de la ligne de référence... :

Non, ça n'a rien d'obligatoire puisque tu peux utiliser le me.datagridview dans la DataGridViewTextBoxCell. Donc ton AttribVal peut trés bien être mis dans la classe FormulaDGVCell et plus besoin de passer par la form.

Citation:

Envoyé par House MD

Je débute vraiment (je viens du VBA) en VB et avec les classes et les héritage je suis un peu paumé...

Pas de soucis, j'ai été dans le même cas... je te conseille donc de jeter un oeil à quelques tutos sur la POO.

Cdt.
03/04/2008, 11h13
House MD

Merci beaucoup !
03/04/2008, 13h20
olsimare

Re.

:resolu: donc ?

Cdt.