VB.NET

Custom Controls (Checkbox / List)

Please support our VB.NET advertiser: Intel Parallel Studio Home

Thread Solved

•

Join Date: Oct 2008

Posts: 6

Reputation: corteplaneta is an unknown quantity at this point

Solved Threads: 0

corteplaneta corteplaneta is offline

Offline

Newbie Poster

Custom Controls (Checkbox / List)

Oct 14th, 2008

Hi, I'm not too experienced with .NET programming, but I was wondering if anyone knows of a custom control in VB.NET that involves a list (sort of like a ListBox), with at least 2 columns, and the ability to select individual members of this list. I basically have a dynamic NameValueCollection I would like to populate this list with and allow users to select different items.

Does anyone know of a pre-made control like this?

•

Join Date: Aug 2008

Posts: 710

Reputation: Teme64 will become famous soon enough

Solved Threads: 114

Teme64

Offline

Master Poster

Re: Custom Controls (Checkbox / List)

Oct 14th, 2008

You'll get that with ListView control.
Fill ListView control:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Dim TempStr(1) As String
Dim NewNode As ListViewItem
ListView1.View = View.Details
' FullRowSelect has to be True
ListView1.FullRowSelect = True
ListView1.Columns.Clear()
ListView1.Columns.Add("Column1", 100)
ListView1.Columns.Add("Column2", 100)
ListView1.Items.Clear()
TempStr(0) = "foo"
TempStr(1) = "bar"
NewNode = New ListViewItem(TempStr)
ListView1.Items.Add(NewNode)
TempStr(0) = "another"
TempStr(1) = "item"
NewNode = New ListViewItem(TempStr)
ListView1.Items.Add(NewNode)
Dim TempStr(1) As String
Dim NewNode As ListViewItem
ListView1.View = View.Details
' FullRowSelect has to be True
ListView1.FullRowSelect = True
ListView1.Columns.Clear()
ListView1.Columns.Add("Column1", 100)
ListView1.Columns.Add("Column2", 100)
ListView1.Items.Clear()
TempStr(0) = "foo"
TempStr(1) = "bar"
NewNode = New ListViewItem(TempStr)
ListView1.Items.Add(NewNode)
TempStr(0) = "another"
TempStr(1) = "item"
NewNode = New ListViewItem(TempStr)
ListView1.Items.Add(NewNode)

and check where the mouse was clicked:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Private Sub ListView1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseClick
  Dim HTInfo As ListViewHitTestInfo = ListView1.HitTest(e.Location)
  Dim TempStr As String
  HTInfo = ListView1.HitTest(e.Location)
  TempStr = HTInfo.SubItem.ToString
  MessageBox.Show(TempStr, _
    "SubItem", _
    MessageBoxButtons.OK, _
    MessageBoxIcon.Information)
End Sub
Private Sub ListView1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseClick
  Dim HTInfo As ListViewHitTestInfo = ListView1.HitTest(e.Location)
  Dim TempStr As String
  HTInfo = ListView1.HitTest(e.Location)
  TempStr = HTInfo.SubItem.ToString
  MessageBox.Show(TempStr, _
    "SubItem", _
    MessageBoxButtons.OK, _
    MessageBoxIcon.Information)
End Sub

Of course you can have more than two columns if you need.