Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim dlg As New FolderBrowserDialog If dlg.ShowDialog = DialogResult.OK Then TextBox1.Text = dlg.SelectedPath For Each item As String In Directory.GetFiles(TextBox1.Text, "*.jpg") Dim checkBox As New CheckBox Dim original As Image = Image.FromFile(item) Dim resized As Image = ResizeImage(original, New Size(78, 78)) original.Dispose() checkBox.Size = New Size(117, 109) checkBox.Text = (Path.GetFileName(item)) checkBox.Image = resized checkBox.BackColor = Color.Gray checkBox.ForeColor = Color.White checkBox.TextAlign = ContentAlignment.BottomCenter AddHandler checkBox.CheckedChanged, AddressOf myhandler2 FlowLayoutPanel1.Controls.Add(checkBox) Next End If End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)