如何实现图片导航功能?

如何实现图片导航功能?  
   
  form分为左右两边的框架.  
  左边是图片的缩略图,就像Windows   XP   下浏览图片以View   ->   Thumbnails的那种方式.   左边的小图片共两列,   n   行(n由图片的多少而定     n   =   picturesCount   /   2)  
   
  点击左边的小图片,   则在右边窗口显示大图片.  
   
  请给出代码.       谢谢... 问题点数：100、回复次数：7Top

1 楼ElwinLuo（梦幻模拟战II）回复于 2006-03-30 16:01:33 得分 0

只要提供一个能够显示阵列图片的控件就可以了,   顶也给分.Top

2 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-30 16:16:11 得分 0

左边用多个Image控件来显示小图(可以根据图片的数量来动态加载)，右边用一个大的Image来显示大图？Top

3 楼Modest（塞北雪貂)·(偶最欣赏楼主的分）回复于 2006-03-30 16:19:12 得分 15

http://www.mndsoft.com/blog/blogview.asp?logID=327Top

4 楼Modest（塞北雪貂)·(偶最欣赏楼主的分）回复于 2006-03-30 16:19:48 得分 15

http://www.mndsoft.com/blog/blogview.asp?logID=205Top

5 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-30 16:20:30 得分 40

把左边的Image做成控件数组，处理他们的Click事件  
   
  Private   Sub   ImageMin_Click(Index   As   Integer)  
          ImageMax.Picture   =   ImageMin(Index).Picture  
  End   SubTop

6 楼ZOU_SEAFARER（颓废程序员^_^）回复于 2006-03-30 16:29:56 得分 30

Option   Explicit  
   
  Private   Sub   Form_Load()  
      Dim   x   As   Control  
        For   Each   x   In   Me.Controls  
            If   TypeName(x)   =   "Image"   Then                   '设置这个属性，图片就不会超出你的控件  
                  x.Stretch   =   True  
            End   If  
        Next  
   
  End   Sub  
   
  Private   Sub   Image1_Click(Index   As   Integer)  
        Image2.Picture   =   Image1(Index).Picture  
           
  End   Sub  
   
  Top

7 楼junki（『.NET技术争霸天下』）回复于 2006-03-30 16:35:14 得分 0

先在我的程序库中Search...Top

相关问题

• 控件
• 图片
• 显示
• picture
• image
• sub
• click

• 帖主：ElwinLuo
• Modest
• Modest
• faysky2
• ZOU_SEAFARER

• Visual Basic类图书
• Visual Basic类源码下载