Hallo,
ich wollte ein kleines Programm schreiben, welches das Datum nachträglich auf Bilder schreibt,
da wir das in der Kamera ausgestellt hatten.
nun habe ich folgenden Code:
Soweit so gut, nur bei kommt folgender fehler :
wäre nett, wenn mit einer helfen könnte
ich wollte ein kleines Programm schreiben, welches das Datum nachträglich auf Bilder schreibt,
da wir das in der Kamera ausgestellt hatten.
nun habe ich folgenden Code:
VB.NET-Quellcode
- Imports System.Drawing.Imaging
- Imports System.Drawing
- Public Class Form1
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- FolderBrowserDialog1.ShowDialog()
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Timer1.Interval = 500
- Timer1.Start()
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- TextBox1.Text = FolderBrowserDialog1.SelectedPath
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- For Each File In FileIO.FileSystem.GetFiles(FolderBrowserDialog1.SelectedPath)
- ListBox1.Items.Add(FileIO.FileSystem.GetName(File) + " - " + FileIO.FileSystem.GetFileInfo(File).CreationTime)
- Next
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- ProgressBar1.Maximum = ListBox1.Items.Count
- ProgressBar1.Minimum = 0
- Dim neu As String
- Dim bildF As ImageFormat
- Dim font1 = New Font("Arial", 8)
- Dim pos As New System.Drawing.Point(0, 0)
- bildF = ImageFormat.Bmp
- neu = (FolderBrowserDialog1.SelectedPath + "\Bilder mit Datum\")
- For Each file In FileIO.FileSystem.GetFiles(FolderBrowserDialog1.SelectedPath)
- TextOnImage(FolderBrowserDialog1.SelectedPath + "\" + FileIO.FileSystem.GetName(file), neu, "TEST", bildF, font1, Color.Red, pos)
- ProgressBar1.Value = ProgressBar1.Value + 1
- Next
- End Sub
- Private Sub TextOnImage(ByVal OldImage As String, ByVal NewImage As String, ByVal Text As String, ByVal Format As ImageFormat, ByVal Font As
- Font, ByVal Color As Color, ByVal Position As Point)
- Dim TmpSize As System.Drawing.Size
- Dim Image As Image = System.Drawing.Image.FromFile(OldImage)
- Dim Brush As New SolidBrush(Color)
- 'Größe auslesen
- TmpSize.Height = Image.Height
- TmpSize.Width = Image.Width
- 'Neue Bitmap erstellen
- Dim NewBitmap As New System.Drawing.Bitmap(Image, TmpSize)
- 'Neue Grafik erstellen anhand der Bitmap
- Dim Graphic As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(NewBitmap)
- 'String auf Bild zeichnen
- Graphic.DrawString(Text, Font, Brush, Position)
- 'Neues Bild speichern
- NewBitmap.Save(NewImage, Format)
- 'Ressourcen freigeben
- Graphic.Dispose()
- NewBitmap.Dispose()
- End Sub
- End Class
Soweit so gut, nur bei kommt folgender fehler :
wäre nett, wenn mit einer helfen könnte
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Dendem“ ()