2 vraagjes VB.Net

[gotenks]

Ik ben een klein programma'tje aan het programmeren in Visual Basic 2005 Express Edition met de programmeertaal VB.Net. Dit wordt een programma'tje zodat gebruikers iets met hun afbeeldingen kunnen doen. Hieronder het principe van het progje:

1. De gebruiker kan zelf een foto kiezen via een FolderBrowser.
2. Het programma zet de resolutie van de foto automatisch op 800x600.
3. De gebruiker kan zelf de plaats bepalen waar hij/zij de foto wil opslaan via een FolderBrowser.
4. De gebruiker krijgt een InputBox met de vraag om een naam te geven aan de foto.

Mijn 2 vraagjes gaan over stap 1 en 2. Hoe 3 en 4 in hun werking zitten weet ik al ongeveer hoe.

Ik had me dus gewaagd aan stap 1 en het was me redelijk gelukt, maar doet niet zoals het moet. Hij opent wel een FolderBrowser, maar in plaats van zelf een afbeelding te kiezen in een map naar keuze, kun je naar een map toegaan en die slechts selecteren (je ziet dus niet wat in de map zit). Als je dan op 'OK' drukt, opent hij zelf de eerste foto wat hij tegenkomt in die map.

Nu is mijn vraag over stap 1 als iemand van jullie de code even kan/wil bekijken en me kan zeggen waar ik precies fout zit. Hieronder de code:

Private Sub GetListOfFiles(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBegin.Click
        Dim f As New ArrayList
        Dim iCurrentPosition As Integer = 0
        Dim Browser As New FolderBrowserDialog
        If Browser.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim folder As String = Browser.SelectedPath
            Dim pattern As String = "*.jpg"
            f.Clear()
            For Each file As String In My.Computer.FileSystem.GetFiles(folder, FileIO.SearchOption.SearchTopLevelOnly, pattern)
                f.Add(file)
            Next
            If f.Count > 0 Then
                iCurrentPosition = 0
                Me.PictureBox1.Load(f(iCurrentPosition))
            End If
        End If
End Sub

Dan nog iets in verband met stap 2. Ik heb al wat zitten rond snuffelen op het web en ik heb al de hele help-functie van VB Express door genomen, maar ik zou totaal niet weten hoe dit moet Iemand die mij hiermee op weg kan helpen?

Ik wil dit programma'tje echt tot een goed einde brengen, daarom dat ik jullie hulp kom raadplegen

[Acid]

Waarom werk je niet met een OpenFileDialog en een SaveFileDialog ... ?

Dan kan je vast van start gaan met de volgende code die ik als voorbeeld heb geschreven ...

Tools aanwezig op Form 1 :

Picturebox = Pb1
Afbeelding open = Button : ImageOpen
Opslaan = Button : ImageSave

Dialogen aanwezig op Form 1 :

OpenFileDialog1
SaveFileDialog1

PublicClass Form1
PrivateSub ImageOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImageOpen.Click
OpenFileDialog1.Filter = "Jpeg Image|*.jpg|Bitmap Image|*.bmp|Gif Image|*.gif"
OpenFileDialog1.FileName = "Selecteer een afbeelding"
OpenFileDialog1.ShowDialog()
Pb1.Image = Image.FromFile(OpenFileDialog1.FileName)
EndSub
PrivateSub ImageSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImageSave.Click
Dim saveFileDialog1 AsNew SaveFileDialog()
saveFileDialog1.Filter = "Jpeg Image|*.jpg|Bitmap Image|*.bmp|Gif Image|*.gif"
saveFileDialog1.ShowDialog()
 
If saveFileDialog1.FileName <> "" Then
Dim FileStream As System.IO.FileStream = CType _
(saveFileDialog1.OpenFile(), System.IO.FileStream)
 
SelectCase saveFileDialog1.FilterIndex
Case 1
Me.Pb1.Image.Save(FileStream, _
System.Drawing.Imaging.ImageFormat.Jpeg)
Case 2
Me.Pb1.Image.Save(FileStream, _
System.Drawing.Imaging.ImageFormat.Bmp)
Case 3
Me.Pb1.Image.Save(FileStream, _
System.Drawing.Imaging.ImageFormat.Gif)
EndSelect
FileStream.Close()
EndIf
 
EndSub
EndClass

[gotenks]

Het openen en opslaan is me ondertussen bijna gelukt, nu moet ik nog alleen weten hoe te resizen. Dus de bedoeling is om een geopende afbeelding op een resolutie van 800 x 600 te plaatsen in VB.Net. Iemand die weet hoe dit moet?

[fhita]

Als je een PictureBox gebruikt, kan je met het pijltje ook kiezen hoe het moet worden weergegeven. Hier kun je dan invullen 'zoom'.
Het plaatje wordt dan aangepast aan de grootte van de PictureBox.

Succes!

Groetjes,
Robert

PS:
Je moet een 'PictureBox' hebben ingevoegt, en als je er dan op klikt, zie je een heeeeel klein pijltje naar rechts verschijnen, bovenaan de picturebox... Klik daarop en het menu zal verschijnen.

[gotenks]

Als je een PictureBox gebruikt, kan je met het pijltje ook kiezen hoe het moet worden weergegeven. Hier kun je dan invullen 'zoom'.
Het plaatje wordt dan aangepast aan de grootte van de PictureBox.

Succes!

Groetjes,
Robert

PS:
Je moet een 'PictureBox' hebben ingevoegt, en als je er dan op klikt, zie je een heeeeel klein pijltje naar rechts verschijnen, bovenaan de picturebox... Klik daarop en het menu zal verschijnen.

Ook als je het programma uitvoert? Want dit is namelijk de bedoeling Je opent via een knop "Openen" een afbeelding naar keuze, waarna je vervolgens met de knop "Resize" de afbeelding op 800x600 resolutie zet.
Ik denk niet dat dat gaat zo dan of wel?

[Acid]

Het openen en opslaan is me ondertussen bijna gelukt, nu moet ik nog alleen weten hoe te resizen. Dus de bedoeling is om een geopende afbeelding op een resolutie van 800 x 600 te plaatsen in VB.Net. Iemand die weet hoe dit moet?

Zo'n dingen zal je moeten zoeken op MSDN en vb helper of zo,
snippets of dergelijke ... stukjes code die bestaan om je sneller te helpen programmeren ...
---------------------------------
Voorbeeld Resizen :

http://vb-helper.com/howto_net_image_resize.html

[gotenks]

Kan echt niemand mij hier mee helpen? Ik heb al zitten proberen en proberen, maar het wil me maar niet lukken voor die code om te resizen Voor degenen die willen proberen, hieronder vinden jullie de code i.v.m. het openen en opslaan van een afbeelding naar keuze.

Private Sub btnBegin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBegin.Click
        Dim openFileDialog1 As New OpenFileDialog()
        openFileDialog1.Filter = "jpg bestanden|*.jpg|jpeg bestanden|*.jpeg|bitmap|*.bmp|gif bestanden|*.gif"
        openFileDialog1.Title = "Open een foto naar keuze."
        Dim strNaam As String
        Dim pb1 As New PictureBox
        Dim saveFileDialog1 As New SaveFileDialog()
        saveFileDialog1.Filter = "jpg bestanden|*.jpg"
        saveFileDialog1.Title = "Kies waar je de afbeelding wil opslaan en geef het een naam."

        If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            openFileDialog1.OpenFile()
        End If

        strNaam = openFileDialog1.FileName
        Debug.Print(strNaam)
        If Not strNaam = String.Empty Then
            pb1.Image = Bitmap.FromFile(strNaam)
        End If

        MessageBox.Show("Wilt u de afbeelding opslaan?", "Opslaan?", MessageBoxButtons.YesNo)
        If Windows.Forms.DialogResult.Yes Then
            If saveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
                Dim extension As String = saveFileDialog1.FileName
                extension = extension.Substring(extension.LastIndexOf(".") + 1).ToLower
                Select Case extension
                    Case "jpg"
                        pb1.Image.Save(saveFileDialog1.FileName)
                End Select
            End If
        End If
    End Sub

[Acid]

Helpen , geen probleem ...

Maar vraag je nu gewoon om de hele code voor jouw te schrijven ?

[gotenks]

Helpen , geen probleem ...

Maar vraag je nu gewoon om de hele code voor jouw te schrijven ?

Nee, gewoon hulp i.v.m. de code voor het resizen Ik heb die code gepost zodat het misschien makkelijker is voor jullie. Met hulp bedoel ik gewoon mij zo wat op weg helpen zoals wat ik moet gebruiken, hoe enzo

[fhita]

Ook als je het programma uitvoert? Want dit is namelijk de bedoeling Je opent via een knop "Openen" een afbeelding naar keuze, waarna je vervolgens met de knop "Resize" de afbeelding op 800x600 resolutie zet.
Ik denk niet dat dat gaat zo dan of wel?

Nee. Je ziet dan alleen maar in het venstertje zelf.
Maar het wordt niet echt op de echte afbeelding opgeslagen.

Groet,
Robert