1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Un contrôle personnalisé datagridcolumnstyle

Un contrôle personnalisé datagridcolumnstyle

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 753 fois - Téléchargée 35 fois

Commenter

Contenu du snippet

Ce bout de code à pour but d'exploiter les possibilité d'héritage de la classe DataGridColumnStyle pour intégrer des controles autres que textbox ou checkbox dans une datagrid en VB .net.

Dans l'exemple ci-dessous on affiche un Label dans une colonne d'une datagrid.
Vous pouvez vous appuyer sur ce modèle pour intégrer un dateTimePicker voire une form complète.

Source / Exemple : 


Public Class DataGridLabelColumn
    Inherits DataGridColumnStyle

    Private _xMargin As Integer = 2
    Private _yMargin As Integer = 1
    Private _Label As Label
    'Private _OldVal As String = String.Empty
    'Private _InEdit As Boolean = False

    Public Property Label() As Label
        Get
            Return MyClass._Label
        End Get
        Set(ByVal Value As Label)
            MyClass._Label = Value
        End Set
    End Property

    Public Sub New()
        MyClass._Label = New Label
        MyClass._Label.Visible = False
    End Sub

#Region "Heritage de DataGridColumnStyle"
    Protected Overloads Overrides Sub Abort(ByVal RowNum As Integer)
        RollBack()
        HideLabel()
        EndEdit()
    End Sub
    Protected Overloads Overrides Function Commit(ByVal DataSource As CurrencyManager, ByVal RowNum As Integer) As Boolean
        HideLabel()
        Return True
        'Plus utile
        Try
            Dim Value As Object = MyClass._Label.Text
            If NullText.Equals(Value) Then
                Value = Convert.DBNull
            End If
            SetColumnValueAtRow(DataSource, RowNum, Value)
        Catch e As Exception
            RollBack()
            Return False
        End Try
        EndEdit()
        Return True
    End Function
    Protected Overloads Overrides Sub ConcedeFocus()
        MyClass._Label.Visible = False
    End Sub
    Protected Overloads Overrides Sub Edit(ByVal Source As CurrencyManager, ByVal Rownum As Integer, ByVal Bounds As Rectangle, ByVal [ReadOnly] As Boolean, ByVal InstantText As String, ByVal CellIsVisible As Boolean)

        If Not InstantText Is Nothing Then
            MyClass._Label.Text = InstantText
        Else
            MyClass._Label.Text = Me.DataGridTableStyle.DataGrid.Item(Me.DataGridTableStyle.DataGrid.CurrentCell.RowNumber, Me.DataGridTableStyle.DataGrid.CurrentCell.ColumnNumber).ToString
        End If

        Dim OriginalBounds As Rectangle = Bounds

        If CellIsVisible Then
            Bounds.Offset(MyClass._xMargin, MyClass._yMargin)
            Bounds.Width -= MyClass._xMargin * 2
            Bounds.Height -= MyClass._yMargin
            MyClass._Label.Bounds = Bounds
            MyClass._Label.Visible = True
        Else
            MyClass._Label.Bounds = OriginalBounds
            MyClass._Label.Visible = False
        End If

        MyClass._Label.RightToLeft = Me.DataGridTableStyle.DataGrid.RightToLeft
        MyClass._Label.Focus()

        If MyClass._Label.Visible Then
            DataGridTableStyle.DataGrid.Invalidate(OriginalBounds)
        End If

    End Sub
    Protected Overloads Overrides Function GetMinimumHeight() As Integer
        Return MyClass._Label.PreferredHeight + MyClass._yMargin
    End Function
    Protected Overloads Overrides Function GetPreferredHeight(ByVal g As Graphics, ByVal Value As Object) As Integer
        Dim NewLineIndex As Integer = 0
        Dim NewLines As Integer = 0
        Dim ValueString As String = Me.GetText(Value)
        Do
            While NewLineIndex <> -1
                NewLineIndex = ValueString.IndexOf("r\n", NewLineIndex + 1)
                NewLines += 1
            End While
        Loop

        Return FontHeight * NewLines + MyClass._yMargin
    End Function
    Protected Overloads Overrides Function GetPreferredSize(ByVal g As Graphics, ByVal Value As Object) As Size
        Dim Extents As Size = Size.Ceiling(g.MeasureString(GetText(Value), Me.DataGridTableStyle.DataGrid.Font))
        Extents.Width += MyClass._xMargin * 2 + DataGridTableGridLineWidth
        Extents.Height += MyClass._yMargin
        Return Extents
    End Function
    Protected Overloads Overrides Sub Paint(ByVal g As Graphics, ByVal Bounds As Rectangle, ByVal Source As CurrencyManager, ByVal RowNum As Integer)
        Paint(g, Bounds, Source, RowNum, False)
    End Sub
    Protected Overloads Overrides Sub Paint(ByVal g As Graphics, ByVal Bounds As Rectangle, ByVal Source As CurrencyManager, ByVal RowNum As Integer, ByVal AlignToRight As Boolean)
        Dim Text As String = GetText(GetColumnValueAtRow(Source, RowNum))
        PaintText(g, Bounds, Text, AlignToRight)
    End Sub
    Protected Overloads Sub Paint(ByVal g As Graphics, ByVal Bounds As Rectangle, ByVal Source As CurrencyManager, ByVal RowNum As Integer, ByVal BackBrush As Brush, ByVal ForeBrush As Brush, ByVal AlignToRight As Boolean)
        Dim Text As String = GetText(GetColumnValueAtRow(Source, RowNum))
        PaintText(g, Bounds, Text, BackBrush, ForeBrush, AlignToRight)
    End Sub
    Protected Overloads Overrides Sub SetDataGridInColumn(ByVal Value As DataGrid)
        MyBase.SetDataGridInColumn(Value)
        If Not (MyClass._Label.Parent Is Value) Then
            If Not (MyClass._Label.Parent Is Nothing) Then
                MyClass._Label.Parent.Controls.Remove(MyClass._Label)
            End If
        End If

        If Not (Value Is Nothing) Then Value.Controls.Add(MyClass._Label)
    End Sub
    Protected Overloads Overrides Sub UpdateUI(ByVal Source As CurrencyManager, ByVal RowNum As Integer, ByVal InstantText As String)
        MyClass._Label.Text = GetText(GetColumnValueAtRow(Source, RowNum))
        If Not (InstantText Is Nothing) Then
            MyClass._Label.Text = InstantText
        End If
    End Sub
#End Region

#Region "Méthodes privées"
    Private ReadOnly Property DataGridTableGridLineWidth() As Integer
        Get
            If Me.DataGridTableStyle.GridLineStyle = DataGridLineStyle.Solid Then
                Return 1
            Else
                Return 0
            End If
        End Get
    End Property
    Private Sub EndEdit()
        Invalidate()
    End Sub

    Private Function GetText(ByVal Value As Object) As String
        If Value Is System.DBNull.Value Then Return NullText

        If Not Value Is Nothing Then
            Return Value.ToString
        Else
            Return String.Empty
        End If

    End Function

    Private Sub HideLabel()
        If MyClass._Label.Focused Then
            Me.DataGridTableStyle.DataGrid.Focus()
        End If
        MyClass._Label.Visible = False
    End Sub

    Private Sub RollBack()

    End Sub

    Private Sub PaintText(ByVal g As Graphics, ByVal Bounds As Rectangle, ByVal Text As String, ByVal AlignToRight As Boolean)

        Dim BackBrush As Brush = New SolidBrush(Me.DataGridTableStyle.BackColor)
        Dim ForeBrush As Brush = New SolidBrush(Me.DataGridTableStyle.ForeColor)
        PaintText(g, Bounds, Text, BackBrush, ForeBrush, AlignToRight)
    End Sub

    Private Sub PaintText(ByVal g As Graphics, ByVal TextBounds As Rectangle, ByVal Text As String, ByVal BackBrush As Brush, ByVal ForeBrush As Brush, ByVal AlignToRight As Boolean)

        Dim Rect As Rectangle = TextBounds
        Dim RectF As RectangleF = RectF.op_Implicit(Rect) ' Convert to RectangleF
        Dim Format As StringFormat = New StringFormat

        If AlignToRight Then
            Format.FormatFlags = StringFormatFlags.DirectionRightToLeft
        End If

        Select Case Me.Alignment
            Case Is = HorizontalAlignment.Left
                Format.Alignment = StringAlignment.Near
            Case Is = HorizontalAlignment.Right
                Format.Alignment = StringAlignment.Far
            Case Is = HorizontalAlignment.Center
                Format.Alignment = StringAlignment.Center
        End Select

        Format.FormatFlags = Format.FormatFlags Or StringFormatFlags.NoWrap
        g.FillRectangle(Brush:=BackBrush, Rect:=Rect)

        Rect.Offset(0, MyClass._yMargin)
        Rect.Height -= MyClass._yMargin
        g.DrawString(Text, Me.DataGridTableStyle.DataGrid.Font, ForeBrush, RectF, Format)
        Format.Dispose()

    End Sub
#End Region
End Class

A voir également

Ajouter un commentaire Commentaires
gwiwi Messages postés 127 Date d'inscription lundi 8 juillet 2002 Statut Membre Dernière intervention 4 janvier 2007 1
21 oct. 2003 à 17:24
L'idée et le concept est tres bien, le code aussi apparement d'apres ce que j'ai pu parcourir, un seul GROS regret IL N'Y A AUCUN COMMENTAIRE et pourtant ca peut aider .....
strikel Messages postés 5 Date d'inscription jeudi 2 janvier 2003 Statut Membre Dernière intervention 2 décembre 2003
21 oct. 2003 à 17:37
dsl pour les commentaires absents !

Je termine les autres exemples d'intégration et je mettrais à disposition mon projet avec les tests le tout documenté
gwiwi Messages postés 127 Date d'inscription lundi 8 juillet 2002 Statut Membre Dernière intervention 4 janvier 2007 1
22 oct. 2003 à 08:57
tres bonne idée d'inclure d'autres controles.

A ce sujet, je serais interressé par un combobox et également un textbox mais limité à la saisie de nombre (exclure les lettres)
formaciel Messages postés 1 Date d'inscription jeudi 20 mars 2003 Statut Membre Dernière intervention 29 octobre 2003
29 oct. 2003 à 19:05
Commentaire de Roland
Bon travail ! Il faut du courage pour le datagrid !

Comment ajouter dans le datagrid un combobox multicolonnes prenant ses valeurs dans une autre table de la base de données et récupérer la valeur choisie dans le champ du datagrid.
CeTjsMoi Messages postés 18 Date d'inscription lundi 1 décembre 2003 Statut Membre Dernière intervention 12 octobre 2004
1 déc. 2003 à 20:52
Pour ceux qui souhaitent modifier les datacolumnstyle des datagrid (à leurs souhaits), il suffit de modifier le contrôle label contenu dans cet exemple (qui est le mien, mais je t'en tiens pas rigueur strik je le tient de microsoft (il fournisse un exemple avec le datetimepicker dans msdn)) par une variable générique de type Control. Ainsi vous pouvez faire passer n'importe quel controle dans le mode edition de la datagrid. l'astuce est de faire définir le type du contrôle à ajouter par l'utilisateur (vous) et d'utiliser l'activator pour créer une instance spécifique du control par le biais de ce type.

je vais mettre le code à disposition dès demain (je suis pas au taf et ca m'emmerde de refaire un code que j'ai déjà fait ;)).

N.B.: pour ceux qui vont dire oulala strikel; on travaille ensemble et j'ai fait le code pour le boulot alors c pas grave.
Pour les commentaires, ca ma toujours fait chier de commenter mon code; en + y a rien de compliquer dans celui là.
Autre chose; si qqun sait comment faire la meme chose pour le visuel de la datagrid; je suis preneur (cet exemple ne modifie que le mode édition de la datagrid, et en plus il est bugger sur l'alternance des couleurs)
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (strikel)