以文本方式查看主题

-  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了,感谢老师.