Private Sub btnOpener_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpener.Click OpenFileDialog1.Filter = "Bitmap Image(*.BMP)|*.BMP|Jpeg Image(*.JPG)|*.JPG|GIF Image(*.GIF)|*.GIF|TIFF Image(*.TIFF)|*.TIFF|Portable Network Graphic(*.PNG)|*.PNG|Icon Image(*.ICO)|*.ICO|All Files(*.*)|*.*" OpenFileDialog1.Title = "Open an Image file" OpenFileDialog1.FileName = "" OpenFileDialog1.InitialDirectory = "" OpenFileDialog1.FilterIndex = 2 OpenFileDialog1.Multiselect = True If OpenFileDialog1.ShowDialog() = DialogResult.OK Then PictureBoxViewer.Image = Image.FromFile(OpenFileDialog1.FileName) End If For Each Me.strFilename In OpenFileDialog1.FileNames Dim ListItem As ListViewItem = New ListViewItem(Path.GetFileName(strFilename)) ListItem.SubItems.Add(strFilename) ListView1.Items.Add(ListItem) Next End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged Dim ListItem2 As ListViewItem = As new ListViewItem(strFilename) If ListItem2.Selected = True Then PictureBox1.Image = Image.FromFile(ListItem2.Index) End If End Sub

New Topic/Question
Reply




MultiQuote



|