Bonjour à tous,
je t'ai répondu ici:
http://www.commentcamarche.net/forum/affich-31721531-groupebox-en-vb2010#p31780154
Voici 2 exemples, ListView et DataGridView
ListView
Private Sub ListView1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseUp
'changement de texte
Dim hti As ListViewHitTestInfo = ListView1.HitTest(e.Location)
Dim six As Integer = hti.Item.SubItems.IndexOf(hti.SubItem)
Dim ligne As Integer
ligne = ListView1.SelectedIndices(0).ToString
ListView1.Items(ligne).SubItems(six).Text = "changement de texte"
'ContextMenu
Dim m As New ContextMenuStrip()
Dim item As New ToolStripMenuItem("Item1" & Environment.NewLine & "item2" & Environment.NewLine & "item3")
m.Items.Add(item)
ListView1.ContextMenuStrip = m
'Ajout combobox
For Each listviewitem As ListViewItem In ListView1.Items
Dim Combo As New ComboBox
Combo.Items.Add("item1")
Combo.Items.Add("item2")
Combo.Items.Add("item3")
Combo.SelectedIndex = 0
Combo.DropDownStyle = ComboBoxStyle.DropDownList
Combo.Height = 30
Combo.Location = New Point(e.Location)
' ListView1.Controls.Add(Combo) 'activer
Next
End Sub
DataGridView
DataGridView1.ColumnCount = 3
DataGridView1.Columns(0).Name = "Product ID"
DataGridView1.Columns(1).Nam= "Product Name"
DataGridView1.Columns(2).Name = "Product_Price"
Dim row As String() = New String() {"1", "Product 1", "1000"}
DataGridView1.Rows.Add(row)
row = New String() {"2", "Product 2", "2000"}
DataGridView1.Rows.Add(row)
row = New String() {"3", "Product 3", "3000"}
DataGridView1.Rows.Add(row)
row = New String() {"4", "Product 4", "4000"}
DataGridView1.Rows.Add(row)
Dim cmb As New e DataGridViewComboBoxColumn()
cmb.HeaderText = "Select Data"
cmb.Name = "cmb"
cmb.MaxDropDownItems = 4
' cmb.Items.Add("True")
'cmb.Items.Add("False")
cmb.Items.AddRange(Color.Red, Color.Yellow, Color.Green, Color.Blue)
DataGridView1.Columns.Add(cmb)
1 avril 2015 à 15:55