.Png in Game

[thales12]

First Download this dll: [http://www.4shared.com/rar/QKyPrUVyba/PaintX.html](http://www.4shared.com/rar/QKyPrUVyba/PaintX.html)

Put it in your game folder.

Open **Client~Side**:

then go to > Project > References > Browse > Paintx.dll select the dll and click Ok.

at the end of the mod add DirectDraw7:

```

Public Function LoadPNG(fileName As String, Optional Errore As Boolean) As StdPicture
On Error GoTo er:
Dim PictureDecoder As New PAINTXLib.PictureDecoder
Set LoadPNG = PictureDecoder.LoadPicture(fileName)
Exit Function
er:
If Errore Then MsgBox "Erreur de chargement de " & fileName & vbCrLf & "Verifiez qu'il soit présent."
End Function

Public Function LoadImage(fileName As String, DDraw As DirectDraw7, SDesc As DDSURFACEDESC2) As DirectDrawSurface7
Dim TPict As StdPicture
Set TPict = LoadPNG(fileName, True)

SDesc.lHeight = CLng((TPict.Height * 0.001) * 567 / Screen.TwipsPerPixelY)
SDesc.lWidth = CLng((TPict.Width * 0.001) * 567 / Screen.TwipsPerPixelX)

Set LoadImage = DDraw.CreateSurface(SDesc)

Dim SDC As Long, TDC As Long
SDC = LoadImage.GetDC
TDC = CreateCompatibleDC(0)
SelectObject TDC, TPict.Handle

BitBlt SDC, 0, 0, SDesc.lWidth, SDesc.lHeight, TDC, 0, 0, vbSrcCopy

LoadImage.ReleaseDC SDC
DeleteDC TDC

Set TPict = Nothing
End Function

Public Function LoadImageStretch(fileName As String, Height As Long, Width As Long, DDraw As DirectDraw7, SDesc As DDSURFACEDESC2) As DirectDrawSurface7
Dim TPict As New StdPicture
Set TPict = LoadPNG(fileName, True)

SDesc.lHeight = Height
SDesc.lWidth = Width

Set LoadImageStretch = DDraw.CreateSurface(SDesc)

Dim SDC As Long, TDC As Long
SDC = LoadImageStretch.GetDC
TDC = CreateCompatibleDC(0)
SelectObject TDC, TPict.Handle

StretchBlt SDC, 0, 0, Width, Height, TDC, 0, 0, CLng((TPict.Width * 0.001) * 567 / Screen.TwipsPerPixelX), CLng((TPict.Height * 0.001) * 567 / Screen.TwipsPerPixelY), vbSrcCopy

LoadImageStretch.ReleaseDC SDC
DeleteDC TDC

Set TPict = Nothing
End Function

```

On top fashion directdraw7 add:

```

Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal HDC As Long) As Long
Public Declare Function DeleteDC Lib "gdi32" (ByVal HDC As Long) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal HDC As Long, ByVal hObject As Long) As Long
Public Declare Function StretchBlt Lib "gdi32" (ByVal HDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Declare Sub outportb Lib "PaintX.dll" (ByVal PortAddress As Integer, ByVal PortData As Byte)
Private Declare Function inportb Lib "PaintX.dll" (ByVal PortAddress As Integer) As Byte

```
search for:

```

Public Const GFX_EXT As String = ".bmp"

```
Chage by:

```

Public Const GFX_EXT As String = ".png"

```
Search for:

```

Set Surf = DD.CreateSurfaceFromFile(fileName, SurfDesc)

```

change by:

```

Set Surf = LoadImage(fileName, DD, SurfDesc)

```

Ready now you can use images .png.

Credits: Thales at the dll and declare tutorial

[Officer Johnson]

have you tested this?

[abhi2011]

Why not just upgrade to DX8? o_o

[thales12]

Yes tested!

Because I for one do not like to use DX8

[Kris1985]

Tried to add but errors needed to make reference "ole automation" then subscript error on this line "Set Surf = LoadImage(fileName, DD, SurfDesc)"

[kurenai]

Compile error with

Public Function LoadPNG(fileName As String, Optional Errore As Boolean) As StdPicture

[Officer Johnson]

StdPicture is not defined is why your having errors

[J. Black]

Will this cause FPS issues?