ListBox VisualBasic

Private Sub Actualisation_Marque()
Dim ConnectionSQL = New MySqlConnection
Dim COMMAND = New MySqlCommand
Dim SDA = New MySqlDataAdapter
Dim dbDataSet = New DataTable
Dim bSource = New BindingSource
Dim Query As String
ConnectionSQL.ConnectionString = "server=MONSERVEUR; userid=UTILISATEUR; password=MOT_DE_PASSE; database=BASE DE DONNEE"
Try
'Selection des marques dans la base de donnée et regroupement des doublons + Ordre alpha
Query = "SELECT marque FROM BDD.TABLE GROUP BY marque ORDER BY marque"
COMMAND = New MySqlCommand(Query, ConnectionSQL)
With SDA
.SelectCommand = COMMAND
.Fill(dbDataSet)
End With
bSource.DataSource = dbDataSet
LB1.DisplayMember = "marque"
LB1.DataSource = bSource 'Rentre les noms des marques dans la listbox
SDA.Update(dbDataSet)
ConnectionSQL.Close()
Catch ex As Exception
MsgBox("Une erreur est survenue :" & vbNewLine & vbNewLine & "L'erreur est : " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Erreur : 2")
Finally
ConnectionSQL.Dispose()
End Try
End Sub






AH ok !!

Oui c'est du vb pardon :) et merci pour le lien je vais voir ce que cela donne

Bonjour, non ça n'est pas du Vb
Du Vb c'était Vb1, ça fait 20 ans que ça n.esxiste plus
Aujourd'hui il y a

• VBS
• VBA -> précisez:
  • Word
  • Excel
  • Access
  • Powerpoint
  • Autre
• VB6 (ou antérieur, précisez)
• VB.Net - précisez la Framework et ->
  • Winform
  • WPF

Le problème étant que Microsoft n.est pas foutu de trouver des noms différents à des langages différents

Exact c du vb.net winForm quand au cas du ItemHeight je dois le placer dans le load ?
Car si Oui alors j'ai un plus gros souci c'est que cela ne bouge strictement rien.

Merci
Cordialement

Voilà le problème que cela me fait

J'ai écrits dans le load

LB1.DrawMode = DrawMode.OwnerDrawFixed

Attention : LB1 = ListBox1

Et pour l'actualisation de ma base j'ai écrit ceci

Private Sub Actualisation_Marque()
Dim ConnectionSQL = New MySqlConnection
Dim COMMAND = New MySqlCommand
Dim SDA = New MySqlDataAdapter
Dim dbDataSet = New DataTable
Dim bSource = New BindingSource
Dim Query As String
ConnectionSQL.ConnectionString = "server=MONSERVEUR; userid=UTILISATEUR; password=MOT_DE_PASSE; database=BASE DE DONNEE"
Try
'Selection des marques dans la base de donnée et regroupement des doublons + Ordre alpha
Query = "SELECT marque FROM BDD.TABLE GROUP BY marque ORDER BY marque"
COMMAND = New MySqlCommand(Query, ConnectionSQL)
With SDA
.SelectCommand = COMMAND
.Fill(dbDataSet)
End With
bSource.DataSource = dbDataSet
LB1.DisplayMember = "marque"
LB1.DataSource = bSource 'Rentre les noms des marques dans la listbox
LB1.ItemHeight = 50
SDA.Update(dbDataSet)
ConnectionSQL.Close()
Catch ex As Exception
MsgBox("Une erreur est survenue :" & vbNewLine & vbNewLine & "L'erreur est : " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Erreur : 2")
Finally
ConnectionSQL.Dispose()
End Try
End Sub


Donc en résumé cela m'affiche une scrollBar vertical MAIS ne m'affiche aucune données :/


Merci
Cordialement

Non, comme indiqué dans le tuto que t'as donné le Pivert, il faut le mettre dans l'évènement MesureItem, il faut aussi écrire le texte et dessiner le cadre dans DrawItem.

Copie le code et tu auras ça

PS avec itemheight = 20

Et si tu veux centrer le texte (avec itemHeight = 50 cette fois ci)

			'valeurs par défaut
			Dim fond As Brush = Brushes.Beige
			Dim police As Font = Me.Font
			Dim couleurTexte As Brush = Brushes.Black

			' L' item est celui 'selected' si And sur 'State' et 'DrawItemState.Selected'= true. 
			If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
				fond = Brushes.CornflowerBlue
				police = New Font(Me.Font, FontStyle.Bold)
				couleurTexte = Brushes.White
			End If

			'centrer le texte
			Dim texte As String = listBox1.Items(e.Index).ToString()
			Dim tailleTexte As SizeF = e.Graphics.MeasureString(texte, police)
			Dim x As Single = e.Bounds.X + (e.Bounds.Width - tailleTexte.Width) / 2
			Dim y As Single = e.Bounds.Y + (e.Bounds.Height - tailleTexte.Height) / 2


			'On dessine le rectangle du fond et on écrit le texte
			e.Graphics.FillRectangle(fond, e.Bounds)
			e.Graphics.DrawString(texte, police, couleurTexte, x, y)

			' Rectangle bleue autour de chaque Item.
			e.Graphics.DrawRectangle(Pens.Blue, New Rectangle(e.Bounds.X, e.Bounds.Y, e.Bounds.Width - 1, e.Bounds.Height))
			'On diminue la largeur du rectangle de 1 pixel, sinon le coté droit n'est pas visible

			' Afficher le focus rectangle .
			e.DrawFocusRectangle()

Bonjour merci de cette précision sauf que il y à un problème c'est que les items de la listbox proviennent d'une base de donnée :/

Merci
Cordialement

Volià le code qui me permet de remplir la listbox
Quand à ce qui est de connaître le langage je le connais mais la listbox c'est la première fois que je dois m'en servir

Merci
Cordialement

Merci j'ai l'impression que cela pourrait fonctionner si j'arrive à gérer pourquoi cela me fait une erreur



Merci
Cordialement

D'accord m'est moi je n'ai jamais dit que je voulais agrandir mes items je voulais juste les écartés :/

Mais par contre non je ne peux pas abandonné car ce projet n'est pas pour moi c'est pour mon chef je suis en stage, alors cela serait vraiment sympa de votre part si vous avez une idée.

Merci d'avance
Cordilement

Merci à tous de votre aide vous avez raison c'est bien avec le DrawItem que cs_Le_Pivert ma fourni cela fonctionne parfaitement il me manquait juste à écrire

à la ligne :

e.Graphics.DrawString(Me.ListBox1.Items(e.Index), New Font(Me.Font, FontStyle.Bold)

e.Graphics.DrawString(Me.ListBox1.Items(e.Index)("marque").ToString, New Font(Me.Font, FontStyle.Bold)

puis quand j'ai rajouté le script de Whismeril pour centrer le texte tout est parfait je vous remerci à tous bonne journée maintenant je vais pouvoir avancer ;)

C'est quoi le code de Actualisation_Marque()?

Bonsoir alors pour ce qui est du code de Actualisation_Marque() le voci

Dim ConnectionSQL = New MySqlConnection
        Dim COMMAND = New MySqlCommand
        Dim SDA = New MySqlDataAdapter
        Dim dbDataSet = New DataTable
        Dim bSource = New BindingSource
        Dim Query As String
        ConnectionSQL.ConnectionString = Connection de ma base de donnée
        Try
            'Selection des marques dans la base de donnée et regroupement des doublons + Ordre alpha
            Query = "SELECT marque FROM 853339_depannage.materielocass GROUP BY marque ORDER BY marque"
            COMMAND = New MySqlCommand(Query, ConnectionSQL)
            With SDA
                .SelectCommand = COMMAND
                .Fill(dbDataSet)
            End With
            bSource.DataSource = dbDataSet
            LB1.DisplayMember = "marque"
            LB1.DataSource = bSource 'Rentre les noms des marques dans la listbox

            SDA.Update(dbDataSet)
            ConnectionSQL.Close()
        Catch ex As Exception
            MsgBox("Une erreur est survenue :" & vbNewLine & vbNewLine & "L'erreur est : " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Erreur : 2")
        Finally
            ConnectionSQL.Dispose()
        End Try
    End Sub

Et pour ce qui est de la ligne de votre doute quand j'enlève ("marque").ToString cela me fait ce qui suit :



Alors que en le rajoutant cela fonctionne parfaitement

Merci
Cordialement