Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB2005: Imagelist manuell laden
Autor: mkolb
Datum: 16.01.06 23:28
Hallo, ich möchte per Code meine ImageList auffüllen. Dafür verwende ich folgenden Code. Allerdings kommt nach "grMonat.ico" die Meldung: "Nicht genügend Arbeitsspeicher". Was mache ich da falsch ? Das sind einfach Icons. Kann nichts besonderes daran erkennen. Gehe ich überhaupt richtig dabei vor ? Wie kann ich die Icons eigentlich ins Programm einbinden, so für das SETUP (veröffentlichen) ? mfg Martin Sub ImageList_auffuellen() Dim LmyImage As System.Drawing.Image Dim LStr_Pfad As String LStr_Pfad = GStr_Boot$ 'System.Environment.GetFolderPath(System.Environment.SpecialFolder.Personal) Try LmyImage = Image.FromFile(LStr_Pfad & "\" & "grBanking.ico") ImageList1.Images.Add(LmyImage) LmyImage = Image.FromFile(LStr_Pfad & "\" & "grKontenplan.ico") ImageList1.Images.Add(LmyImage) LmyImage = Image.FromFile(LStr_Pfad & "\" & "grSaldenliste.ico") ImageList1.Images.Add(LmyImage) LmyImage = Image.FromFile(LStr_Pfad & "\" & "grVermoegen.ico") ImageList1.Images.Add(LmyImage) LmyImage = Image.FromFile(LStr_Pfad & "\" & "grJournal.ico") ImageList1.Images.Add(LmyImage) LmyImage = Image.FromFile(LStr_Pfad & "\" & "grGrafik.ico") ImageList1.Images.Add(LmyImage) LmyImage = Image.FromFile(LStr_Pfad & "\" & "grMonat.ico") ImageList1.Images.Add(LmyImage) LmyImage = Image.FromFile(LStr_Pfad & "\" & "grAFA.ico") ImageList1.Images.Add(LmyImage) LmyImage = Image.FromFile(LStr_Pfad & "\" & "grBudget.ico") ImageList1.Images.Add(LmyImage) LmyImage = Image.FromFile(LStr_Pfad & "\" & "grKurse.ico") ImageList1.Images.Add(LmyImage) LmyImage = Image.FromFile(LStr_Pfad & "\" & "grDepot.ico") ImageList1.Images.Add(LmyImage) LmyImage = Image.FromFile(LStr_Pfad & "\" & "grKursFavoriten.ico") ImageList1.Images.Add(LmyImage) LmyImage = Image.FromFile(LStr_Pfad & "\" & "grHilfe.ico") ImageList1.Images.Add(LmyImage) LmyImage = Image.FromFile(LStr_Pfad & "\" & "grPfeilL.ico") ImageList1.Images.Add(LmyImage) LmyImage = Image.FromFile(LStr_Pfad & "\" & "grPfeilR.ico") ImageList1.Images.Add(LmyImage) LmyImage = Image.FromFile(LStr_Pfad & "\" & "grIntraday.ico") ImageList1.Images.Add(LmyImage) Catch ex As System.Security.SecurityException ' Benutzer über Fehler beim Speichern informieren. MsgBox("Die Berechtigung für das Lesen der Icons fehlt.") Catch ex As System.Exception ' Hier auf andere Ausnahmen reagieren. MessageBox.Show(ex.Message) End Try End Sub

VB2005: Imagelist manuell laden

915

mkolb

16.01.06 23:28

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen