تابع Load Icon و Draw Icon:
با توسط تابع Load Icon میشود یک آیکن رو در حافظه Load کرد و با تابع DrawIcon می شود یک Icon رو رسم کرد
Private Declare Function LoadIcon Lib "user32" Alias "LoadIconA" (ByVal hInstance As Long, ByVal lpIconName As Long) As Long
پارامتر hInstance : در این پارامتر هندل آیکن مورد نظر قرار می گیرد که اگر بخواهیم ایکن های استاندارد ویندوز را Load کنیم باید Null قرار دهیم.
lpIconName : در این پارامتر نام Icon مورد نظر قرار می گیرد
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
پارامتر hdc :در این پارامتر هندل گرافیکی یک شی قرار میگیرد.
پارامتر xوy:بجای این دو پارامتر نقاط شروع رسم کردن قرار می گیرد.
hIcon :بجای این پارامتر Icon بار گزاری شده مورد نظر قرار می گیرد.
مقادیر ثابت Icon های استاندارد ویندوز:
Private Const IDI_APPLICATION = 32512&
Private Const IDI_ASTERISK = 32516&
Private Const IDI_EXCLAMATION = 32515&
Private Const IDI_HAND = 32513&
Private Const IDI_ERROR = IDI_HAND
Private Const IDI_INFORMATION = IDI_ASTERISK
Private Const IDI_QUESTION = 32514&
Private Const IDI_WARNING = IDI_EXCLAMATION
Private Const IDI_WINLOGO = 32517
این هم مثال :
Private Const IDI_APPLICATION = 32512&
Private Const IDI_ASTERISK = 32516&
Private Const IDI_EXCLAMATION = 32515&
Private Const IDI_HAND = 32513&
Private Const IDI_ERROR = IDI_HAND
Private Const IDI_INFORMATION = IDI_ASTERISK
Private Const IDI_QUESTION = 32514&
Private Const IDI_WARNING = IDI_EXCLAMATION
Private Const IDI_WINLOGO = 32517
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 LoadIcon Lib "user32" Alias "LoadIconA" (ByVal hInstance As Long, ByVal lpIconName As Long) As Long
Dim my_icon As Long
Private Sub Form_Paint()
my_icon = LoadIcon(ByVal 0&, IDI_INFORMATION)
DrawIcon Me.hdc, 10, 10, my_icon
End Sub