Vb.Net Remplire une Listview d'une façon horizontaleRésolu

Question

Bonjour ou Bonsoir, 
en créant le code suivante je voulais remplir une ListView non d'une façon verticale mais d'une façon horizontale comme le montre l'image suivante :

j'avais beau chercher je n'ai rien pu trouver, alors j'ai décidé de créer mon propre code
je rempli la Textbox1 avec une valeur, je clique sur le bouton "Remplir" 
dans la ListView une 1er colonne est crée et rempli par la valeur de la Textbox1 
je rempli la Textbox1 avec une nouvelle valeur et je clique sur le bouton "Remplir" 
dans la ListView une 2ème colonne est crée et rempli par la nouvelle valeur de la Textbox1 
ainsi de suite :
voici le code 
 Dim i As Integer = 0    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click       ListView1.View = View.Details        If i = 0 Then            ListView1.Items.Add("")            ListView1.Columns.Add("Valeur " & 0, 75, HorizontalAlignment.Left)            ListView1.Items(0).SubItems.Add(TextBox1.Text)        ElseIf i > 0 Then            ListView1.Width = ListView1.Width + 75            ListView1.Columns.Add("Valeur " & i, 75, HorizontalAlignment.Left)            ListView1.Items(0).SubItems.Add(TextBox1.Text)        End If        TextBox1.Clear()        i = i + 1End Sub
mais le problème est que quand je clique sur le bouton "Remplir" la colonne est crée mais elle sera vide même si la Textbox1 n'est pas vide
quand je rempli la Textbox1 avec une nouvelle valeur et je clique sur le bouton "Remplir" une nouvelle colonne est crée mais elle n'est pas rempli avec la nouvelle valeur de la Textbox1 mais avec l'ancien valeur, même chose pour tous les autres colonnes
aidez-moi s'il vous plaît
Merci pour votre future aide

Karin.code · Answer

Bonjour,
Après quelque essais j'ai finis par trouver une solution plutôt satisfaisante, voici le code :

Dim i As Integer = 0    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        ListView1.View = View.Details        If i = 0 Then            ListView1.Columns.Add("Valeur " & 0, 0, HorizontalAlignment.Center)            ListView1.Items.Add("")            ListView1.Width = ListView1.Width + 75            ListView1.Columns.Add("Valeur " & 1, 75, HorizontalAlignment.Center)            ListView1.Items(0).SubItems.Add(TextBox1.Text)        ElseIf i > 0 Then            ListView1.Width = ListView1.Width + 75            ListView1.Columns.Add("Valeur " & i + 1, 75, HorizontalAlignment.Center)            ListView1.Items(0).SubItems.Add(TextBox1.Text)        End If        TextBox1.Clear()        TextBox1.Focus()        i = i + 1    End Sub
et pour éviter l'alignement à gauche par défaut de la première colonne j'ai ajouté cette partie :
ListView1.Columns.Add("Valeur " & 0, 0, HorizontalAlignment.Center)            ListView1.Items.Add("")            ListView1.Width = ListView1.Width + 75            ListView1.Columns.Add("Valeur " & 1, 75, HorizontalAlignment.Center)            ListView1.Items(0).SubItems.Add(TextBox1.Text)

cs_ShayW · Answer

Bonjour

on joue avec l'event DrawColumnHeader 


On déclare une liste de couleur
 Private listbrush As New List(Of Brush) From {Brushes.Blue, Brushes.Green, Brushes.Gray, Brushes.Fuchsia, Brushes.Red, Brushes.Indigo, Brushes.DarkCyan, Brushes.DarkGoldenrod, Brushes.Khaki, Brushes.DarkMagenta}
tu peux en ajouter 
dans le code du
  Private Sub Button1_Click
   ajoute 
        ListView1.OwnerDraw = True
et 
   remplace "Valeur " par ""
    ListView1.Columns.Add("", 75, HorizontalAlignment.Center) 


 Private Sub ListView1_DrawColumnHeader(sender As Object, e As System.Windows.Forms.DrawListViewColumnHeaderEventArgs) Handles ListView1.DrawColumnHeader        e.Graphics.DrawString("valeur" & e.ColumnIndex.ToString, New Font("arial", 12, FontStyle.Bold), listbrush(e.ColumnIndex Mod listbrush.Count), e.Bounds.X, 1)       End Sub

Karin.code · Answer

Bonjour  cs_ShayW,
Merci pour ta réponse
le code que tu a suggéré marche mais pas à 100% 
le résultat finale devrait être comme ça :

mais il y a quelque défaut 

1/- l'arrière plan des titres n'est plus affiché :

2/- les valeurs écrit dans le TextBox1 ne s'affiche pas :

3/- Le texte est aligné à gauche même si je précise l'alignement en centre
4/- Valeur 0 et 1 sont superposé :

Voici comment j'ai fait, peut-être que j'ai mal posé ton code :
Private listbrush As New List(Of Brush) From {Brushes.Blue}Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        ListView1.View = View.Details        ListView1.GridLines = True        If i = 0 Then            ListView1.Items.Add("")            ListView1.Columns.Add("" & 0, 0, HorizontalAlignment.Center)            ListView1.Columns.Add("" & 1, 100, HorizontalAlignment.Center)            ListView1.Items(0).SubItems.Add(TextBox1.Text)        ElseIf i > 0 Then            ListView1.Width = ListView1.Width + 100            ListView1.Columns.Add("" & i + 1, 100, HorizontalAlignment.Center)            ListView1.Items(0).SubItems.Add(TextBox1.Text)        End If        TextBox1.Clear()        TextBox1.Focus()        i = i + 1        ListView1.OwnerDraw = True    End Sub    Private Sub ListView1_DrawColumnHeader(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawListViewColumnHeaderEventArgs) Handles ListView1.DrawColumnHeader        e.Graphics.DrawString("valeur" & e.ColumnIndex.ToString, New Font("Georgia", 12, FontStyle.Bold), listbrush(e.ColumnIndex Mod listbrush.Count), e.Bounds.X, 1)    End Sub

cs_Le Pivert · Answer

Bonjour,

Comme ceci: 

Option Strict On
Public Class Form1
    Dim i As Integer
    Private Sub ListView1_DrawColumnHeader(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawListViewColumnHeaderEventArgs) Handles ListView1.DrawColumnHeader
        Dim sf As New StringFormat()
        Try
            Select Case e.Header.TextAlign
                Case HorizontalAlignment.Center
                    sf.Alignment = StringAlignment.Center
                Case HorizontalAlignment.Right
                    sf.Alignment = StringAlignment.Far
            End Select

Dim headerFont As New Font("Arial", 8, FontStyle.Bold)
            Try
                e.Graphics.DrawString(e.Header.Text, headerFont, Brushes.Red, _
                                      New Point(e.Bounds.X + 5, e.Bounds.Y + 1), sf)
            Finally
                headerFont.Dispose()
            End Try

Finally
            sf.Dispose()
        End Try
    End Sub
    Private Sub ListView1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawListViewItemEventArgs) Handles ListView1.DrawItem
        e.DrawDefault = True
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        ListView1.View = View.Details
        If i = 0 Then
            ListView1.Columns.Add("Valeur " & 0, 75, HorizontalAlignment.Left)
            ListView1.Items.Add(TextBox1.Text)
        ElseIf i > 0 Then
            ListView1.Width = ListView1.Width + 75
            ListView1.Columns.Add("Valeur " & i, 75, HorizontalAlignment.Left)
            ListView1.Items(0).SubItems.Add(TextBox1.Text)
        End If
        TextBox1.Clear()
        i = i + 1
        ListView1.OwnerDraw = True
    End Sub
End Class

cs_Le Pivert · Answer

Voilà:

 Private Sub ListView1_DrawColumnHeader(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawListViewColumnHeaderEventArgs) Handles ListView1.DrawColumnHeader
        Try
            'Rectangle
            e.Graphics.FillRectangle(Brushes.Black, e.Bounds)'couleur contour
            'Rectanglesuperieur (Il est superposé au rectangle précédent et plus petit ou ±)
            Dim RectPoint As New Point(e.Bounds.X + 1, e.Bounds.Y + 1)
            Dim RectSize As New Size(New Point(e.Bounds.Width - 2, e.Bounds.Height - 2))
            Dim Rect As New Rectangle(RectPoint, RectSize)
            e.Graphics.FillRectangle(Brushes.Yellow, Rect) 'couleur fond BackColor
        Finally
        End Try
        Dim sf As New StringFormat()
        Try
            Select Case e.Header.TextAlign
                Case HorizontalAlignment.Center
                    sf.Alignment = StringAlignment.Center
                Case HorizontalAlignment.Right
                    sf.Alignment = StringAlignment.Far
            End Select

Dim headerFont As New Font("Arial", 8, FontStyle.Bold)
            Try
                e.Graphics.DrawString(e.Header.Text, headerFont, Brushes.Red, _
                                      New Point(e.Bounds.X + 5, e.Bounds.Y + 1), sf) 'couleur police ForeColor
            Finally
                headerFont.Dispose()
            End Try

Finally
            sf.Dispose()
        End Try
    End Sub 
 
@+ Le Pivert

Karin.code · Answer

Bonjour cs_Le Pivert,
Merci beaucoup ca fonctionne très bien 
bien sûr merci aussi à vb95 et cs_ShayW
vous m'avez été d'une grand aide

Vb.Net Remplire une Listview d'une façon horizontale

6 réponses

Votre réponse

Discussions similaires