كود لفتح الـ Dll هام
باستخدام كود بسيط للغاية مع دوال API الآتية: ExtractIcon , DrawIcon فقط واليكم الطريقة:
1-انشيء مشروع جديد واضف فيه HorizontalScrollBar و PictureBox
2- أضف CommandButton والصق الكود التالي :
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex 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 Const IconFile = "c:\windows\system\shell32.dll" Dim IconHandle As Long Private Sub Command1_Click() Picture1.AutoRedraw = True IconHandle = ExtractIcon(App.hInstance, IconFile, -1) HScroll1.Max = IconHandle Picture1.Cls End Sub Private Sub HScroll1_Change() Picture1.Cls IconHandle = ExtractIcon(App.hInstance, IconFile, HScroll1.Value) DrawIcon Picture1.hdc, 0, 0, IconHandle Picture1.Refresh End Sub
![29_09_05_02_32_59_1128029579_4_13_3[_].gif](http://www.arabteam2000.com/picload/pics/29_09_05_02_32_59_1128029579_4_13_3%5B_%5D.gif)
