CodeXchange Wednesday, January 17, 2018
Home
What's it?
Download
Register
My Snippets
Add Snippet
Search
Faq
Contact Us
Sponsors

Website hosted by


Code Snippet Preview

Review the code snippet before inserting it on your project.

Snippet Metadata
Summary: Draw images to a listbox and control font settings for each item
Language: VB.NET
Author: Matt Simmons
Author snippets RSS:
Culture: en-US
Bytes: 1514
Visual Studio 2005 Snippet:

Snippet Stats
Downloads: 3
Overall rating : 0
Average rating : Snippet rating

Snippet Preview
Code:
'Declare handlers for these 2 events and set listbox to ownerdraw mode
Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
    Me.lbBusMon.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawVariable
    'tell windows we are interested in drawing items in ListBox on our own
    AddHandler Me.lbBusMon.DrawItem, AddressOf Me.DrawItemHandler
    'tell windows we are interested in providing item size
    AddHandler Me.lbBusMon.MeasureItem, AddressOf Me.MeasureItemHandler
End Sub
'event hadnler for drawing
Private Sub DrawItemHandler(ByVal sender As Object, ByVal e As DrawItemEventArgs)
    e.DrawBackground()
    e.DrawFocusRectangle()
    Dim useImage As Image = Nothing
    e.Graphics.DrawString(lbBusMon.Items.Item(e.Index), New Font(FontFamily.GenericSansSerif, _
                                              8, FontStyle.Regular), New SolidBrush(Color.Black), e.Bounds)
    'load image from an ImageList control
    useImage = ilListBox.Images(1)
    If Not (useImage Is Nothing) Then
        Dim sz As SizeF = useImage.PhysicalDimension
        Dim x As Integer = CType(e.Bounds.Right - 20, Integer)
        Dim y As Integer = CType((e.Bounds.Bottom + e.Bounds.Top) / 2 - sz.Height / 2, Integer)
        e.Graphics.DrawImage(useImage, x, y)
    End If
End Sub 'DrawItemHandler
'event handler for size
Private Sub MeasureItemHandler(ByVal sender As Object, ByVal e As MeasureItemEventArgs)
    e.ItemHeight = 14
End Sub 'MeasureItemHandler

Snippet Comments
Comments:
No comments for this snippet

Other snippets that may interest you..
Related Snippets
TDT - GridPage - Page_Init (C#)
CustomValitaor (C#)
(C#)
Get the file extension from a file path or file name (VB.NET)
grab record from db and subtracts it from variable (VB.NET)



Copyright ©2009-2018 CodeXchange. Server version 1.0.3720.32855 Client Version 0.9.0.0

With from Barcelona

Most Helpful members
These are the members who have received the most points for their helpful samples
Zepho Zep
Robert Wagner
Galen Taylor

All time 'Hall of fame'
Formating a file size and adding the B, KB, MB and GB extension appropriately with string.Format (C#)
INI File Access (VB.NET)
Read XML from string into DataSet (C#)
Create Manifest File for your Application (VB.NET)
Round function to avoid banker's rounding (VB.NET)
Get Short and Long Path Names (VB.NET)
Sending Mail through authenticated SMTP server (C#)
One Way Hash for strings (C#)
Formating a file size and adding the B, KB, MB and GB extension appropriately with string.Format (C#)
How do I load an image from a URI address? (VB.NET)
Use our easy to use Visual Studio.NET addin client and start sharing code snippets with the CodeXchange community!
Refreshed: Wednesday, January 17, 2018