VBA Listview中隔行显示不同的背景颜色颜色
发布网友
发布时间：2022-04-22 09:04
我来回答
共2个回答
热心网友
时间：2022-04-22 10:33
1、先在PictureBox控件里画图，之后将其加载到Listview中
2、给单元格/Shape添加颜色后，复制Range和Shapes对象给剪贴板，然后保存成图片，需要WinAPI
3、对ListItem子类化后进行重绘。这是原来Vb用的方法，vba里貌似没人用
下面的方法1、2与上面的方法2相似，方法3即上面的方法3。当然还可以通过调用整个控件hdc在内存中作图，但和方法3一样需要调用WinAPI
1、创建ChartObjects对象，并在里面添加不同颜色的shape
[vb] view plain copy
Sub SetLvBColor(Lv As ListView, Count&, Optional BColor& = &HFFFFFF)
Dim iShape As Shape
Static iChart As ChartObject
If Lv.ListItems.Count = 1 Then Set iChart = ActiveSheet.ChartObjects.Add(0, 0, Lv.Width, Lv.ListItems(1).Height * Count)
With iChart.Chart.Shapes.AddShape(msoShapeRectangle, 0, Lv.ListItems(1).Height * (Lv.ListItems.Count - 1), Lv.Width, Lv.ListItems(1).Height * (Count - Lv.ListItems.Count + 1))
热心网友
时间：2022-04-22 11:51
用NM_CUSTOMDRAW技术实现Listview
VBA窗体Listview控件完全教程
看完这两篇，什么问题都解决了
如何设置EXCEL VBA控件用来显示窗体查询的列表
1.打开一个空的excel文件 按alt+f11 2.鼠标右键单击工程资管管理器中的 this workbook 单击插入 用户窗体 3.当即工具箱工具栏标签 激活工具箱窗口 4.在工具箱中分别将标签 文本框和按钮拖动到用户窗体 拖动两个按钮 如下图三个颜色的工具箱工具 对应拖动到用户窗体上的三个实际效果 三个效果已经通...
vbalistview第一列不滚动
该情况的原因如下：1、缺少空白或间距：在某些情况下，如果第一列没有足够的空白或间距，可能不会滚动。尝试添加一些空白或间距，以使第一列能够滚动。2、固定第一列：如果已将第一列固定，则不会滚动。要取消固定第一列，需要找到代码中设置固定列的代码行，并将其删除或注释掉。
vbalistview不能插入控件
1、功能不支持：vbalistview控件的设计者并没有为其提供插入其他控件的功能，因此要在vbalistview中插入其他控件就需要使用一些技巧和方法。2、自定义控件：vbalistview是一个用户自定义的控件，其设计目的是提供高度可自定义的视图列表，不是作为一个容器控件来使用。
