Elementen toevoegen via code

[Robert65]

Hi, ik zit met een probleempje.
ik wil graag een picturebox toevoegen aan mijn form, zonder deze eerst in de designer
te plaatsen.
de bedoeling is eigenlijk dat ik via een listbox.count het aantal afbeelding bepaal en daar na met iedere count een picturebox aanmaak en vul met een image.
Ik heb dit nu in een listview maar kan daar verder weinig mee.

heeft iemand een idee?

bij voorbaat dank.

 

[The Mighty Atom]

Een picturebox maken door middel van code gaat zo:

Dim NewPicBox As New PictureBox
With NewPicBox
(properties hier, zoals locatie, grootte enzo)
End With

De rest van je vraag is me niet helemaal duidelijk. Je hebt een listbox met daarin nummers die aangeven hoevel afbeeldingen er zijn? Waar staan die afbeeldingen dan? Hoet zit het precies?

 

[Robert65]

Private Sub NieuwToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NieuwToolStripMenuItem.Click
ImgLAfbeeldingen.Images.Clear()
LvAfbeeldingen.Clear()
Try
With OFDAfbeeldingen

.Reset()
.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyPictures

.AddExtension = True
.CheckFileExists = True
.CheckPathExists = True

.DefaultExt = "jpg"
.DereferenceLinks = True
.Filter = _
"All Image Formats (*.bmp;*.jpg;*.jpeg;*.gif;*.tif;*.png)|*.bmp;*.jpg;*."

.Multiselect = True
.RestoreDirectory = True

.Title = "Selecteer een of meer afbeeldingen"

.ValidateNames = False

If .ShowDialog() = Windows.Forms.DialogResult.OK Then

LstFiles.DataSource = .FileNames


GrpBInitialiseren.Visible = True
PrBAfbeeldingen.Minimum = 1

PrBAfbeeldingen.Maximum = LstFiles.Items.Count
Dim AfB As Integer = LstFiles.Items.Count - LstFiles.Items.Count

PrBAfbeeldingen.Value = 1

PrBAfbeeldingen.Step = 1


Dim strName As String
Dim T As Integer = 0
For Each strName In .FileNames



ImgLAfbeeldingen.Images.Add(Image.FromFile(strName))

Cursor = Cursors.WaitCursor
PrBAfbeeldingen.PerformStep()
AfB = AfB + 1
Dim naam As String = LstFiles.Items.Item(T)
Dim naam2() As String = Split(naam, "\")
Dim arrays As Integer = naam2.Count - 1

LvAfbeeldingen.Items.Add(naam2(arrays), T).Checked = True
LblVoortgang.Text = "Afbeelding " & AfB & " van " & LstFiles.Items.Count
T = T + 1
Next
Cursor = Cursors.Default
GrpBInitialiseren.Visible = False

End If

End With
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text)
End Try


End Sub


ik gebruik dus een listbox, imagelist ,listview.
de listview wil ik vervangen door pictureboxen.

ik wil graag een programma maken om een foto album te maken zoals bv Jalbum.
waarbij de bestanden kunnen worden geupload naar een vaste server ( voor de familie).
ik heb al een applicatie gemaakt om de foto's te resizen.
ik ben net een paar weken bezig met vb.

 

[Robert65]

Het werkt.
dank je, weer een stukje verder.

 

[Robert65]

nog een vraagje.
kan ik die picturebox ook aan een groupbox toevoegen en daar een scrolbar in maken ?