请看kodak图像缩略图ImgThumbnail例子问题，高分等待，解决问题200分

Question

不知道imgthumbnail是什么控件。
在别人没有回复你的帖子之前可以删除，并返回可用分。

Answer 1

你可能把这个控件的用法弄错了一点，多个缩略图我知道的只有TIF才可以有这种效果，你可以这样试：用ImgAdmin控件
ImgAdmin1.Image = "C:\1.TIF"
ImgAdmin1.Append "C:\1.TIF", 1, 1
ImgThumbnail1.Image = "C:\1.TIF"现在你可以看到多个缩略图了。

Answer 2

GenerateThumb、InsertThumbs这两个方法用不上吗？

Answer 3

   Dim rs As New ADODB.Recordset
    '存的是路径
   rs.Open "select 图片 from 我的图片 ", cnMuseum, adOpenStatic, adLockOptimistic      
       
    If rs.EOF = False And rs.BOF = False Then
    
'       Do Until rs.EOF
         ImgAdmin1.Image = rs(0)
       ImgAdmin1.Append rs(0), 1, 1
        ImgThumbnail1.Image = rs(0)
'         ImgEdit1.Image = rs(0)
'         ImgThumbnail1.Image = rs(0)
''         ImgThumbnail1.InsertThumbs
'         ImgThumbnail1.GenerateThumb 1
'
'
'         ImgThumbnail1.DisplayThumbs
                  
'         rs.MoveNext
         i = i + 1
         
'       Loop
     
       ImgThumbnail1.DisplayThumbs
       
       ImgThumbnail1.Refresh
       
       
    End If
   rs.Close我不知道怎么样才能显示多个缩略图，并且我的图片tif、gif、jpg格式都有

Answer 4

   Dim rs As New ADODB.Recordset
    '存的是路径
   rs.Open "select 图片 from 我的图片 ", cnMuseum, adOpenStatic, adLockOptimistic      
       
    If rs.EOF = False And rs.BOF = False Then
    
'       Do Until rs.EOF
         ImgAdmin1.Image = rs(0)
       ImgAdmin1.Append rs(0), 1, 1
        ImgThumbnail1.Image = rs(0)
'         ImgEdit1.Image = rs(0)
'         ImgThumbnail1.Image = rs(0)
''         ImgThumbnail1.InsertThumbs
'         ImgThumbnail1.GenerateThumb 1
'
'
'         ImgThumbnail1.DisplayThumbs
                  
'         rs.MoveNext
         i = i + 1
         
'       Loop
     
       ImgThumbnail1.DisplayThumbs
       
       ImgThumbnail1.Refresh
       
       
    End If
   rs.Close我不知道怎么样才能显示多个缩略图，并且我的图片tif、gif、jpg格式都有

Answer 5

   Dim rs As New ADODB.Recordset
    '存的是路径
   rs.Open "select 图片 from 我的图片 ", cnMuseum, adOpenStatic, adLockOptimistic      
       
    If rs.EOF = False And rs.BOF = False Then
    
'       Do Until rs.EOF
         ImgAdmin1.Image = rs(0)
       ImgAdmin1.Append rs(0), 1, 1
        ImgThumbnail1.Image = rs(0)
'         ImgEdit1.Image = rs(0)
'         ImgThumbnail1.Image = rs(0)
''         ImgThumbnail1.InsertThumbs
'         ImgThumbnail1.GenerateThumb 1
'
'
'         ImgThumbnail1.DisplayThumbs
                  
'         rs.MoveNext
         i = i + 1
         
'       Loop
     
       ImgThumbnail1.DisplayThumbs
       
       ImgThumbnail1.Refresh
       
       
    End If
   rs.Close我不知道怎么样才能显示多个缩略图，并且我的图片tif、gif、jpg格式都有

Answer 6

我还是建议你找个可以显示tif、gif、jpg......格式的控件，然后自己做缩略图控件。

Answer 7

以前用image做缩略图就因为image 不支持tif格式，就否定掉了