VBA窗体Listview控件完全教程

ivccav

ygsh168 发表于 2018-7-16 21:26
对了，按照楼主的指点，现在有一个小问题出现，就是加载后，第一行是灰色，只有有了第一次操作后，才会有明 ...

Listview控件失去焦点之后，高亮的颜色是会变淡的。这是正常现象。Listview失焦后，你依然能看到选中的行，这就够了。

ygsh168

ivccav 发表于 2018-7-16 21:42
Listview控件失去焦点之后，高亮的颜色是会变淡的。这是正常现象。Listview失焦后，你依然能看到选中的行 ...

是的，虽然没有我下午设计的漂亮，但功能满足了，并且感觉程序跑得好象也快
至少是感觉到屏幕不闪了吧，很自然的切换选择行
不过还是要非常感谢你的指点！！！

对了，另外还有一事请教：
我的窗体本来设计的无模式显示，这样我在操作窗体同时可以操作表
但是当我在窗体操作后，每次操作表，都得点击一下表，然后才能操作
如何让表与窗体之间通过代码来切换焦点的失去与获得？
谢谢~~

ivccav

ygsh168 发表于 2018-7-16 23:13
是的，虽然没有我下午设计的漂亮，但功能满足了，并且感觉程序跑得好象也快
至少是感觉到屏幕不闪了吧， ...

这个问题其实挺好解决的。

在模块中写一个sub，设置快捷方式，比如CTRL+r，在Excel获得焦点中用快捷方式激活窗体。

在窗体中，新建一个命令按钮CommandButton1，用来激活需要的工作表，并利用其Accelerator 属性设置快捷方式，比如ALT+c，你可以把按钮的宽度改为0，“隐藏”它，只使用其快捷方式。不要真的隐藏起来，不然快捷方式无效。还可用窗体的Activate事件在窗体激活时让需要的控件获得焦点。

这样窗体和工作表就在这两个快捷键之间切换了。

'模块代码
Sub activateform()
UserForm1.Show 0 '设置宏的快捷方式在工具--宏--宏，选项里面
End Sub


'窗体代码
Private Sub UserForm_Activate()
Me.TextBox1.SetFocus
End Sub


Private Sub CommandButton1_Click()
Me.Hide
Worksheets("Sheet3").Activate
End Sub


test.zip (10.05 KB, 下载次数: 269)

2018-7-17 08:50 上传

点击文件名下载附件

ygsh168

ivccav 发表于 2018-7-17 08:51
这个问题其实挺好解决的。

在模块中写一个sub，设置快捷方式，比如CTRL+r，在Excel获得焦点中用快 ...

谢谢你~~昨天跟在你后面学到了许多东西
现在我又在着手解决一个新问题，其实你已经给出了方案，我现在试着做，呵呵：）
就是昨晚在家用的电脑写的，今天在单位又不行了

ivccav

ygsh168 发表于 2018-7-17 10:36
谢谢你~~昨天跟在你后面学到了许多东西
现在我又在着手解决一个新问题，其实你已经给出了方案，我现在试 ...

多写代码，逐渐就能提高水平了。不能只看理论，还需要实践一下。

有空的时候，可以来这里答答题。

纳铭m

非常感谢 会视为经典的

chis3

謝謝
正好想用,先mark一下

ivccav

ivccav 发表于 2018-7-14 20:49
5.美化：Listview隔行换色的完美实现(前景色和背景色)

5.1、Listview前景色隔行换色

隔行换色已用新方法实现，无需提前保存图片，直接在绘制Listview时设置。
能设置到每个单元格的背景色：

用NM_CUSTOMDRAW重绘技术实现Listview控件隔行换色

wowo000

尊敬的ivccav老师：WIN10的64位+OFFICE2010的32位完美运行，可WIN7的64位+OFFICE2010的32位运行时却出现如下图错误——咋整？恳请回复！

ivccav

wowo000 发表于 2018-8-4 09:06
尊敬的ivccav老师：WIN10的64位+OFFICE2010的32位完美运行，可WIN7的64位+OFFICE2010的32位运行时却出现如 ...

我没有用过64位的系统，不知道具体原因，也没有办法测试。你看看是不是InkEdit版本兼容问题吧，你删掉InkEdit控件，然后自己绘制一个，看看能否运行？