Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Icon in dll
Autor: L.B.
Datum: 07.09.02 11:26
Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As Long Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long Private Function GetIconAnzahlInDll(Datei As String) As Integer On Error Resume Next GetIconAnzahlInDll = ExtractIconEx(Datei, -1, 0&, 0&, 0&) End Function Private Sub SetIconAusDll(DllDatei As String, IconA As Long, hdcA As Long) Dim S, y, u On Error Resume Next S = ExtractIcon(App.hInstance, DllDatei, IconA) If S = "0" Then Exit Sub Else y = DrawIcon(hdcA, 0, 0, S) End If End Sub 'Beispiel: Private Sub Command1_Click() SetIconAusDll "C:WindowsSystemShell32.dll", 4, Me.hdc End Sub

Icon in dll	78	Antonw	06.09.02 16:44
Re: Icon in dll	45	Richi	06.09.02 19:12
Re: Icon in dll	43	L.B.	07.09.02 11:26
Re: Icon in dll	38	Richi	08.09.02 16:31

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