Zjištění standardní ikony Windows

Postup:
Private Declare Function LoadStandardIcon Lib "user32" Alias _
    "LoadIconA" (ByVal hInstance As Long, ByVal lIconID As Long) As Long

Enum SystemIconConstants
    IDI_Application = 32512
    IDI_Hand = 32513
    IDI_Question = 32514
    IDI_Exclamation = 32515
    IDI_Asterisk = 32516
    IDI_Windows = 32517
End Enum

' Vrací standardní ikonu Windows - ikony používané např. v Message Boxu 

Function GetSystemIcon(ByVal ID As SystemIconConstants) As StdPicture

   'Voláním funkce LoadStandardIcon dostaname ukazatel a ten pak
   'převedeme na objekt StdPicture
   Set GetSystemIcon = IconToPicture(LoadStandardIcon(0, ID))

End Function


Tato funkce vyžaduje funkci IconToPicture.

Zpět

Autor: The Bozena