以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- LISTVIEW能不能实现这样的效果? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48367)
|
-- 作者:永不言弃
-- 发布时间:2014/3/27 16:55:00
-- LISTVIEW能不能实现这样的效果?
就像许多网页上,把鼠标放到图片上面,图片自动放大到规定尺寸.因为图片太多了.如果太大了,一屏没几个显示的,太小了看不清楚.
|
-- 作者:lsy
-- 发布时间:2014/3/27 16:59:00
--
看了你做的项目,就猜到,迟早会问这个问题。
|
-- 作者:Bin
-- 发布时间:2014/3/27 16:59:00
--
这个真不可以.
|
-- 作者:狐狸爸爸
-- 发布时间:2014/3/27 17:01:00
--
窗口另外来个pictureBox,放大显示listview选中的当前图片。
|
-- 作者:lsy
-- 发布时间:2014/3/27 17:18:00
--
RowSelectionChanged
Dim itm As WinForm.ListViewRow = e.Sender.Current If itm IsNot Nothing Then e.Form.Controls("PictureBox1").Image = GetImage(itm. ImageKey & ".BMP") End If
|
-- 作者:永不言弃
-- 发布时间:2014/3/27 17:24:00
--
此主题相关图片如下:qq图片20140327172308.jpg
是不是像这样设计?
地方不够,左边导航栏也不要了,改成菜单了.
[此贴子已经被作者于2014-3-27 17:25:57编辑过]
|
-- 作者:lsy
-- 发布时间:2014/3/27 17:26:00
--
很不错的效果。
|
-- 作者:lsy
-- 发布时间:2014/3/27 18:03:00
--
楼主的项目中ImageKey是包含".BMP"的,所以代码要这样:
Dim itm As WinForm.ListViewRow = e.Sender.Current If itm IsNot Nothing Then e.Form.Controls("PictureBox1").Image = GetImage(itm.ImageKey) End If
|
-- 作者:永不言弃
-- 发布时间:2014/3/27 18:14:00
--
LSY老师,我把你的代码复制了一遍到
RowSelectionChanged,没显示图片啊. 此主题相关图片如下:qq图片20140327181258.jpg
|
-- 作者:永不言弃
-- 发布时间:2014/3/27 18:31:00
--
OK了,感谢老师.
|