iMBETA Instant Messenger

You can copy and paste the code below:

You need the following on your form

• PictureBox
• Listbox
• 2 Buttons
• Label
  

 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

FolderBrowserDialog1.ShowDialog()
Dim fold As New IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath)
Dim foldi As IO.FileInfo() = fold.GetFiles("*.jpg")
Dim foldg As IO.FileInfo
Label1.Text = FolderBrowserDialog1.SelectedPath
ListBox1.Items.Clear()
ForEach foldg In foldi
ListBox1.Items.Add(foldg)
Next
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
OpenFileDialog1.FileName = "Select image"
OpenFileDialog1.Filter = "Image Files(*.jpg; *.jpeg; *.gif; *.bmp)|*.jpg; *.jpeg; *.gif; *.bmp"
If (OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
PictureBox1.Image = System.Drawing.Image.FromFile(OpenFileDialog1.FileName)
PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
End If
End Sub

 

Private Sub ListBox1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseClick

Dim Pfolder
Dim Pname
Try
Pfolder = Label1.Text
Pname = ListBox1.SelectedItem.ToString
PictureBox1.Image = System.Drawing.Image.FromFile(Pfolder + "\" + Pname)
PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
Catch ex As Exception
MsgBox("You have to select an Image Folder first")
End Try
End Sub