做了个自定义CheckedListBox类,想要每行颜色不同,但不作用,请问错在哪?

gzwlj2001 2021-04-25 03:29:00
我的想法是单数行黑色字,双数行红色字,但不起作用,也不出错,用的是VS2003不行 ,在VS2008上试了可以


Protected Overloads Overrides Sub OnDrawItem(ByVal e As DrawItemEventArgs)
If e.Index Mod 2 = 0 Then
Dim e2 As DrawItemEventArgs = New DrawItemEventArgs(e.Graphics, e.Font, e.Bounds, e.Index, e.State, Color.Red, e.BackColor) ' New DrawItemEventArgs(e.Graphics, e.Font, New Rectangle(e.Bounds.Location, e.Bounds.Size), e.Index, e.State, Color.Red, e.BackColor)
MyBase.OnDrawItem(e2)
Else
MyBase.OnDrawItem(e)
End If
End Sub
...全文
1125 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
百度 C#版本 你就能明白了。

16,721

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧