Bilder in ImageList mit richtigem Seitenverhältnis darstellen?

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Lümmel.

    Bilder in ImageList mit richtigem Seitenverhältnis darstellen?

    Guten Abend! Und danke für dieses schöne Forum. Ich schreibe jetzt seit einer Woche VB-Code und habe unendlich viele Tipps hier gefunden. Nun zu meinem Problem:

    Ich habe ein Programm geschrieben, dass mir Bilder in einer ListView zusammen mit einigen Details der Bilder auflistet. Die Details (Stichwörter, Bewertung) können im Programm geändert werden.

    Die Bilder werden als SmallImageList während der Laufzeit eingebunden. Hierbei habe ich das folgende Problem:

    Da es Fotos sind, haben die ein anderes Seitenverhältnis als 1:1. Gibt es eine Möglichkeit, das Seitenverhältnis der einzelnen Bilder (kann unterschiedlich sein) in der Liste beizubehalten? Bisher werden alle Bilder quadratisch angezeigt.

    Quellcode

    1. Private Sub Fill_ListView()
    3. Dim lstv As New ListViewItem
    4. Dim Filename As String = System.IO.Path.GetFileName(pfad)
    5. Dim ShellIcon As New ShellThumbnail.ShellThumbnail
    6. Dim ShellBitmap As Bitmap = ShellIcon.GetThumbnail(pfad)
    7. ImageList1.Images.Add(picnr, ShellBitmap)
    8. ListView1.SmallImageList = ImageList1
    9. Exiv2VB.StartInfo.FileName = "exiv2.exe"
    10. Exiv2VB.StartInfo.Arguments = " -Pt -g Xmp.dc.subject -g Iptc.Application2.Keywords " + AZ + pfad + AZ
    11. Exiv2VB.StartInfo.RedirectStandardOutput = True
    12. Exiv2VB.StartInfo.UseShellExecute = False
    13. Exiv2VB.StartInfo.CreateNoWindow = True
    14. Exiv2VB.Start()
    15. Dim ParseResultKey As String = Exiv2VB.StandardOutput.ReadToEnd
    16. Exiv2VB.StartInfo.Arguments = " -Pt -g Xmp.xmp.Rating " + AZ + pfad + AZ
    17. Exiv2VB.StartInfo.RedirectStandardOutput = True
    18. Exiv2VB.StartInfo.UseShellExecute = False
    19. Exiv2VB.StartInfo.CreateNoWindow = True
    20. Exiv2VB.Start()
    21. Dim ParseResultStar As String = Exiv2VB.StandardOutput.ReadToEnd
    22. Dim sPath As String = IO.Path.GetDirectoryName(pfad)
    23. Dim SPD As String
    24. If My.Computer.FileSystem.FileExists(sPath + "\SILKYPIX_DS\" + Filename + ".4.spd") Then
    25. SPD = "entwickelt"
    26. Else : SPD = "nicht entwickelt"
    27. End If
    28. Dim item As New ListViewItem
    29. item.Text = Filename
    30. item.Tag = pfad
    31. item.ImageKey = picnr
    32. With ListView1.Items.Add(item)
    33. .SubItems.Add(ParseResultKey)
    34. .SubItems.Add(ParseResultStar)
    35. .SubItems.Add(SPD)
    36. End With
    37. picnr = picnr + 1
    38. args &= arg & " "
    39. ExifToolVB.Close()
    40. End Sub

    Deine Lösung basiert , - soweit ich es nachvollziehen kann, auf der command-Line Lösung von Exiv2 (C++). Der Code ist zwar eine bemerkenswerte Leistung für einen Newcomer, allerdings ist das Einbinden per CommandLine-Extraction eher suboptimal. Vielleicht solltest Du eher eine echte .NET Library bevorzugen die man direct ohne Umwege ansprechen kann. Lt. Google wäre vielleicht die ExifLib eine Lösung.

    Um auf Deine Frage zurückzukommen: hinter jedem Image steht eine Bitmap: das Zoomen von Bitmaps geht am Einfachsten über GDI, siehe hier: Zoom an image in VB.NET

    Entweder Du definierst ein Rectangle und passt Dein Image dort rein oder Du definierst einen Zoom-Factor und wendest den im Beispiel vorgegeben Code an.

    Gruss Kangaroo

    P.S: achja - und Willkommen im Forum ;)

    Danke für die Blumen :) . Ja, der Code ruft Exiv2 auf, aber nur um die Stichwörter und das Rating aus den Bilder zu holen. Die von dir genannte DLL kann das auch, aber nur für Bitmaps, nicht für DNG, deswegen brauche ich Exiv2. Es gibt davon auch eine Exiv2NETdll, aber die ist von 2008 und wird nicht mehr gewartet. Und .NET selbst kann offenbar zwar Tags aus Jpeg und Tiff lesen, aber eben nicht aus DNG.

    Vielen herzlichen Dank für den Tipp mit dem Skalieren, da hatte ich noch gar nicht dran gedacht. Das Skalieren selbst funktioniert mit der Funktion jetzt auch, aber im ListView ist das Bild immer noch quadratisch ;(. Das muss irgendwo an dem ListView liegen.

    Quellcode

    1. Public Shared Function Image_Resize(ByVal img As Image) As Image Dim scale As Double If img.Width >= img.Height Then scale = img.Width / 120 Else scale = img.Height / 120 End If Dim New_Width As Integer = img.Width / scale Dim New_Height As Integer = img.Height / scale Dim New_Image As New System.Drawing.Bitmap(img, New_Width, New_Height) Dim converted As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(New_Image) converted.InterpolationMode = InterpolationMode.HighQualityBicubic Return New_Image
    2. End Function


    Quellcode

    1. Private Sub Fill_ListView() Dim lstv As New ListViewItem Dim Filename As String = System.IO.Path.GetFileName(pfad) Dim iSource As ImageSource = ThumbnailGenerator.GenerateThumbnail(pfad) Dim original As Image = ThumbnailGenerator.BitmapSourceToBitmap(iSource) Dim resized As Image = Image_Resize(original) MsgBox(resized.Width) MsgBox(resized.Height)
    2. ImageList1.Images.Add(picnr, resized) ListView1.LargeImageList = ImageList1 Exiv2VB.StartInfo.FileName = "exiv2.exe" Exiv2VB.StartInfo.Arguments = " -Pt -g Xmp.dc.subject -g Iptc.Application2.Keywords " + AZ + pfad + AZ Exiv2VB.StartInfo.RedirectStandardOutput = True Exiv2VB.StartInfo.UseShellExecute = False Exiv2VB.StartInfo.CreateNoWindow = True Exiv2VB.Start() Dim ParseResultKey As String = Exiv2VB.StandardOutput.ReadToEnd Exiv2VB.StartInfo.Arguments = " -Pt -g Xmp.xmp.Rating " + AZ + pfad + AZ Exiv2VB.StartInfo.RedirectStandardOutput = True Exiv2VB.StartInfo.UseShellExecute = False Exiv2VB.StartInfo.CreateNoWindow = True Exiv2VB.Start() Dim ParseResultStar As String = Exiv2VB.StandardOutput.ReadToEnd Dim sPath As String = IO.Path.GetDirectoryName(pfad) Dim SPD As String If My.Computer.FileSystem.FileExists(sPath + "\SILKYPIX_DS\" + Filename + ".4.spd") Then SPD = "entwickelt" Else : SPD = "nicht entwickelt" End If Dim item As New ListViewItem item.Text = Filename item.Tag = pfad item.ImageKey = picnr With ListView1.Items.Add(item) .SubItems.Add(ParseResultKey) .SubItems.Add(ParseResultStar) .SubItems.Add(SPD) End With picnr = picnr + 1 args &= arg & " " ExifToolVB.Close() End Sub

    Das mit dem Rectangle habe ich leider nicht verstanden. Hast du dazu ein paar mehr Informationen? Ist das als Rahmen gedacht?

    Vielen Dank für die Hilfe!

    Lümmel

    Ich hab jetzt noch mal schnell ins Forum geschaut: ich befürchte ich weiss immer noch nicht genau wo Deine Probleme liegen, aber werde wohl auch wg. akuten Zeit- (und Schlaf)mangel nicht dazu kommen mir das näher anzusehen (selbst wenn Du es schaffen solltest Deinen Code untereinander statt nebeneinander zu stellen - Chrome ?).

    Daher nur aus Helikoptersicht: wenn ich es richtig verstehe möchtest Du Dir Deine Imagesvon der Festplatte samt Exif Daten in ein ListView Control laden.

    Die ImageList hat eine Property ImageSize mit der Du die DefaultGrösse aller Images einstellen kann. Leider hat sie auch die dumme Angewohnheit Bilder beim Laden auf diese ImageSize zu 'stretchen'.

    Daher wirst Du die Bilder vor dem Laden in die Imagelist skalieren müssen, könnte sinngemäss so aussehen (Schreibfehler bitte korrigieren)

    VB.NET-Quellcode

    1. ' imagelist anlegen
    2. Dim il As ImageList = meineImageList
    3. il.Images.Clear()
    4. il.ImageSize = New Size(128, 64)
    5. ' bilder laden
    6. Dim img As Image = Image.FromFile("xxx.jpg")
    7. Dim bmp As New Bitmap(il.ImageSize.Width, il.ImageSize.Height)
    8. ' Bitmap zeichnen und skalieren
    9. Using g As Graphics = Graphics.FromImage(bmp)
    10. ' selber skalieren, positionieren und zeichnen
    11. 'g.DrawImage(img, x, y, Rect)
    12. End Using
    13. ' add
    14. il.Images.Add(bmp)

    -> DrawImage Methode

    Nochmal Danke, der Hinweis auf Rectangel hat es gebracht.

    Das Problem ist, dass in einer ListView im Modus "View" die dort per ImageList eingebrachten Bilder auf Quadrat skaliert werden. Aber wenn ich die BIlder erst im reichtigen Seitenverhältnis auf ein weißes Quadrat zeichne, dann bleibt das Seitenverhältnis erhalten.

    Hiermit funktioniert es:

    Public Shared Function Image_Resize(ByVal img As Image) As Image
    Dim WhiteSpace As System.Drawing.Bitmap
    Dim myGraphics As Graphics
    Dim myDestination As Rectangle
    WhiteSpace = New System.Drawing.Bitmap(120, 120)
    myGraphics = Graphics.FromImage(WhiteSpace)
    Dim scale As Double
    If img.Width >= img.Height Then
    scale = img.Width / 120
    Else
    scale = img.Height / 120
    End If
    Dim New_Width As Integer = img.Width / scale
    Dim New_Height As Integer = img.Height / scale
    myDestination = New Rectangle(x:=0, y:=0, Width:=New_Width, Height:=New_Height)
    myGraphics.DrawImage(image:=img, rect:=myDestination)
    Image_Resize = WhiteSpace
    End Function

    (Ja, Chrome :-/) Beim ersten Post ging es noch...


    Ein frohes Fest wünscht Lümmel

    Lümmel schrieb:

    Hiermit funktioniert es:

    Aha, das 1.Mal dass ich Deinen Code lesen kann ;)

    'Funktionieren' ist immer der 1.Schritt, danach kommen die Verbesserungen, ein paar Vorschläge die Du möglicherweise schon implementiert hast.
    - trenne Daten von der Präsentation: lade Deine Bilddaten in eine Klasse , die aus den Bilddaten + Image besteht (Erben von der Image Klasse ?). Man operiert nie direkt am lebenden Object sprich auf den sperrigen Items in der Listview

    - bei grösseren Bildmengen wird Deine Anzeige ziemlich heftig ruckeln während Du die BildDaten lädst (gerade über CommandLine). Lagere das Laden in einen Thread aus und schmeiss ein Event wenn wieder ein Image fertig ist. Deine GUI fügrt dann die fertige Klasse in Dein Listview ein. Das Skalieren kann ja schon im Thread oder der Klasse erfolgen.

    - ich kann immer noch nicht glauben dass es keine Library für die Extraction des RohDaten - Formats gibt

    Gruss und ebenfalls Schönes Fest

    Kangaroo schrieb:

    'Funktionieren' ist immer der 1.Schritt, danach kommen die Verbesserungen, ein paar Vorschläge die Du möglicherweise schon implementiert hast.
    - trenne Daten von der Präsentation: lade Deine Bilddaten in eine Klasse , die aus den Bilddaten + Image besteht (Erben von der Image Klasse ?). Man operiert nie direkt am lebenden Object sprich auf den sperrigen Items in der Listview

    - bei grösseren Bildmengen wird Deine Anzeige ziemlich heftig ruckeln während Du die BildDaten lädst (gerade über CommandLine). Lagere das Laden in einen Thread aus und schmeiss ein Event wenn wieder ein Image fertig ist. Deine GUI fügrt dann die fertige Klasse in Dein Listview ein. Das Skalieren kann ja schon im Thread oder der Klasse erfolgen.

    - ich kann immer noch nicht glauben dass es keine Library für die Extraction des RohDaten - Formats gibt







    Hmm, hört sich gut an. Ich habe allerdings nur sehr bedingt eine Ahnung von dem, was du vorschlägst :) . Vielleicht zur Erläuterung: Meine letzten Programmiererfahrungen fanden auf Computern der Typen "ZX-81" und "ZX Spectrum" statt :S . Aber falls du oder jemand anderes mir Tipps geben könnten, wo ich mehr zu deinen Punkten oben herausfinden kann, immer her damit. Ich bin lernfähig. Hier mal der ganze Code des Programms:

    Quellcode

    1. Imports VistaToolbelt.Shell
    2. Imports System.Windows.Media.Imaging
    3. Imports System.Text
    4. Imports System.Drawing
    5. Imports System.Drawing.Drawing2D
    6. Imports System.Windows.MediaImports System.IO
    7. 　
    8. Public Class Form1
    9. Const AZ As String = Chr(34)
    10. Dim stich As String
    11. Dim rating As String
    12. Dim args As String
    13. Dim picnr As Integer
    14. Dim ExifToolVB As New Process
    15. Dim Exiv2VB As New Process
    16. Dim arg As String
    17. Dim pfad As String
    19. 'Open Files with Drag&Drop
    20. Private Sub ExifComplete()
    21. ListView1.Items.Clear()
    22. picnr = 0
    23. For Each arg As String In My.Application.CommandLineArgs
    24. pfad = argCall Fill_ListView()
    25. Next
    26. End Sub
    28. 'Main Form
    29. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    30. ExifToolVB.StartInfo.FileName = "exiftool.exe"
    31. ExifToolVB.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
    32. ExifComplete()
    33. End Sub
    35. 'Typing Keywords
    36. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keyWord.TextChanged
    37. stich = keyWord.Text
    38. End Sub
    40. 'Add the Keywords
    41. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, addButton.Click, Button1.Click
    42. Dim Pfade As String = ""
    43. Dim Pfad As String = ""For a = 0 To ListView1.SelectedItems.Count - 1
    44. Pfad = ListView1.SelectedItems(a).Tag
    45. Pfade &= AZ + Pfad + AZ & " "
    46. NextExifToolVB.StartInfo.Arguments = " -sep " + AZ + "," + AZ + " -L -keywords+=" + AZ + stich + AZ + " -overwrite_original " + Pfade
    47. ExifToolVB.Start()
    48. ExifToolVB.WaitForExit()
    49. ExifToolVB.Close()Call Update_Keywords()
    50. End Sub
    52. 'Delete Keywords
    53. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    54. Dim Pfade As String = ""
    55. Dim Pfad As String = ""
    56. For a = 0 To ListView1.SelectedItems.Count - 1
    57. Pfad = ListView1.SelectedItems(a).Tag
    58. Pfade &= AZ + Pfad + AZ & " "
    59. Next
    60. ExifToolVB.StartInfo.Arguments = " -sep " + AZ + "," + AZ + " -L -xmp:subject-=" + AZ + stich + AZ + " -L -keywords-=" + AZ + stich + AZ + " -overwrite_original " + Pfade
    61. ExifToolVB.Start()
    62. ExifToolVB.WaitForExit()
    63. ExifToolVB.Close()
    64. Call Update_Keywords()
    65. End Sub
    67. 'End Application
    68. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    69. End
    70. End Sub
    72. 'Open Files in Programm
    73. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    74. Dim fd As OpenFileDialog = New OpenFileDialog()
    75. Dim strFileName As String
    76. fd.Title = "Datei(en) öffnen"
    77. fd.InitialDirectory = Environment.SpecialFolder.MyPictures
    78. fd.Filter = "Bilddateien (*.jpg, *.tif, *.dng, *.psd)|*.dng;*.jpg;*.tif;*.psd"
    79. fd.FilterIndex = 1
    80. fd.Multiselect = True
    81. fd.RestoreDirectory = True
    82. Dim picnr As Integer = 0
    83. If fd.ShowDialog() = DialogResult.OK Then
    84. ListView1.Items.Clear()
    85. ImageList1.Images.Clear()
    86. For Each arg As String In fd.FileNames
    87. pfad = arg
    88. Call Fill_ListView()
    89. Next
    90. strFileName = fd.FileName
    91. End If
    92. End Sub
    94. 'Radio Buttons for Rating
    95. Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
    96. rating = 0
    97. Call Rating_Update()
    98. End Sub
    99. Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
    100. rating = 1
    101. Call Rating_Update()
    102. End Sub
    103. Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
    104. rating = 2
    105. Call Rating_Update()
    106. End Sub
    107. Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
    108. rating = 3
    109. Call Rating_Update()
    110. End Sub
    111. Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
    112. rating = 4
    113. Call Rating_Update()
    114. End Sub
    115. Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
    116. rating = 5
    117. Call Rating_Update()
    118. End Sub
    120. 'Rating Pictures with Stars
    121. Private Sub Rating_Update()
    122. Dim Pfade As String = ""
    123. Dim Pfad As String = ""
    124. 'Set Rating for Selected Items
    125. For a = 0 To ListView1.SelectedItems.Count - 1
    126. Pfad = ListView1.SelectedItems(a).Tag
    127. Pfade &= AZ + Pfad + AZ & " "
    128. Next
    129. ExifToolVB.StartInfo.Arguments = " -rating=" + rating + " -overwrite_original " + Pfade
    130. ExifToolVB.Start()
    131. ExifToolVB.WaitForExit()
    132. ExifToolVB.Close()
    133. 'Change ListView for Selected Items
    134. Pfad = ""
    135. Exiv2VB.StartInfo.RedirectStandardOutput = True
    136. Exiv2VB.StartInfo.UseShellExecute = False
    137. Exiv2VB.StartInfo.CreateNoWindow = True
    138. For a = 0 To ListView1.SelectedItems.Count - 1
    139. Pfad = ListView1.SelectedItems(a).Tag
    140. Dim ParseResultKey As String = Exiv2VB.StandardOutput.ReadToEnd
    141. Exiv2VB.StartInfo.Arguments = " -Pt -g Xmp.xmp.Rating " + AZ + Pfad + AZ
    142. Exiv2VB.Start()
    143. Dim ParseResultStar As String = Exiv2VB.StandardOutput.ReadToEnd
    144. ListView1.SelectedItems(a).SubItems(2).Text = ParseResultStar
    145. Next
    146. Me.Refresh()
    147. End Sub
    149. 'Resize Preview
    150. Public Shared Function Image_Resize(ByVal img As Image) As Image
    151. Dim WhiteSpace As System.Drawing.Bitmap
    152. Dim myGraphics As Graphics
    153. Dim myDestination As Rectangle
    154. WhiteSpace = New System.Drawing.Bitmap(120, 120)
    155. myGraphics = Graphics.FromImage(WhiteSpace)
    156. Dim scale As Double
    157. If img.Width >= img.Height Then
    158. scale = img.Width / 120
    159. Else
    160. scale = img.Height / 120
    161. End If
    162. Dim New_Width As Integer = img.Width / scale
    163. Dim New_Height As Integer = img.Height / scale
    164. myDestination = New Rectangle(x:=0, y:=0, Width:=New_Width, Height:=New_Height)
    165. myGraphics.DrawImage(image:=img, rect:=myDestination)
    166. Image_Resize = WhiteSpace
    167. End Function
    169. 'Fill the List with Pictures and Infos
    170. Private Sub Fill_ListView()
    171. Dim lstv As New ListViewItem
    172. Dim Filename As String = System.IO.Path.GetFileName(pfad)
    173. Dim iSource As ImageSource = ThumbnailGenerator.GenerateThumbnail(pfad)
    174. Dim original As Image = ThumbnailGenerator.BitmapSourceToBitmap(iSource)
    175. Dim resized As Image = Image_Resize(original)
    176. ImageList1.Images.Add(picnr, resized)
    177. ListView1.LargeImageList = ImageList1
    178. Exiv2VB.StartInfo.FileName = "exiv2.exe"
    179. Exiv2VB.StartInfo.Arguments = " -Pt -g Xmp.dc.subject -g Iptc.Application2.Keywords " + AZ + pfad + AZ
    180. Exiv2VB.StartInfo.RedirectStandardOutput = True
    181. Exiv2VB.StartInfo.UseShellExecute = False
    182. Exiv2VB.StartInfo.CreateNoWindow = True
    183. Exiv2VB.Start()
    184. Dim ParseResultKey As String = Exiv2VB.StandardOutput.ReadToEnd
    185. Exiv2VB.StartInfo.Arguments = " -Pt -g Xmp.xmp.Rating " + AZ + pfad + AZ
    186. Exiv2VB.StartInfo.RedirectStandardOutput = True
    187. Exiv2VB.StartInfo.UseShellExecute = False
    188. Exiv2VB.StartInfo.CreateNoWindow = True
    189. Exiv2VB.Start()
    190. Dim ParseResultStar As String = Exiv2VB.StandardOutput.ReadToEnd
    191. Dim sPath As String = IO.Path.GetDirectoryName(pfad)
    192. Dim SPD As String
    193. If My.Computer.FileSystem.FileExists(sPath + "\SILKYPIX_DS\" + Filename + ".4.spd") Then
    194. SPD = "entwickelt"
    195. Else : SPD = "nicht entwickelt"
    196. End If
    197. Dim item As New ListViewItem
    198. item.Text = Filename
    199. item.Tag = pfad
    200. item.ImageKey = picnr
    201. With ListView1.Items.Add(item)
    202. .SubItems.Add(ParseResultKey)
    203. .SubItems.Add(ParseResultStar)
    204. .SubItems.Add(SPD)
    205. End With
    206. picnr = picnr + 1
    207. args &= arg & " "
    208. ExifToolVB.Close()
    209. End Sub
    211. 'Change ListView for Updated Keywords
    212. Private Sub Update_Keywords()
    213. pfad = ""
    214. Exiv2VB.StartInfo.RedirectStandardOutput = True
    215. Exiv2VB.StartInfo.UseShellExecute = False
    216. Exiv2VB.StartInfo.CreateNoWindow = True
    217. For a = 0 To ListView1.SelectedItems.Count - 1
    218. pfad = ListView1.SelectedItems(a).Tag
    219. Exiv2VB.StartInfo.Arguments = " -Pt -g Xmp.dc.subject -g Iptc.Application2.Keywords " + AZ + pfad + AZ
    220. Exiv2VB.Start()
    221. Dim ParseResultKey As String = Exiv2VB.StandardOutput.ReadToEnd
    222. ListView1.SelectedItems(a).SubItems(1).Text = ParseResultKey
    223. Next
    224. Me.Refresh()
    225. End Sub
    226. End Class



    Und es gibt m.W. wirklich keine Möglichkeit, auf DNG-Dateien mit Windowsmitteln zu zugreifen. Es sei denn, ich könnte auf die Routinen von FastPictureViewer Codec Pack zugreifen. Habe aber keinen blassen Schimmer, wie das gehen soll.
    Jedenfalls wäre ich für Optimierungshilfen dankbar. Im Moment lädt das Programm erstmal alle Bilder, bevor es sie anzeigt. Bei vielen Bildern dauert das eine Weile. Das zu beheben (ich denke, das meintest du mit "in einen Thread auslagern") wäre eine feine Sache.
    Was mit auch noch nicht schmeckt, ist, dass beim Refresh der Anzeige auch die Markierung der Bilder verloren geht, für weitere Aktionen die Bilder also neu ausgewählt werden müssen. Vielleicht gibt es da auch noch eine Lösung?
    Schönen Gruß,

    Lümmel

Facebook
Telefonspende