|
楼主 |
发表于 2004-1-5 21:40:04
|
显示全部楼层
首先多谢你的测试,但新年开始,工作有点忙,所以一直没有时间把帮助文件制作出来,就先发一段我的测试代码给你吧,如有什么问题,希望并且欢迎你给我来信,谢谢!!!同时我已将此代码发到你的信箱,怕你收不到,又在此发一下:)
以下代码,假定你在窗体上已经放了一个ListBoxEx控件,并且将其命名为 cT
Private Sub AddString()
Dim cI As CControl.ListControl.CListItem
For iL As Int32 = 980 To 1020
cI = cT.NewItem("测试一下速度 " & iL)
cI.ForeColor = Drawing.Color.Blue
cI.AddCell("测试2")
cI.AddCell("测试3")
cI.AddCell("测试4")
cI.AddCell("测试5")
cI.AddCell("测试6")
cI.AddCell("测试7")
cI.Font = New Font("汉仪黛玉体简", 12)
cT.AddItem(cI)
Next
End Sub
Private Sub AddColor()
Dim cL As Color
Dim cI As CControl.ListControl.CListItem
For iL As KnownColor = 1 To KnownColor.YellowGreen
cL = Color.FromKnownColor(iL)
cI = cT.NewItem(cL)
cI.AddCell(cL.Name)
cI.Font = New Font("汉仪黛玉体简", 12)
cT.AddItem(cI)
Next
End Sub |
|