Vykreslenφ systΘmovΘ ikony

Postup:
Private Declare Function LoadIconByID Lib "user32" Alias "LoadIconA" (ByVal _
    hInstance As Long, ByVal lpIconName 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

Enum SystemIconConstants
    IDI_APPLICATION = 32512
    IDI_HAND = 32513
    IDI_QUESTION = 32514
    IDI_EXCLAMATION = 32515
    IDI_ASTERISK = 32516
    IDI_WINDOWS = 32517
End Enum

Sub DrawSystemIcon(ByVal icon As SystemIconConstants, _
    ByVal hDC As Long, ByVal x As Long, ByVal y As Long)

    Dim hIcon As Long
    ' ZjiÜt∞nφ ukazatele na ikonu
    hIcon = LoadIconByID(0, icon)
    ' Vykreslenφ ikony na specifickΘ za°φzenφ
    DrawIcon hDC, x, y, hIcon

End Sub

Zp∞t

Autor: The Bozena