conoscete vb? allora come si fa.....entra

[drago]

qualcuno saprebbe dirmi come caz...si fa a sapere dove nasconde l'win le icone del msgbox cioe vbCritical,vbexclamation .... e come faccio a tirarle fuori?
grazie :mavieni:

[darkblOOd]

mi sembra si trovino tutte in una libreria in Win/Sys

[PUNKABBESTIA]

ma ti servono delle icone? o è solo una tua voglia perversa di andarle a scovare dentro l'win....

[Nico]

Quando installi VB ti chiede se vuoi salvare anche la cartella "graphics". Continene un sacco di icone e .avi, tra cui quelle che cerchi te....

[drago]

grazie ma a me servono quelle icone per avere sempre aggiornato il programma, se win cambia le icone ke faccio? schifo!!! devo avere quelle icone

[xegallo]

sono dentro la shell32.dll
con l'api estracticon e drawicon poui estrarle ma non riesco ancora a salvarle come file icona solo come immagine

[drago]

sono riuscito a prenderle dalla user32. ho lasciato un altro msg, avete voglia di darli un ochiata grazie

[Nico]

Se hai quelle di win2000 e/o XP me le potresti mandare per favore?

Grazie

Nico

[xegallo]

Originariamente inviato da Nico
Se hai quelle di win2000 e/o XP me le potresti mandare per favore?

Grazie

Nico

http://www.student.kuleuven.ac.be/~m...s/tip046.shtml

[drago]

Private Const Question = 2
Private Const Critical = 3
Private Const Information = 4
Private Const Exclamation = 1

Dim iconn%
Dim iconfilename$
Dim windir$
Dim hModule&
Dim iconmod$
Dim Iconh&
Dim X&
Private Declare Function GetSystemDirectoryA Lib "kernel32" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetWindowsDirectoryA Lib "kernel32" (ByVal lpBuffer As String, ByVal nSize 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 ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long

iconmod$ = "c:\windows\system32\user32.dll" ' se avete un altro path cambiate questo

'information
Picture1.Cls
DrawIcon .Picture1.hdc, 0, 0, ExtractIcon(1, iconmod$, Information)
Picture1.Refresh
savepicture picture1.image , "c:\1.bmp"
'exclamation
Picture2.Cls
DrawIcon .Picture2.hdc, 0, 0, ExtractIcon(1, iconmod$, Exclamation)
.Picture2.Refresh
savepicture picture2.image , "c:\2.bmp"

'question
.Picture3.Cls
DrawIcon .Picture3.hdc, 0, 0, ExtractIcon(1, iconmod$, Question)
.Picture3.Refresh
savepicture picture3.image , "c:\3.bmp"
'critical
.Picture4.Cls
DrawIcon .Picture4.hdc, 0, 0, ExtractIcon(1, iconmod$, Critical)
.Picture4.Refresh
savepicture picture4.image , "c:\4.bmp"

:mavieni: