Cover suchen

  • VB.NET

Es gibt 18 Antworten in diesem Thema. Der letzte Beitrag () ist von Glossy Cherry.

    Cover suchen

    Hi,

    Ich bastele zur zeit an einem Programm, das mit meine Filliste mit Covern aus Amazon anzeigt. Soweit bin ich bisher (ich weiß es sind teilweise unnötige Sachen dabei ;) :(
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.Net
    3. Imports System.Text.RegularExpressions
    4. Public Class Form1
    5. Dim liste As New ImageList
    6. Private Function GetImage(ByVal look As String, ByVal numb As Integer) As Image
    7. Dim plist As New List(Of String) ' liste für links
    8. Dim weber As New WebClient 'downloader
    9. Dim sitetext As String 'quelltext
    10. sitetext = weber.DownloadString("http://www.amazon.de/s/ref=nb_sb_noss_1?__mk_de_DE=%C3%85M%C3%85Z%C3%95%C3%91&url=search-alias%3Daps&field-keywords=" + look) 'downloaden Seiteq.
    11. Dim matches As MatchCollection = Regex.Matches(sitetext, "<a href=""(.*?)""><img src=""(.*?)""") 'durchsuchen nach links
    12. For Each Match As Match In matches
    13. Dim test As String = sitetext.Substring(Match.Index, Match.Length)
    14. Dim ende As String = Regex.Replace(test, "<a href=""(.*?)""><img src=""(.*?)""", "$2")
    15. plist.Add(ende) 'Hinzufügen zur Liste
    16. Next
    17. If plist.Count <> 0 Then
    18. weber.DownloadFile(plist.Item(0).ToString, IO.Path.Combine(Application.StartupPath, numb.ToString + ".jpg")) 'runterladen
    19. Dim imager As Image 'zum zurückgeben
    20. imager = Image.FromFile(IO.Path.Combine(Application.StartupPath, numb.ToString + ".jpg"))
    21. Return imager
    22. End If
    23. End Function
    25. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    26. Dim counter As Integer = 0
    27. Dim lfd As New FolderBrowserDialog
    28. If lfd.ShowDialog = Windows.Forms.DialogResult.OK Then
    29. For Each file As String In IO.Directory.GetFiles(lfd.SelectedPath)
    30. liste.ImageSize = New Size(160, 160)
    31. If GetImage(IO.Path.GetFileNameWithoutExtension(file).Replace("_", " "), counter) IsNot Nothing Then
    32. liste.Images.Add(GetImage(IO.Path.GetFileNameWithoutExtension(file).Replace("_", " "), counter))
    33. ListView1.LargeImageList = liste
    34. ListView1.Items.Add(IO.Path.GetFileNameWithoutExtension(file).Replace("_", " "), 0)
    35. counter = counter + 1
    36. End If
    38. Next
    39. End If
    41. End Sub
    42. End Class


    Bekomme aber diese Fehlermeldung: Ausnahmefehler während einer WebClient-Anforderung.
    Spoiler anzeigen

    Brainfuck-Quellcode

    1. Informationen über das Aufrufen von JIT-Debuggen
    2. anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung.
    4. ************** Ausnahmetext **************
    5. System.Net.WebException: Ausnahmefehler während einer WebClient-Anforderung. ---> System.IO.IOException: Der Prozess kann nicht auf die Datei "C:\Users\Fabian\Documents\Visual Studio 2008\Projects\Movie\Movie\bin\Debug\0.jpg" zugreifen, da sie von einem anderen Prozess verwendet wird.
    6. bei System.IO.__Error.WinIOError(Int32 errorCode, String maybeFullPath)
    7. bei System.IO.FileStream.Init(String path, FileMode mode, FileAccess access, Int32 rights, Boolean useRights, FileShare share, Int32 bufferSize, FileOptions options, SECURITY_ATTRIBUTES secAttrs, String msgPath, Boolean bFromProxy)
    8. bei System.IO.FileStream..ctor(String path, FileMode mode, FileAccess access, FileShare share, Int32 bufferSize, FileOptions options, String msgPath, Boolean bFromProxy)
    9. bei System.IO.FileStream..ctor(String path, FileMode mode, FileAccess access)
    10. bei System.Net.WebClient.DownloadFile(Uri address, String fileName)
    11. --- Ende der internen Ausnahmestapelüberwachung ---
    12. bei System.Net.WebClient.DownloadFile(Uri address, String fileName)
    13. bei Movie.Form1.GetImage(String look, Int32 numb) in C:\Users\Fabian\Documents\Visual Studio 2008\Projects\Movie\Movie\Form1.vb:Zeile 18.
    14. bei Movie.Form1.Form1_Load(Object sender, EventArgs e) in C:\Users\Fabian\Documents\Visual Studio 2008\Projects\Movie\Movie\Form1.vb:Zeile 32.
    15. bei System.EventHandler.Invoke(Object sender, EventArgs e)
    16. bei System.Windows.Forms.Form.OnLoad(EventArgs e)
    17. bei System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
    18. bei System.Windows.Forms.Control.CreateControl()
    19. bei System.Windows.Forms.Control.WmShowWindow(Message& m)
    20. bei System.Windows.Forms.Control.WndProc(Message& m)
    21. bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
    22. bei System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
    25. ************** Geladene Assemblys **************
    26. mscorlib
    27. Assembly-Version: 2.0.0.0.
    28. Win32-Version: 2.0.50727.5466 (Win7SP1GDR.050727-5400).
    29. CodeBase: file:///C:/Windows/Microsoft.NET/Framework64/v2.0.50727/mscorlib.dll.
    30. ----------------------------------------
    31. mscorlib.resources
    32. Assembly-Version: 2.0.0.0.
    33. Win32-Version: 2.0.50727.5466 (Win7SP1GDR.050727-5400).
    34. CodeBase: file:///C:/Windows/Microsoft.NET/Framework64/v2.0.50727/mscorlib.dll.
    35. ----------------------------------------
    36. Movie
    37. Assembly-Version: 1.0.0.0.
    38. Win32-Version: 1.0.0.0.
    39. CodeBase: file:///C:/Users/Fabian/Documents/Visual%20Studio%202008/Projects/Movie/Movie/bin/Debug/Movie.exe.
    40. ----------------------------------------
    41. Microsoft.VisualBasic
    42. Assembly-Version: 8.0.0.0.
    43. Win32-Version: 8.0.50727.5420 (Win7SP1.050727-5400).
    44. CodeBase: file:///C:/windows/assembly/GAC_MSIL/Microsoft.VisualBasic/8.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll.
    45. ----------------------------------------
    46. System
    47. Assembly-Version: 2.0.0.0.
    48. Win32-Version: 2.0.50727.5467 (Win7SP1GDR.050727-5400).
    49. CodeBase: file:///C:/windows/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll.
    50. ----------------------------------------
    51. System.Windows.Forms
    52. Assembly-Version: 2.0.0.0.
    53. Win32-Version: 2.0.50727.5468 (Win7SP1GDR.050727-5400).
    54. CodeBase: file:///C:/windows/assembly/GAC_MSIL/System.Windows.Forms/2.0.0.0__b77a5c561934e089/System.Windows.Forms.dll.
    55. ----------------------------------------
    56. System.Drawing
    57. Assembly-Version: 2.0.0.0.
    58. Win32-Version: 2.0.50727.5467 (Win7SP1GDR.050727-5400).
    59. CodeBase: file:///C:/windows/assembly/GAC_MSIL/System.Drawing/2.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll.
    60. ----------------------------------------
    61. System.Runtime.Remoting
    62. Assembly-Version: 2.0.0.0.
    63. Win32-Version: 2.0.50727.5420 (Win7SP1.050727-5400).
    64. CodeBase: file:///C:/windows/assembly/GAC_MSIL/System.Runtime.Remoting/2.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll.
    65. ----------------------------------------
    66. System.Xml
    67. Assembly-Version: 2.0.0.0.
    68. Win32-Version: 2.0.50727.5420 (Win7SP1.050727-5400).
    69. CodeBase: file:///C:/windows/assembly/GAC_MSIL/System.Xml/2.0.0.0__b77a5c561934e089/System.Xml.dll.
    70. ----------------------------------------
    71. System.Configuration
    72. Assembly-Version: 2.0.0.0.
    73. Win32-Version: 2.0.50727.5420 (Win7SP1.050727-5400).
    74. CodeBase: file:///C:/windows/assembly/GAC_MSIL/System.Configuration/2.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll.
    75. ----------------------------------------
    76. System.resources
    77. Assembly-Version: 2.0.0.0.
    78. Win32-Version: 2.0.50727.5420 (Win7SP1.050727-5400).
    79. CodeBase: file:///C:/windows/assembly/GAC_MSIL/System.resources/2.0.0.0_de_b77a5c561934e089/System.resources.dll.
    80. ----------------------------------------
    81. System.Windows.Forms.resources
    82. Assembly-Version: 2.0.0.0.
    83. Win32-Version: 2.0.50727.5420 (Win7SP1.050727-5400).
    84. CodeBase: file:///C:/windows/assembly/GAC_MSIL/System.Windows.Forms.resources/2.0.0.0_de_b77a5c561934e089/System.Windows.Forms.resources.dll.
    85. ----------------------------------------
    87. ************** JIT-Debuggen **************
    88. Um das JIT-Debuggen (Just-In-Time) zu aktivieren, muss in der
    89. Konfigurationsdatei der Anwendung oder des Computers
    90. (machine.config) der jitDebugging-Wert im Abschnitt system.windows.forms festgelegt werden.
    91. Die Anwendung muss mit aktiviertem Debuggen kompiliert werden.
    93. Zum Beispiel:
    95. <configuration>
    96. <system.windows.forms jitDebugging="true" />
    97. </configuration>
    99. Wenn das JIT-Debuggen aktiviert ist, werden alle nicht behandelten
    100. Ausnahmen an den JIT-Debugger gesendet, der auf dem
    101. Computer registriert ist, und nicht in diesem Dialogfeld behandelt.

    Mit einzelnen Titeln und ner Picturebox funktioniert es wunderbar.


    Hat jemand den Grund dafür parat :) ?

    8-) faxe1008 8-)

    faxe1008 schrieb:

    Der Prozess kann nicht auf die Datei "C:\Users\Fabian\Documents\Visual Studio 2008\Projects\Movie\Movie\bin\Debug\0.jpg" zugreifen, da sie von einem anderen Prozess verwendet wird.
    bei System.IO.__Error.WinIOError(Int32 errorCode, String maybeFullPath)
    Lesen ist von Vorteil.
    Filestreams immer schließen. Auch dein eigener Prozess ist ein "anderer Prozess". Wurde die Datei schoneinmal von dir geöffnet aber nicht geschlossen so hast du keine Rechte diese nochmals zu öffnen.


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Hatte mal sowas ähnliches gebraucht, hier mal mein alter Ansatz, welcher dann auch mit nem stream arbeitet (wenn ich den TE richtig verstanden habe wollte er nur ne listview füllen)

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Text.RegularExpressions
    2. Imports System.Windows.Forms.ListView
    3. Imports System.Net
    5. Public Class Form1
    6. Dim imglist As New ImageList With {.ImageSize = New Size(100, 100), .ColorDepth = ColorDepth.Depth32Bit}
    7. Public Function fill_cover_list(ByVal keyword As String, ByVal owner As ListView) As ListViewItemCollection
    8. Dim list As New ListViewItemCollection(owner)
    9. Dim w As New Net.WebClient With {.Proxy = Nothing}
    10. Dim sourcecode As String = w.DownloadString(String.Concat("http://www.amazon.de/s/ref=nb_sb_noss_1?__mk_de_DE=%C3%85M%C3%85Z%C3%95%C3%91&url=search-alias%3Daps&field-keywords=", keyword))
    12. Dim covers As MatchCollection = Regex.Matches(sourcecode, "src=""(?<img>.*?)"" class=""productImage""")
    13. For Each cover As Match In covers
    14. Dim cover_link As String = cover.Groups("img").Value
    15. Dim item_name As String = CStr(New Random().Next(9, 99999))
    17. Dim webRequest As HttpWebRequest = DirectCast(HttpWebRequest.Create(cover_link), HttpWebRequest)
    18. webRequest.AllowWriteStreamBuffering = True
    19. webRequest.Timeout = 10000
    21. Dim webResponse As System.Net.WebResponse = webRequest.GetResponse()
    22. Dim stream As System.IO.Stream = webResponse.GetResponseStream()
    24. imglist.Images.Add(Image.FromStream(stream))
    27. list.Add(item_name, imglist.Images.Count - 1)
    28. Randomize()
    29. Next
    31. Return List
    32. End Function
    34. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    35. ListView1.LargeImageList = imglist
    36. Try
    37. ListView1.Items.AddRange(fill_cover_list("Nirvana", ListView1))
    38. Catch ex As ArgumentException
    39. MsgBox(ex.Message)
    40. End Try
    41. End Sub
    42. End Class

    Moderatorin: "Apropo ritzen.." Shin Chan: "hoho sie hat Po ritze gesagt"
    "saying to buy a mac because your anti-virus expired is like saying you're out of condoms so you're just going to go fuck dudes"
    "Wie auch in anderen Threads kann ich leider nichts bieten außer vielleicht spaß beim Skypen aber mehr leider auch nicht." - Sind kinder pornos nicht verboten?

    Wurde mein Post #5 ganz ignoriert?, dieser zeigt eine schönere Lösung als mit Dateien rumzuspielen, wenn denn nur ein art "coverart" entstehen sollte und die dateien ned weiterverarbeitet werden würden, z.b für weitere verwendungszwecke. (cover musicplayer z.b)
    Moderatorin: "Apropo ritzen.." Shin Chan: "hoho sie hat Po ritze gesagt"
    "saying to buy a mac because your anti-virus expired is like saying you're out of condoms so you're just going to go fuck dudes"
    "Wie auch in anderen Threads kann ich leider nichts bieten außer vielleicht spaß beim Skypen aber mehr leider auch nicht." - Sind kinder pornos nicht verboten?

    Trotzdem solltest du von den Dateien auf einen Stream umsteigen ;)
    Moderatorin: "Apropo ritzen.." Shin Chan: "hoho sie hat Po ritze gesagt"
    "saying to buy a mac because your anti-virus expired is like saying you're out of condoms so you're just going to go fuck dudes"
    "Wie auch in anderen Threads kann ich leider nichts bieten außer vielleicht spaß beim Skypen aber mehr leider auch nicht." - Sind kinder pornos nicht verboten?

    Immer gern, wäre vielleicht für die nächsten suchenden hilfreich wenn du die "modifizierung" posten würdest (wenn diese irgendetwas z.b behebt, wenn es nur eine wunschesänderung war, wärs natürlich sinnlos)
    Moderatorin: "Apropo ritzen.." Shin Chan: "hoho sie hat Po ritze gesagt"
    "saying to buy a mac because your anti-virus expired is like saying you're out of condoms so you're just going to go fuck dudes"
    "Wie auch in anderen Threads kann ich leider nichts bieten außer vielleicht spaß beim Skypen aber mehr leider auch nicht." - Sind kinder pornos nicht verboten?

    Bitte hier :) (ich weiß die Modifikation ist nicht unbedingt die sauberste (wird noch überarbeitet :D)):
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Text.RegularExpressions
    2. Imports System.Windows.Forms.ListView
    3. Imports System.Net
    5. Public Class Form1
    6. Dim imglist As New ImageList With {.ImageSize = New Size(100, 100), .ColorDepth = ColorDepth.Depth32Bit}
    7. Public Function fill_cover_list(ByVal owner As ListView) As ListViewItemCollection
    8. Dim list As New ListViewItemCollection(owner)
    9. Dim w As New Net.WebClient With {.Proxy = Nothing}
    10. Dim lfd As New FolderBrowserDialog
    11. lfd.ShowDialog()
    12. For Each file As String In IO.Directory.GetFiles(lfd.SelectedPath)
    13. Dim sourcecode As String = w.DownloadString(String.Concat("http://www.amazon.de/s/ref=nb_sb_noss_1?__mk_de_DE=%C3%85M%C3%85Z%C3%95%C3%91&url=search-alias%3Daps&field-keywords=", IO.Path.GetFileNameWithoutExtension(file).Replace("_", " ").Replace(".HQ", "").Replace(".HD", "")))
    15. Dim covers As MatchCollection = Regex.Matches(sourcecode, "src=""(?<img>.*?)"" class=""productImage""")
    16. Dim first As Boolean = False
    17. For Each cover As Match In covers
    18. If first = False Then
    19. Dim cover_link As String = cover.Groups("img").Value
    20. Dim item_name As String = CStr(New Random().Next(9, 99999))
    22. Dim webRequest As HttpWebRequest = DirectCast(HttpWebRequest.Create(cover_link), HttpWebRequest)
    23. webRequest.AllowWriteStreamBuffering = True
    24. webRequest.Timeout = 10000
    26. Dim webResponse As System.Net.WebResponse = webRequest.GetResponse()
    27. Dim stream As System.IO.Stream = webResponse.GetResponseStream()
    29. imglist.Images.Add(Image.FromStream(stream))
    32. list.Add(IO.Path.GetFileNameWithoutExtension(file).Replace("_", " ").Replace(".HQ", "").Replace(".HD", ""), imglist.Images.Count - 1)
    33. Randomize()
    34. first = True
    35. End If
    37. Next
    38. first = False
    39. Next
    40. Return list
    41. End Function
    43. Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    44. ListView1.LargeImageList = imglist
    45. Try
    46. ListView1.Items.AddRange(fill_cover_list(ListView1))
    47. Catch ex As ArgumentException
    48. ' MsgBox(ex.Message)
    49. End Try
    50. End Sub
    51. End Class


    BTW: Mit der ex.message drin hat es immer einen Fehler angezeigt obwohl die Suche erfolgreich war ?(

    8-) faxe1008 8-)

    Hatte damals diese fürs Debugging gebraucht, diese kam glaube ich weil ein item 2x ausgelesen wurde. Aber mal ne andere frage: was wolltest du mit first erreichen?
    Moderatorin: "Apropo ritzen.." Shin Chan: "hoho sie hat Po ritze gesagt"
    "saying to buy a mac because your anti-virus expired is like saying you're out of condoms so you're just going to go fuck dudes"
    "Wie auch in anderen Threads kann ich leider nichts bieten außer vielleicht spaß beim Skypen aber mehr leider auch nicht." - Sind kinder pornos nicht verboten?

    Hättest du dies doch mal am Anfang geschrieben. ;)

    VB.NET-Quellcode

    1. Imports System.Text.RegularExpressions
    2. Imports System.Net
    4. Public Class Form1
    5. Dim imglist As New ImageList With {.ImageSize = New Size(100, 100), .ColorDepth = ColorDepth.Depth32Bit}
    6. Public Function get_first_cover(ByVal keyword As String) As Image
    7. Dim w As New Net.WebClient With {.Proxy = Nothing}
    8. Dim sourcecode As String = w.DownloadString(String.Concat("http://www.amazon.de/s/ref=nb_sb_noss_1?__mk_de_DE=%C3%85M%C3%85Z%C3%95%C3%91&url=search-alias%3Daps&field-keywords=", keyword))
    10. Dim cover_link As String = Regex.Match(sourcecode, "src=""(?<img>.*?)"" class=""productImage""").Groups("img").Value
    11. Dim webRequest As HttpWebRequest = DirectCast(HttpWebRequest.Create(cover_link), HttpWebRequest)
    12. webRequest.AllowWriteStreamBuffering = True
    13. webRequest.Timeout = 10000
    15. Dim webResponse As System.Net.WebResponse = webRequest.GetResponse()
    16. Dim stream As System.IO.Stream = webResponse.GetResponseStream()
    18. Return Image.FromStream(stream)
    19. End Function
    21. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    22. ListView1.LargeImageList = imglist
    23. imglist.Images.Add(get_first_cover("Nirvana"))
    24. ListView1.Items.Add(vbNullString, imglist.Images.Count - 1)
    25. End Sub
    26. End Class

    Viel besser als ein Boolean reinzpacken. Wofür dann aber eine Listview wenn man eh nur ein Bild mag? ;)
    Moderatorin: "Apropo ritzen.." Shin Chan: "hoho sie hat Po ritze gesagt"
    "saying to buy a mac because your anti-virus expired is like saying you're out of condoms so you're just going to go fuck dudes"
    "Wie auch in anderen Threads kann ich leider nichts bieten außer vielleicht spaß beim Skypen aber mehr leider auch nicht." - Sind kinder pornos nicht verboten?

    Ne so war das nicht gemeint. Ich habe einen ordner mit rund 250 Filmen (jaaa alle legal (OTR)). ich will dass das Programm durch den ordner geht die Dateien auflistet und mir aus Amazon das erste Cover runterlädt und anzeigt :). So gesehen macht das mit der Listviewcollection schon Sinn :)

    8-) faxe1008 8-)

    Ja dann ist immernoch ein Boolean reinpacken sinnlos, ich schreibs mal kurz um.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Text.RegularExpressions
    2. Imports System.Net
    3. Imports System.IO
    5. Public Class Form1
    6. Dim imglist As New ImageList With {.ImageSize = New Size(100, 100), .ColorDepth = ColorDepth.Depth32Bit}
    7. Public Function get_file_replaced(ByVal file As String) As String
    8. Dim replace_arr As String() = {"_", ".HQ", ".HD"}
    9. Dim filename As String = Path.GetFileNameWithoutExtension(file)
    11. For Each replace_chr As String In replace_arr
    12. filename = filename.Replace(replace_chr, vbNullString)
    13. Next
    15. Return filename
    16. End Function
    18. Public Function get_first_cover(ByVal keyword As String) As Image
    19. Dim w As New Net.WebClient With {.Proxy = Nothing}
    20. Dim sourcecode As String = w.DownloadString(String.Concat("http://www.amazon.de/s/ref=nb_sb_noss_1?__mk_de_DE=%C3%85M%C3%85Z%C3%95%C3%91&url=search-alias%3Daps&field-keywords=", keyword))
    22. If Not Regex.IsMatch(sourcecode, "src=""(?<img>.*?)"" class=""productImage""") Then Return Nothing
    24. Dim cover_link As String = Regex.Match(sourcecode, "src=""(?<img>.*?)"" class=""productImage""").Groups("img").Value
    25. Dim webRequest As HttpWebRequest = DirectCast(HttpWebRequest.Create(cover_link), HttpWebRequest)
    27. webRequest.AllowWriteStreamBuffering = True
    28. webRequest.Timeout = 2000
    30. Dim webResponse As System.Net.WebResponse = webRequest.GetResponse()
    31. Dim stream As System.IO.Stream = webResponse.GetResponseStream()
    33. Return Image.FromStream(stream)
    34. End Function
    36. Public Sub fill_list(ByVal owner As ListView)
    37. Dim t As New System.Threading.Thread(Sub()
    38. Dim op As New FolderBrowserDialog
    39. If op.ShowDialog = Windows.Forms.DialogResult.OK Then
    40. For Each File As String In Directory.GetFiles(op.SelectedPath)
    41. Dim file_name As String = get_file_replaced(File)
    42. Dim cover As Image = get_first_cover(file_name)
    44. If cover IsNot Nothing Then
    45. Me.Invoke(Sub()
    46. imglist.Images.Add(cover)
    47. owner.Items.Add(file_name, imglist.Images.Count - 1)
    48. End Sub)
    49. End If
    50. Next
    51. End If
    52. End Sub)
    53. t.SetApartmentState(Threading.ApartmentState.STA)
    54. t.Start()
    55. End Sub
    57. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    58. ListView1.LargeImageList = imglist
    59. fill_list(ListView1)
    60. End Sub
    61. End Class


    Ich bin mir ned sicher wie gut die Lösung ist, wäre sehr dankbar wenn andere Mitglieder diesen berrichtigen könnten wenn dieser an Ecken noch ziemlich unsauber ist. ;)
    Moderatorin: "Apropo ritzen.." Shin Chan: "hoho sie hat Po ritze gesagt"
    "saying to buy a mac because your anti-virus expired is like saying you're out of condoms so you're just going to go fuck dudes"
    "Wie auch in anderen Threads kann ich leider nichts bieten außer vielleicht spaß beim Skypen aber mehr leider auch nicht." - Sind kinder pornos nicht verboten?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Glossy Cherry“ ()

Facebook