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. |
![]() |
Autor: The Bozena |