Andre Van Herz
Мастер
(1668)
14 лет назад
Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 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 Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long
Private Const IMAGE_ICON = 1
Private Const LR_DEFAULTSIZE = &H40
Private Const LR_LOADFROMFILE = &H10
Private Sub Command1_Click()
Dim hIconF As Long
hIconF = LoadImage(0, "C:\ProgRun2\Logo_256.ico", IMAGE_ICON, LR_DEFAULTSIZE, LR_DEFAULTSIZE, LR_LOADFROMFILE)
Call DrawIcon(Me.hdc, 100, 100, hIconF)
Call DestroyIcon(hIconF)
End Sub