So you ***** want to make games......

[PsyVision]

Wanna make games ??

Pop along to http://www.morfit.com and get their FREE engine. They have a good level editor and engine. It's easy to use.


[Edited by PsyVision on 06-04-2000 at 05:03 PM]

[Zej]

that's better.



[Edited by Zej on 06-04-2000 at 05:30 PM]

[SteveCRM]

Pretty harsh words. How about we just say, please don't advertise?

You should have seen the topic before they both edited it. I did...and I also decided not to reply

[SteveCRM]

Yeah I saw it.

Just don't make it a habit.

[PsyVision]

how can i use:

Picture1.PaintPicture ...

To take a screen shot ?

put this in a module



Option Explicit

'API
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 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

Public Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long



put this in the forms code thingy



Option Explicit

Private Sub cmdBitBlt_Click()
Dim DC As Long

'Get DC of desktop (=screen)
DC = GetWindowDC(GetDesktopWindow)

'BitBlt to Buffer
BitBlt Buffer.hdc, 0, 0, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, DC, 0, 0, vbSrcCopy

'Release DC
ReleaseDC frmMain.hwnd, DC
End Sub


Private Sub cmdClear_Click()
'Clear buffer image
Buffer.Cls
End Sub

Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdStretchBlt_Click()
Dim DC As Long

'Get DC of desktop (=screen)
DC = GetWindowDC(GetDesktopWindow)

'BitBlt to Buffer
StretchBlt Buffer.hdc, 0, 0, Buffer.Width, Buffer.Height, DC, 0, 0, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, vbSrcCopy

'Release DC
ReleaseDC frmMain.hwnd, DC
End Sub


put 4 command buttons on the form.

one named
cmdBitBlt
another name
cmdStretchBlt
one named
cmdClear
and one named
cmdExit


and put a picture box on the form called Buffer

this was from fox's website
:D

[PsyVision]

Thanks, I got the one from Fox! and edited it for my use and put in a save picture thing. Thanks Again!