[第47期]ListView控件及命令栏图标应用技巧--（已结）

清风_ll

答题方式:直接跟帖回复.

题目要求:
1、编写VBA代码分别为用户窗体上的几个命令按钮添加命令栏图标；（完成本要求得1分）
2、自行为ListView控件添加一些数据（行数>10,列数>5），为上下箭头图标的两个命令按钮编写代码，实现选中列表项上移和下移，调整列表项位置的功能，要求同时适用于选择多行的情况；（完成本要求得1分）
3、完成鼠标拖拉选择多行的功能；（完成本要求得1分）
4、双击ListView控件中列表项（包括子项目）时，在文本框中显示当前双击的列表项或子项目内容，并通过修改按钮完成对该项内容的修改功能（注：本要求也可以使用你认为更合适的修改方式）。（完成本要求得1分）

具体参见下面演示效果图，以上要求代码运行过程中不发生错误。

如有疑问请以论坛短信的方式沟通。

演示效果图：


[ 本帖最后由 清风_ll 于 2009-5-28 21:38 编辑 ]

彭希仁

少答了一题,现在补上

1、完成要求1，2，4，
2、未实现要求3。
建议：在完成命令栏任务后可以立即删除掉。
存在疑问和问题：
1、代码中使用了两个数值1.009和1.35是是什么系数，如何得来
2、滚动ListView后，其上的文本框未能随之滚动或隐藏。

[ 本帖最后由 清风_ll 于 2009-5-25 16:40 编辑 ]

markqin

按钮图标很容易就做到了，上下移动的方法可能绝对和别人的想法不一样，因为是十分低级的，麻烦的作法。双击修改也做到了，是通过鼠标座标定位到LISTVIEW的列号，但是不知道为什么，显示时的LISTVIEW的列号left值和初始时设定值不一样。
通过鼠标拖动选多行没想到方法，等结案后再学学

1、未按要求使用命令栏图标；
2、完成数据上移下移功能；
3、未实现拖动鼠标选择多行功能；
4、列宽改变时，代码不正确。

[ 本帖最后由 清风_ll 于 2009-5-25 16:50 编辑 ]

泓()

基本完成所有要求，但要求4未完善，上下方向反复拖动鼠标时，未相应增加或减少选中项目。
如从第4行开始拖动，到第10行时，此时选中4-10行，然后在未释放鼠标的情况下向上拖动时，需从选中项目中相应减去。
建议：在完成命令栏任务后可以立即删除掉。


[ 本帖最后由 清风_ll 于 2009-5-25 17:02 编辑 ]

fdd

优化一些细节，附件重新上传。2008-5-12 13：01
附件更新。改正直接获取图标，改正滚动后偏差的问题。

1、没有直接取得命令栏图标。
2、完成2、3、4点要求，其中第3点请参阅楼上评语。

[ 本帖最后由 fdd 于 2009-5-27 22:59 编辑 ]

gg19782002

请版主大人指点和斧正，见附件！

1、没有直接取得命令栏图标；
2、完成要求2；
3、未完成要求3；
4、可实现，但操作不便。

[ 本帖最后由 清风_ll 于 2009-5-26 17:22 编辑 ]

yangchun88

应该可以做的更好点,但listview控件在子类化时失败,所以暂时没有想出更好的代码,先发一个上来!

至班主：做了一下更改，见附件

1、没有直接取得命令栏图标；
2、完成要求2，3，4

[ 本帖最后由 清风_ll 于 2009-5-26 17:27 编辑 ]

xowi99

答案见附件，请版主审阅


基本完成所有要求，基本完成所有要求，但要求4未完善，参见4楼评语。

[ 本帖最后由 清风_ll 于 2009-5-26 17:33 编辑 ]

Scarlett_88

我就用英文了。本电脑不识别中文

基本完成所有要求，其中第3点求未完善，参阅以上评语。

[ 本帖最后由 清风_ll 于 2009-5-27 11:56 编辑 ]

yangweixian