答读者问

原发问问题:

 

章老师你好,想请问你有关于listview显示大图标的问题,我在imagelist放入我要显示的图片后,由于imagelist的大小设定,让显示的图片并不会等比例缩小,我做成跟文件总管一样的缩图功能,图片能比例缩小,且显示的质量也比较好,该如何下手,目前卡关中@@thanks

 

解答:

 

亲爱的读者您好,很感谢您对于章立民研究室的支持,有关于您提到的问题,回复如下。

 

 

图表1

 

 

图表2

 

 

图表3

 

图表13所示者是程序范例的执行画面,它示范如何使用ImageList对象来管理加载的Image对象,由ListBox控件来决定显示的图片缩图内容,相关程序设计技巧说明如下:

 

首先,于窗体的Load事件处理程序中撰写下列程序代码,以便建立ImageList类别实体对象,并设定相关属性,让缩图以200*200的影像高度与宽度大小、16Bit的颜色深度显示:


Protected myGraphics As Graphics
Private currentImage As Integer = 0

Private Sub Form012_Load( _
  ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  ImageList1 = New ImageList()
 
  ' 定义列表中的影像高度和宽度。
  ImageList1.ImageSize = New Size(200, 200)
  ImageList1.ColorDepth = ColorDepth.Depth16Bit
End Sub

 

当您按下「加入图像文件案」按钮,便会显示「开启文件」对话框,并呼叫用户自定义程序addImage(),以便将用户所选取的文件加入ImageList对象,同时更新ListBox控件显示的项目列表,程序代码如下所示:

 

' 加入图像文件案按钮 Click 事件处理程序。
Private Sub Button4_Click( _
  ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
  OpenFileDialog1.Multiselect = True
 
  If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
    If OpenFileDialog1.FileNames IsNot Nothing Then
      Dim i As Integer
      For i = 0 To OpenFileDialog1.FileNames.Length – 1
        addImage(OpenFileDialog1.FileNames(i))
      Next i
    Else
      addImage(OpenFileDialog1.FileName)
    End If
    
    ListBox1.SelectedIndex = 0
  End If
End Sub

刚刚我们提到,用户自定义程序addImage()是用来将用户选取的影像加入ImageList对象,并将文件名新增至ListBox控件,以下是程序代码内容:


Private Sub addImage(ByVal imageToLoad As String)
  If imageToLoad <> "" Then
    imageList1.Images.Add(Image.FromFile(imageToLoad))
    listBox1.BeginUpdate()
    listBox1.Items.Add(imageToLoad)
    listBox1.EndUpdate()
  End If
End Sub

 

当您按下「显示下一张图片」按钮,便会取得ListBox控件列表中目前所选取项目的索引,藉以计算出下一个项目的索引值,以便将索引值传递给ImageList对象,让PictureBox控件显示正确的图片:

 

' 显示下一张图片按钮 Click 事件处理程序。
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Button1.Click
  If ImageList1.Images.Empty <> True Then
    If ImageList1.Images.Count - 1 > currentImage Then
      currentImage += 1
    Else
      currentImage = 0
    End If
    
    ' PictureBox 控件中显示图片。
    PictureBox1.Image = ImageList1.Images(currentImage)
    
    Label3.Text = "目前显示的图片是:" + currentImage.ToString
    ListBox1.SelectedIndex = currentImage
    Label5.Text = "图片索引:" + ListBox1.Text
  End If
End Sub

 

ListBox控件的SelectedIndexChanged事件处理程序撰写下列程序代码,当用户选取不同的列表项目时,让PictureBox控件显示ImageList对象对应的图片:


Private Sub ListBox1_SelectedIndexChanged( _
  ByVal sender As System.Object, ByVal e As System.EventArgs) _
  Handles ListBox1.SelectedIndexChanged
  If ListBox1.SelectedIndex <> -1 Then
    currentImage = ListBox1.SelectedIndex
   
    ' PictureBox 控件中显示图片。
    PictureBox1.Image = ImageList1.Images(ListBox1.SelectedIndex)
   
    Label3.Text = "目前显示的图片是:" + currentImage.ToString
    Label5.Text = "图片索引:" + ListBox1.Text
  End If
End Sub

当您按下「移除图片」按钮,便会取得ListBox控件列表中目前所选取索引,根据索引与对应索引的项目来删除ImageList对象以及ListBox控件对应的列表项目,并改变Label控件显示的消息正文,程序代码如下所示:

 

' 移除图片按钮 Click 事件处理程序。
Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Button2.Click
  If ListBox1.SelectedIndex <> -1 Then
    ImageList1.Images.RemoveAt(ListBox1.SelectedIndex)
    ListBox1.Items.Remove(ListBox1.SelectedItem)
    PictureBox1.Image = Nothing
    Label3.Text = Nothing
    Label5.Text = Nothing
  End If
End Sub

当您按下「清除列表」按钮,便会清除ListBox控件所有的列表项目,并改变Label控件显示的消息正文:

 

' 清除列表按钮 Click 事件处理程序。
Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Button3.Click
  ImageList1.Images.Clear()
  ListBox1.Items.Clear()
  PictureBox1.Image = Nothing
  Label3.Text = Nothing
  Label5.Text = Nothing
End Sub

posted on 2007-03-09 10:54  章立民研究室  阅读(4375)  评论(3编辑  收藏  举报

导航