Hi,
You would have to make your listbox owner drawn
Public Class Form1
Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
ListBox1.DrawMo de = DrawMode.OwnerD rawVariable
For x As Integer = 1 To 3
ListBox1.Items. Add(String.Form at("Line {0} that is way way way
to long to fit inside the listbox with out a scroll bar", x))
Next
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 br As SolidBrush
Dim s As String
Try
s = ListBox1.Items. Item(e.Index).T oString
Catch ex As Exception
Trace.WriteLine (ex.ToString)
s = "error"
End Try
g.FillRectangle (Brushes.White, e.Bounds)
If CBool(e.State And DrawItemState.S elected) Then
g.FillRectangle (Brushes.LightB lue, e.Bounds)
End If
br = New SolidBrush(Colo r.Black)
g.DrawString(s, ListBox1.Font, br, _
RectangleF.op_I mplicit(e.Bound s))
br.Dispose()
End Sub
Private Sub ListBox1_Measur eItem(ByVal sender As Object, ByVal e As
System.Windows. Forms.MeasureIt emEventArgs) Handles ListBox1.Measur eItem
Dim g As Graphics = e.Graphics
Dim s As String
Try
s = ListBox1.Items. Item(e.Index).T oString
Catch ex As Exception
s = "error"
End Try
Dim sz As SizeF = g.MeasureString (s, ListBox1.Font, ListBox1.Width _
- 5 - SystemInformati on.VerticalScro llBarWidth)
e.ItemHeight = CInt(sz.Height) + 5
e.ItemWidth = CInt(sz.Width) + 15
End Sub
End Class
Ken
-------------------
"the_mikado " <cr**********@a lcoa.com.au> wrote in message
news:11******** *************@g 49g2000cwa.goog legroups.com...
Hi, If this has been answered before I am sorry, but I want to wordwrap
the items in a listbox so I dont have to use the horizontal scroll bar.
Is this possible? if so how can it be done?
Regards,
Craig.
