possible to load a .png image in picturebox or image 1

[sal21]

possible to load a .png image in picturebox or image ???
Tks

 

[strongm]

Yes, it is.

I covered this before in this forum, so a search might have turned up the answer, but here it is again (but without any explanation).

[COLOR=blue]Public Function NewLoadPicture(strPath As String) As StdPicture
    With CreateObject("WIA.ImageFile")
        .LoadFile (strPath)
        Set NewLoadPicture = .FileData.Picture
    End With
End Function[/color]

 

[sal21]

HI strong, but i dont understand how to set the pictubox1?

 

[strongm]

This is a runtime function. You cannot do it at design time. At runtime you use NewLoadPicture just like you use LoadPicture

 

[sal21]

Option Explicit
Private Sub Form_Load()

'[URL unfurl="true"]https://www.tek-tips.com/viewthread.cfm?qid=1819138[/URL]
Set Picture1.Picture = NewLoadPicture("C:\Lavori_Vb6\BANDIERE\FLAG\country-flags-main\png1000px\ad.png")

End Sub
Public Function NewLoadPicture(strPath As String) As StdPicture
    With CreateObject("WIA.ImageFile")
        .LoadFile (strPath)
        Set NewLoadPicture = .FileData.Picture
    End With
End Function

ops...

i'm stupid...
work now! tks.

but possible to resize the image in picturebox1.

Is very big!

see my result

https://files.engineering.com/getfile.aspx?folder=0482634a-d942-4482-98e7-6b457996caa6&file=ad.zip

https://files.engineering.com/getfi...30a0-493b-94f2-c03acec73e27&file=Immagine.jpg

attached the original image.

 

[strongm]

There are loads of ways ofg resizing the image. It really depends on what your plans for that image are. Do you simply want to display it on a form? Within another activex control? Or ...

Actually forget it. Since we already have WIA in action, and WIA can resize things intelligently, let's just modify the NewLoadPicture function slightly so that you can optionally pass a required width and height

[COLOR=blue]Public Function NewLoadPicture(strPath As String[b], Optional NewX As Long, Optional NewY As Long[/b]) As StdPicture
    [b]Dim img As Object
    Set img = CreateObject("WIA.ImageFile")[/b]
    With [b]img[/b]
        .LoadFile strPath
        
[COLOR=green][b]        ' In production code we would also want to do some more rigorous checking of
        ' NewX and NewY to ensure legit values[/color]
        If NewX <> 0 And NewY <> 0 Then
            With CreateObject("WIA.ImageProcess")
                [COLOR=green]' Resample/scale to NewX x NewY[/color]
                .Filters.Add .FilterInfos!Scale.FilterID
                With .Filters(1).Properties
                    !PreserveAspectRatio = False
                    !MaximumWidth = NewX
                    !MaximumHeight = NewY
                End With
                Set img = .Apply(img)
            End With
        End If[/b]
          
        Set NewLoadPicture = [b]img[/b].FileData.Picture
    End With
End Function
[/color]

 

[sal21]

tks strongm.
curiosity...
i can use your function also for .svg image?

 

[Andrzejek]

How hard is it to try and find out

---- Andy

"Hmm...they have the internet on computers now"--Homer Simpson