Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Bitmap nach Icon konvertieren
Autor: Martin01
Datum: 17.03.03 03:08
'Modul: SaveAs Option Explicit Private propErrNumber As Long 'Nur lesen Public Property Get ErrNumber() As Long ErrNumber = propErrNumber End Property Public Function SaveAsIcon( _ ByVal FileName As String, _ ByVal Picture As StdPicture, _ ByVal ImageList As ImageList, _ Optional ByVal Height As Integer = 32, _ Optional ByVal Width As Integer = 32, _ Optional ByVal BackColor As OLE_COLOR = vbBlack, _ Optional ByVal UseMask As Boolean = False, _ Optional ByVal MaskColor As OLE_COLOR = vbBlack) As Boolean 'Aufruf: 'SaveAsIcon "t.ico", picBild, imlAbbildungsliste 'oder 'picBild.ScaleMode = vbPixels 'SaveAsIcon "Test.ico", picBild, imlAbbildungsliste, picBild.ScaleHeight, picBild.ScaleWidth, vbWhite, True, vbWhite ' 'Wenn UseMask = True, dann Maskcolor angeben ' 'Hinweis zum Vertrieb 'Das Abbildungsliste-Steuerelement (ImageList) ist Bestandteil einer Gruppe von 'ActiveX-Steuerelementen, die sich in der Datei MSCOMCTL.OCX befinden. On Error GoTo Fehler SaveAsIcon = False propErrNumber = 0 With ImageList .ListImages.Clear .ImageHeight = Height .ImageWidth = Width .BackColor = BackColor .MaskColor = MaskColor .UseMaskColor = UseMask End With ImageList.ListImages.Add 1, , Picture SavePicture ImageList.ListImages.Item(1).ExtractIcon, FileName SaveAsIcon = True Fertig: ImageList.ListImages.Clear Exit Function Fehler: propErrNumber = err.Number '... GoTo Fertig End Function

Bitmap nach Icon konvertieren	694	Tyson	15.03.03 10:45
Re: Bitmap nach Icon konvertieren	554	Dieter	15.03.03 10:47
Re: Bitmap nach Icon konvertieren	520	Tyson	15.03.03 10:50
Re: Bitmap nach Icon konvertieren	727	brave@heart	16.03.03 12:40
Re: Bitmap nach Icon konvertieren	57	Martin01	17.03.03 03:08

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