Multiline Listbox?

[Max]

I need some control that basically acts as a listbox, but allows each
item to take up more then one line. I've tried adding a new item and
putting in a vbCrLf in there, but that just comes out as a box on the
same line. Is there some way of making the listbox show multiple lines
for each item, or is there another control (3rd party maybe) that will
let me do this?

[Herfried K. Wagner [MVP]]

* Max <ma*****@yahoo. com> scripsit:

I need some control that basically acts as a listbox, but allows each
item to take up more then one line. I've tried adding a new item and
putting in a vbCrLf in there, but that just comes out as a box on the
same line. Is there some way of making the listbox show multiple lines
for each item, or is there another control (3rd party maybe) that will
let me do this?

You will have to draw the items yourself. Have a look at the listbox's
'DrawMode' property.

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Max]

Herfried K. Wagner [MVP] wrote:

* Max <ma*****@yahoo. com> scripsit:

I need some control that basically acts as a listbox, but allows each
item to take up more then one line. I've tried adding a new item and
putting in a vbCrLf in there, but that just comes out as a box on the
same line. Is there some way of making the listbox show multiple lines
for each item, or is there another control (3rd party maybe) that will
let me do this?

You will have to draw the items yourself. Have a look at the listbox's
'DrawMode' property.

Never used that property before, how does it work?

[Herfried K. Wagner [MVP]]

* Max <ma*****@yahoo. com> scripsit:

I need some control that basically acts as a listbox, but allows each
item to take up more then one line. I've tried adding a new item and
putting in a vbCrLf in there, but that just comes out as a box on the
same line. Is there some way of making the listbox show multiple lines
for each item, or is there another control (3rd party maybe) that will
let me do this?

You will have to draw the items yourself. Have a look at the listbox's
'DrawMode' property.

Never used that property before, how does it work?

There is a basic sample in the documentation for 'ListBox.DrawMo de'.

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Ken Tucker [MVP]]

Hi,

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
For x As Integer = 0 To 20
ListBox1.Items. Add(String.Form at("Item {0} {1} Line 2", x,
ControlChars.Ne wLine))
Next
ListBox1.DrawMo de = DrawMode.OwnerD rawVariable
End Sub
Private Sub ListBox1_DrawIt em(ByVal sender As Object, ByVal e As
System.Windows. Forms.DrawItemE ventArgs) Handles ListBox1.DrawIt em
Dim g As Graphics = e.Graphics
Dim s As String
Dim d As Date
Dim br As Brush = SystemBrushes.W indowText
Dim brBack As Brush
Dim rDraw As Rectangle
Dim bSelected As Boolean = CBool(e.State And
DrawItemState.S elected)

rDraw = e.Bounds
rDraw.Inflate(-1, -1)

If bSelected Then
brBack = Brushes.LightBl ue
g.FillRectangle (Brushes.LightB lue, rDraw)
g.DrawRectangle (Pens.Blue, rDraw)
Else
brBack = Brushes.White
g.FillRectangle (brBack, e.Bounds)
End If

br = Nothing
brBack = Nothing
rDraw = Nothing
Try
s = ListBox1.Items. Item(e.Index).T oString
Catch
s = ""
End Try
Debug.WriteLine (String.Format( "{0} {1} {2}", e.Index, s,
e.Bounds.ToStri ng))

g.DrawString(s, ListBox1.Font, Brushes.Black,
RectangleF.op_I mplicit(e.Bound s))
End Sub

Private Sub ListBox1_Measur eItem(ByVal sender As Object, ByVal e As
System.Windows. Forms.MeasureIt emEventArgs) Handles ListBox1.Measur eItem
e.ItemHeight += e.ItemHeight
End Sub

Ken
-------------

"Max" <ma*****@yahoo. com> wrote in message
news:Ne******** ************@co mcast.com:

I need some control that basically acts as a listbox, but allows each
item to take up more then one line. I've tried adding a new item and
putting in a vbCrLf in there, but that just comes out as a box on the
same line. Is there some way of making the listbox show multiple lines
for each item, or is there another control (3rd party maybe) that will
let me do this?

--
Outgoing mail is certified Virus Free.
Checked by AVG Anti-Virus (http://www.grisoft.com).
Version: 7.0.230 / Virus Database: 262.10.6 - Release Date: 5/28/2004

[Max]

Herfried K. Wagner [MVP] wrote:

* Max <ma*****@yahoo. com> scripsit:

I need some control that basically acts as a listbox, but allows each
item to take up more then one line. I've tried adding a new item and
putting in a vbCrLf in there, but that just comes out as a box on the
same line. Is there some way of making the listbox show multiple lines
for each item, or is there another control (3rd party maybe) that will
let me do this?
You will have to draw the items yourself. Have a look at the listbox's
'DrawMode' property.

Never used that property before, how does it work?

There is a basic sample in the documentation for 'ListBox.DrawMo de'.

Here's what I found in there:

Private Sub listBox1_DrawIt em(ByVal sender As System.Object, ByVal e As
System.Windows. Forms.DrawItemE ventArgs) Handles ListBox1.DrawIt em
' Set the DrawMode property to draw fixed sized items.
ListBox1.DrawMo de = DrawMode.OwnerD rawFixed
' Draw the background of the ListBox control for each item.
e.DrawBackgroun d()
' Create a new Brush and initialize to a Black colored brush by default.
Dim myBrush As Brush

' Determine the color of the brush to draw each item based on the
index of the item to draw.
Select Case (e.Index)
Case 0
myBrush = Brushes.Red
Case 1
myBrush = Brushes.Orange
Case 2
myBrush = Brushes.Purple
End Select

' Draw the current item text based on the current Font and the custom
brush settings.
e.Graphics.Draw String(ListBox1 .Items(e.Index) , e.Font, myBrush, New
RectangleF(e.Bo unds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height ))
' If the ListBox has focus, draw a focus rectangle around the
selected item.
e.DrawFocusRect angle()
End Sub

So I get how that works, I just use listBox1.items. add("Some text") and
the first time it paints the text red... But this still doens't help me
in making the thing work on multiple lines. Or am I missing something???

[Herfried K. Wagner [MVP]]

* Max <ma*****@yahoo. com> scripsit:

So I get how that works, I just use listBox1.items. add("Some text")
and the first time it paints the text red... But this still doens't
help me in making the thing work on multiple lines. Or am I missing
something???

In the listbox's 'MeasureItem' event, measure the string to be drawn for
an item using 'Graphics.Measu reString'. In the 'DrawItem' event, the
string is drawn using 'DrawString'. Always have a look at the 'e'
parameters of the event handlers.

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>