آیکون فولدر و سی دی رام

[vb_nima]

با سلام.
چطوری توی وی بی می تونم آیکون فولدر را پیدا کنم و توی یک picture box قرار بدم؟
و آیکون سی دی که داخل سی دی رام گذاشته میشه؟؟؟

[Bahram0110]

برای اینکار یک کد وجود داره که باید آیکون ها را از فایل Shell32.dll لود کنی من الان اون کد یادم نیست
یه برنامه واست می زارم شاید به دردت بخوره

http://www.pscode.com/upload_PSC/screenshots/PIC200165221825510.jpg

[romina2006]

نشان دادن آیکن فولدر :


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 Environ("windir") & "\system32\shell32.dll", 3, hIcon, ByVal 0&, 1
DrawIcon Picture1.hdc, 0, 0, hIcon
DestroyIcon hIcon
End Sub


برای نشان دادن آیکنهای دیگر کافیست به جای عدد 3 شماره آن آیکن را بنویسی

[mehran8]

mer 30 دوستان