全局代码：
Public Sub listBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs)
e.DrawBackground()
e.DrawFocusRectangle()
Dim strFmt As StringFormat = New System.Drawing.StringFormat()
strFmt.Alignment = StringAlignment.Center
strFmt.LineAlignment = StringAlignment.Center
e.Graphics.DrawString(sender.Items(e.Index).ToString(), e.Font, New SolidBrush(e.ForeColor), e.Bounds, strFmt)
End Sub
窗口afterload
Dim lb As WinForm.ListBox = e.Form.Controls("ListBox1")
Dim a As System.Windows.Forms.listBox = lb.basecontrol
AddHandler a.DrawItem, AddressOf listBox1_DrawItem
加好友 
发短信
Post By：2020/8/13 9:35:00 [显示全部帖子]
