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

[PsyVision]

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