[下载][分享]Listbox间距调整函数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

借花献佛，把有点甜老师的“加大ListBox间隔的例子” 做成了函数。有需要的朋友可以用下。

窗口与控件事件

窗口1_AfterLoad

Functions.Execute("ListBoxDraw","窗口1")

自定义函数

ListBoxDraw

'Args(0) 窗体名

For Each c As WinForm.Control In Forms(Args(0)).Controls

If Typeof c Is WinForm.ListBox Then '判断控件

Dim cbx As System.Windows.Forms.ListBox = Forms(Args(0)).Controls(c.name).BaseControl

cbx.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed

cbx.ItemHeight = 20

AddHandler cbx.DrawItem, AddressOf BoxList_DrawItem

End If

全局代码

Public Sub BoxList_DrawItem(sender As object, e As System.Windows.Forms.DrawItemEventArgs) '重绘列表控件行间距

If e.Index < 0 Then Return

e.DrawBackground()

e.DrawFocusRectangle()

e.Graphics.DrawString(sender.Items(e.Index).ToString(), e.Font, new SolidBrush(e.ForeColor), e.Bounds.X, e.Bounds.Y + 3)

End Sub

combobox试了下，没成功，我只是把有点甜老师的成果总结了下，其它功能还需要有点甜老师给方法

除了combobox,我还想把listbox实现背景行交替变色，也没成功，不过文字变色成功了，没放上来。

以下是引用xiaoohoo在2014-3-8 15:55:00的发言：

‘交替行变色

e.Graphics.FillRectangle(IIf(e.Index Mod 2, Brushes.LightCyan, Brushes.LightBlue), e.Bounds)

[此贴子已经被作者于2014-3-8 15:58:26编辑过]

成功了，图片点击可在新窗口打开查看

全局代码

Public Sub BoxList_DrawItem(sender As object, e As System.Windows.Forms.DrawItemEventArgs) '重绘列表控件行间距

If e.Index < 0 Then Return

e.DrawBackground()

Dim myBrush As Brush = Brushes.Black

If e.Index Mod 2 = 0 Then

myBrush = Brushes.Red ‘文字变色

Else

myBrush = Brushes.Purple

End If

e.DrawFocusRectangle()

e.Graphics.FillRectangle(IIf(e.Index Mod 2, Brushes.LightCyan, Brushes.LightBlue), e.Bounds) ’交替行变色

' e.Graphics.DrawString(sender.Items(e.Index).ToString(), e.Font, new SolidBrush(e.ForeColor), e.Bounds.X, e.Bounds.Y + 3)

e.Graphics.DrawString(sender.Items(e.Index).ToString(), e.Font,myBrush, e.Bounds.X, e.Bounds.Y + 3)

End Sub

主题：[下载][分享]Listbox间距调整函数