PDA

Visualizza la versione completa : vb6 salvare immagine


xegallo
25-06-2002, 17:57
come faccio a salvare un'immagine contenuta in una picturebox in un file .bmp o .ico o .jpg

Boldan
25-06-2002, 18:03
Prova con l'istruzione:

SavePicture Picture1.Picture, "c:\prova.bmp"

Fammi sapere come va...
Ciao!!:ciauz:

xegallo
25-06-2002, 18:38
ho dimenticato di dirti un pezzo l'immagine non č contenuta nella proprietą picture ma in hDC poichč l'ho estrapolata da shell32.dll

xegallo
25-06-2002, 20:35
Originariamente inviato da xegallo
ho dimenticato di dirti un pezzo l'immagine non č contenuta nella proprietą picture ma in hDC poichč l'ho estrapolata da shell32.dll
aiuto nessuno si č estratto le icone dalla shell32.dll

kiva
26-06-2002, 10:31
Originariamente inviato da Boldan
Prova con l'istruzione:

SavePicture Picture1.Picture, "c:\prova.bmp"

Fammi sapere come va...
Ciao!!:ciauz:

istruzione non corretta!:gren:

Boldan
26-06-2002, 17:55
Prima di dire che un'istruzione non č corretta potresti almeno provarla... a me sembra che funzioni benissimo!! Non risolve il problema di xegallo, ma per salvare il contenuto della proprietą picture di un oggetto (in questo caso l'oggetto PictureBox) funziona benissimo!!

Per xegallo:
Faccio delle ricerche e ti faccio sapere....
Potresti postarmi il codice che utilizzi per leggere l'icona dal file shell32.dll? Grazie

Ciao!!:ciauz:

xegallo
27-06-2002, 17:10
Private sIconFile As String

Private twipsX As Long
Private twipsY As Long
Private picH As Long
Private picW 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" _
Alias "ExtractIconA" _
(ByVal hInst As Long, _
ByVal lpszExeFileName As String, _
ByVal nIconIndex As Long) As Long

Private Declare Function DestroyIcon Lib "user32" _
(ByVal hIcon As Long) As Long

Private Sub Form_Load()
sIconFile = "c:\windows\system32\shell32.dll"
twipsX = Screen.TwipsPerPixelX
twipsY = Screen.TwipsPerPixelY
picH = Picture1.ScaleWidth
picW = Picture1.ScaleWidth
Label1.Caption = sIconFile
End Sub

in un command button

hIcon = ExtractIcon(0&, sIconFile, index)
Call DrawIcon(Picture1.hdc, X, Y, hIcon)
Call DestroyIcon(hIcon)

xegallo
28-06-2002, 18:21
io riuppo

xegallo
29-06-2002, 16:47
risolto era banalissimo il prob se si ha l'handle memorizzato in hDC l'immagine figura nella proprietą image non in Picture

Loading