我们可以设定一个字段的值,用以判断用什么颜色显示listview的颜色,例子如下 procedure TMainForm.ListView2CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);begin if item.SubItems.Strings[7] = Edit11.Text then begin item.
之前注意到的一个例子,但是一直没有沉下心来看这个例子到底有什么优点,总觉得就是一个 list 列表,也不知道右边的 3d 场景放两个节点是要干嘛,今天突然想起来就仔细地看了一下这个例子的代码,实际操作中应该还是有用处的,就跟大家分享一下. 本例地址: http://hightopo.com/guide/guide/core/listview/examples/example_custom.html 实现图如下,看起来略有点简陋,但是可以自己天马心空增加或者更改成你需要的东西: 首先,创建场景,H
来源http://club.excelhome.net/thread-1417686-1-1.html 官方教程链接 https://docs.microsoft.com/zh-cn/office/vba/api/excel.worksheet.chartobjects 运行宏就显示图表 Sub test() Dim ch As ChartObject, ws As Worksheet Dim lastrow& Application.ScreenUpdating = False Set ws