ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 11392|回复: 33

[Excel 程序开发] [第47期]ListView控件及命令栏图标应用技巧--(已结)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2009-5-1 00:08 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
答题方式:直接跟帖回复.

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

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

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

演示效果图:


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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?免费注册

x

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2009-5-6 18:22 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
少答了一题,现在补上

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


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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?免费注册

x

评分

1

查看全部评分

TA的精华主题

TA的得分主题

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

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


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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?免费注册

x

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2009-5-7 20:53 | 显示全部楼层


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


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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?免费注册

x

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2009-5-10 16:58 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
优化一些细节,附件重新上传。2008-5-12 13:01
附件更新。改正直接获取图标,改正滚动后偏差的问题。

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


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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?免费注册

x

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2009-5-10 20:09 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

答题:ListView控件及命令栏图标应用技巧

请版主大人指点和斧正,见附件!

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


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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?免费注册

x

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2009-5-13 13:33 | 显示全部楼层
应该可以做的更好点,但listview控件在子类化时失败,所以暂时没有想出更好的代码,先发一个上来!

至班主:做了一下更改,见附件

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


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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?免费注册

x

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2009-5-14 14:03 | 显示全部楼层
答案见附件,请版主审阅


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

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?免费注册

x

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2009-5-15 07:41 | 显示全部楼层
我就用英文了。本电脑不识别中文

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

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?免费注册

x

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2009-5-19 13:55 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

回复 3楼 markqin 的帖子

评分

1

查看全部评分

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-22 00:01 , Processed in 0.044865 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表