添加圖標列表框中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