talent1
جمعه 09 اسفند 1392, 14:01 عصر
میگم چجوری میشه ایکون یه فایل exe رو آورد تو PictureBox ؟
setroyd
جمعه 09 اسفند 1392, 22:59 عصر
Private Const DI_IMAGE = &H2
Private Const DI_MASK = &H1 'back color ra black mikonad
Private Const DI_NORMAL = DI_MASK Or DI_IMAGE
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 DrawIconEx Lib "user32" (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long
Private Sub Form_Paint()
Dim mIcon As Long
mIcon = ExtractIcon(Me.hWnd, "c:\WINDOWS\regedit.exe", 2)
DrawIconEx Me.hdc, 40, 40, mIcon, 0, 0, 0, 0, DI_NORMAL
DestroyIcon mIcon
End Sub
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.