Skip to content

Latest commit

 

History

History
97 lines (65 loc) · 2.45 KB

BitmapExtensions.md

File metadata and controls

97 lines (65 loc) · 2.45 KB

BitmapExtensions

Verschieden Erweiterungsmethoden für die Bitmapklasse.


Zugeordentes Symbol ermitteln

Diese Funktion gibt das Symbol zurück welches einer Datei, eines Ordners oder
einer Dateierweiteung zugeordnet ist.

Dim ext as String = ".doc"
Dim file as String = "c:\file.ext"
Dim folder as String = "c:\folder"
Dim bm As Bitmap = Nothing

'Das Symbol einer Dateierweiterung ermitteln
PictureBox1.Image = bm.FromFilePathOrExt(ext)
PictureBox2.Image = bm.FromFilePathOrExt(ext, IconSizes.x32)

'Das Symbol einer Datei ermitteln
PictureBox1.Image = bm.FromFilePathOrExt(file)
PictureBox2.Image = bm.FromFilePathOrExt(fille, IconSizes.x32)

'Das Symbol eines Ordners ermitteln
PictureBox1.Image = bm.FromFilePathOrExt(folder)
PictureBox2.Image = bm.FromFilePathOrExt(folder, IconSizes.x32)

Alle enthaltenen Symbole ermitteln

Diese Funktion gibt alle in einer Datei enthaltenen Symbole zurück.

Dim file as String = "c:\file.ext"
Dim index as Integer = x
Dim bm As Bitmap = Nothing

PictureBox1.Image = bm.ExtractIcon(file, index)
PictureBox2.Image = bm.ExtractIcon(file, index, IconSizes.x32)

Die Anzahl der enthaltenen Symbole ermitteln

Diese Funktion ermittelt die nullbasierte Anzahl der in einer Datei enthaltenen Symbole.

Dim file as String = "c:\file.ext"
Dim bm As Bitmap = Nothing
Dim index as Integer = bm.GetFileIcons(file)

Bitmap in Base64-Code umwandeln und zurück

Diese beiden Funktionen wandel das Bitmap in Base64-Code und zurück
zum speichern in Textbasierten Dateien.

Dim bm as New Bitmap("c:\Bild.bmp")
Dim code as String = bm.ToBase64
PictureBox1.Image = bm.FromBase64(code)

Bitmap in Html-Code umwandeln

Diese Funktion gibt den Html-Code für das Bitmap zurück
zum einfügen in Html-Dateien ohne das enthaltene Bitmaps
extern verlinkt werden müssen.

Dim bm as New Bitmap("c:\Bild.bmp")
Dim code as String = bm.ToHtml
'oder
Dim code as String = bm.ToHtml(50,"Text")