ايران ويج

pswin نوشته است:برخی از آیکون های جدید که به صورت group icon هستن این مشکل رو دارن . یعنی ویژوال بیسیک نمی تونه اونها رو باز کنه برای باز کردن این آیکون ها با ید از توابع API استفاده کنی. پیشنهاد می‌کنم به یه مرجه تابع API مراجعه کنی

Pedram_HookEx نوشته است:اینم یه ویرایشگر ریسورس

Hadi_VB نوشته است:اصلا ناراحتی به دل راه نده اینم کدش:

Private Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons 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 Sub Form_Paint()
  Dim hIcon As Long
  
  Picture1.AutoRedraw = True
  Me.ScaleMode = vbPixels
  ExtractIconEx "shell32.dll", 50, hIcon, ByVal 0&, 1
  DrawIcon Me.hdc, 32, 40, hIcon
  
  ExtractIconEx "d:\windows\system32\shell32.dll", 75, hIcon, ByVal 0&, 1
  DrawIcon Picture1.hdc, 0, 0, hIcon
  DestroyIcon hIcon
End Sub

-
یادت نره یه پیکچر باکس رو فرم داشته باشی و آدرس هم در صورت لزوم تغییر بده