添加图标列表框中vb.net

Question

请

我如何通过左侧绘制图像中listbox_DrawItem事件

我已经读过throught this code，它的击打不是帮我

Dim targetsize As New Size(16, 16) 
Dim img As Image = Nothing 
img = My.Resources._error 
e.Graphics.DrawImage(img, targetsize) 
e.Graphics.DrawString(lsbLog.Items(e.Index).ToString(), _ 
           e.Font, mybrush, e.Bounds, StringFormat.GenericDefault) 

这是我现在的代码

编辑

我添加了你的c颂与其他一些代码，我得到一个乱码

这是DrawItem事件的部分代码

'//Here it draws the border depeding on it's state (the listbox item) 
     e.Graphics.DrawRectangle(myPen, e.Bounds.X + 16, e.Bounds.Y, _ 
           e.Bounds.Width - 16, e.Bounds.Height) 
     Using b As New SolidBrush(e.ForeColor) 
      e.Graphics.DrawString(lsbLog.GetItemText(lsbLog.Items(e.Index)), e.Font, b, e.Bounds) 
     End Using 
     e.Graphics.DrawImage(img, New Rectangle(e.Bounds.Width - 15, e.Bounds.Y, 12, 12)) 
     '// Draw the current item text based on the current 
     '// Font and the custom brush settings. 
     e.Graphics.DrawString(lsbLog.Items(e.Index).ToString(), e.Font, mybrush, _ 
           New Rectangle(e.Bounds.X - 20, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height), _ 
           StringFormat.GenericDefault) 

这是MeasureItem事件

Private Sub lsbLog_MeasureItem(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MeasureItemEventArgs) Handles lsbLog.MeasureItem 
     Dim g As Graphics = e.Graphics 
     'We will get the size of the string which we are about to draw, 
     'so that we could set the ItemHeight and ItemWidth property 
     Dim size As SizeF = g.MeasureString(lsbLog.Items.Item(e.Index).ToString, Me.Font, _ 
     lsbLog.Width - (5 + SystemInformation.VerticalScrollBarWidth)) 
     e.ItemHeight = CInt(size.Height) + 5 
     e.ItemWidth = CInt(size.Width) + 5 
    End Sub 

代码我得到一个加标签的文字和图像

Answer 1

两点来到了我的注意：

• 你设置DrawMode到DrawMode.OwnerDrawFixed或DrawMode.OwnerDrawVariable，如stated in the documentation？

• 您似乎是直接在图像上绘制文本。为什么在DrawString中使用e.Bounds而不是一个向右开始的矩形？例如。是这样的：

  Dim rect As New Rectangle(e.Bounds.X + 16, e.Bounds.Y, _ 
            e.Bounds.Width - 16, e.Bounds.Height) 
  ' use rect instead of e.Bounds in DrawString 
  

顺便说一句，你不应该忘记调用DrawBackground和DrawFocusRectange作为例子in the documentation看到。

Answer 2

试试这个相关文章，你只需要根据字体大小编辑一小段代码，我只需要8.25pt的字体大小，当字体大一些的时候图标就搞乱了， t排列在字体高度中心

Highlighting Listbox Item when Mouseover on Item