Keskustelu: Ohjelmointikysymykset: VB.NET: [VB2008] ja kuvien pienentäminen

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim a As String
    Dim Hakemisto As String = "C:\tmp\"
    Dim PikkukuvaHakemisto As String = "C:\tmp\pikkukuvat\"

    a = Dir(Hakemisto + "*.jpg")

    Do Until a = ""
        If Microsoft.VisualBasic.Left(a, 2) <> "t_" Then

            Dim fileExists As Boolean
            fileExists = My.Computer.FileSystem.FileExists(PikkukuvaHakemisto + "t_" + a)
            If fileExists = False Then
                PictureBox1.Image = Image.FromFile(Hakemisto + a)
                ResizeKuva(400, 300)
                PictureBox2.Image.Save(PikkukuvaHakemisto + "t_" + a, System.Drawing.Imaging.ImageFormat.Jpeg)
                PictureBox2.Refresh()
            End If
        End If
        a = Dir()
    Loop
End Sub


Private Sub ResizeKuva(ByVal _leveys As Integer, ByVal _korkeus As Integer)
    ' Resize the image.
    Dim sourceBitmap As New Bitmap(PictureBox1.Image)
    Dim destBitmap As New Bitmap(_leveys, _korkeus)
    Dim destGraphic As Graphics = Graphics.FromImage(destBitmap)
    destGraphic.DrawImage(sourceBitmap, 0, 0, destBitmap.Width + 1, destBitmap.Height + 1)
    PictureBox2.Image = destBitmap
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
   Dim Hakemisto As New System.IO.DirectoryInfo("C:\temp\")
   Dim filut() As System.IO.FileInfo = Hakemisto.GetFiles("*.jpg")
   Dim PikkukuvaHakemisto As String = "C:\tmp\pikkukuvat\"
   If filut.length > 0 Then
      For i As Integer = 0 To filut.GetUpperBound(0)
         If filut(i).ToString.IndexOf("t_") <> 0 Then
            If Dir(PikkukuvaHakemisto + _
            "t_" + filut(i).ToString) = "" Then
               PictureBox1.Image = _
               Image.FromFile(Hakemisto + filut(i).ToString)
               ResizeKuva(400, 300)
               PictureBox2.Refresh()
               Try
                  PictureBox2.Image.Save(PikkukuvaHakemisto + _
                  "t_" + filut(i).ToString, _
                  System.Drawing.Imaging.ImageFormat.Jpeg)
                  Do While Dir(PikkukuvaHakemisto + _
                  "t_" + filut(i).ToString) = ""
                     Application.DoEvents
                  Loop
               Catch ex As Exception
               End Try
            End If
         End If
      Next
   End If
   Hakemisto = Nothing: filut = Nothing
   PikkukuvaHakemisto = Nothing
End Sub